added support for modhead

This commit is contained in:
sater 1986-11-28 13:47:44 +00:00
parent 17f5bc21e7
commit 59861f883b
2 changed files with 7 additions and 0 deletions

View file

@ -111,6 +111,12 @@ in_init(filename) char *filename; {
error("Bad format %s",filename); error("Bad format %s",filename);
} }
in_start() {
#ifdef modhead
fprintf(codefile,"%s",modhead) ;
#endif
}
in_finish() { in_finish() {
} }

View file

@ -85,6 +85,7 @@ main(argc,argv) char **argv; {
out_init(argv[1]); out_init(argv[1]);
readcodebytes(); readcodebytes();
itokcost(); itokcost();
in_start();
codegen(startupcode,maxply,TRUE,MAXINT,0); codegen(startupcode,maxply,TRUE,MAXINT,0);
error("Bombed out of codegen"); error("Bombed out of codegen");
} }