d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Indirect function calls should be just that!

Browse source
This commit is contained in:
ceriel 1987-03-16 15:14:52 +00:00
parent e140a87a6b
commit d52e25949a
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
util/ego/share/go.c
View file

@ -39,7 +39,7 @@ STATIC mach_init(machfile,phase_machinit)
fscanf(f,"%d",&ws); fscanf(f,"%d",&ws);
fscanf(f,"%d",&ps); fscanf(f,"%d",&ps);
if (ws != ps && ps != 2*ws) error("illegal pointer size"); if (ws != ps && ps != 2*ws) error("illegal pointer size");
phase_machinit(f); (*phase_machinit)(f);
fclose(f); fclose(f);
} }
@ -88,14 +88,14 @@ go(argc,argv,initialize,optimize,phase_machinit,proc_flag)
verbose_flag = TRUE; verbose_flag = TRUE;
break; break;
default: default:
proc_flag(p); (*proc_flag)(p);
break; break;
} }
} }
time_space_ratio = (time_opt ? 100 : 0); time_space_ratio = (time_opt ? 100 : 0);
fproc = getptable(pname); /* proc table */ fproc = getptable(pname); /* proc table */
fdblock = getdtable(dname); /* data block table */ fdblock = getdtable(dname); /* data block table */
initialize(); (*initialize)();
if (optimize == no_action) return; if (optimize == no_action) return;
f = openfile(lname,"r"); f = openfile(lname,"r");
gf = openfile(bname,"r"); gf = openfile(bname,"r");
@ -115,7 +115,7 @@ go(argc,argv,initialize,optimize,phase_machinit,proc_flag)
/* The global variable curproc points to the /* The global variable curproc points to the
* current procedure. It is set by getgraph * current procedure. It is set by getgraph
*/ */
optimize(curproc); (*optimize)(curproc);
putunit(LTEXT,curproc,(line_p) 0,gf2,f2); putunit(LTEXT,curproc,(line_p) 0,gf2,f2);
/* output control flow graph + text */ /* output control flow graph + text */
OUTTRACE("graph of proc %d outputted",curproc->p_id); OUTTRACE("graph of proc %d outputted",curproc->p_id);