1987-03-10 11:49:39 +00:00
|
|
|
/* $Header$ */
|
1987-03-09 19:15:41 +00:00
|
|
|
/*
|
|
|
|
|
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
|
|
|
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
|
|
|
*/
|
1984-11-26 15:04:22 +00:00
|
|
|
/* S H A R E D F I L E
|
|
|
|
|
*
|
|
|
|
|
* G O . H
|
|
|
|
|
*
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
extern go(); /* ( int argc; char *argv[];
|
|
|
|
|
* int (*initialize)(); int (*optimize)();
|
|
|
|
|
* int (*phase_machinit)(); int (*proc_flag)() )
|
|
|
|
|
* This is the main driving routine of the optimizer.
|
|
|
|
|
* It first processes the flags given as argument;
|
|
|
|
|
* for every flag it does not recognize itself, it
|
|
|
|
|
* calls 'proc_flag'; as soon as the -M flag is seen,
|
|
|
|
|
* it opens the machine descriptor file and
|
|
|
|
|
* reads phase-independend information (notably the
|
|
|
|
|
* wordsize and pointersize of the target machine);
|
|
|
|
|
* next it calls 'phase_machinit' with this file as
|
|
|
|
|
* parameter. Subsequently it calls 'initialize'.
|
|
|
|
|
* Finally, all procedures are read, one at a time,
|
|
|
|
|
* and 'optimize' is called with the current procedure
|
|
|
|
|
* as parameter.
|
|
|
|
|
*/
|
|
|
|
|
extern no_action(); /* ()
|
|
|
|
|
* Parameter to be supplied for e.g. 'initialize' if
|
|
|
|
|
* no action is required.
|
|
|
|
|
*/
|
|
|
|
|
extern core_usage(); /* ()
|
|
|
|
|
* Report core usage, if core_flag is set.
|
|
|
|
|
*/
|
|
|
|
|
extern report(); /* ( char *s; int n)
|
|
|
|
|
* Report number of optimizations found, if
|
|
|
|
|
* report_flag is set
|
|
|
|
|
*/
|
