Removed some erroneous fclose() calls

This commit is contained in:
ceriel 1990-05-31 13:54:33 +00:00
parent 9eaa440fab
commit e2b59f6517

View file

@ -128,10 +128,10 @@ go(argc,argv,initialize,optimize,phase_machinit,proc_flag)
fclose(gf2);
f = openfile(dname2,"w");
putdtable(fdblock,f);
fclose(f);
/* fclose(f); done by putdtable */
f = openfile(pname2,"w");
putptable(fproc,f,TRUE);
fclose(f);
/* fclose(f); done by putptable */
core_usage();
}