Removed some erroneous fclose() calls

This commit is contained in:
ceriel 1990-05-31 13:54:33 +00:00
parent c379c45b45
commit b2359023d6

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();
}