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

Added some code to handle -Oego,opt,asopt and the like.

Browse source 
By default, optimizers can be excluded by giving them a negative
priority in the description files. This is currently done for
the global optimizer
This commit is contained in:
ceriel 1987-02-10 16:50:32 +00:00
parent 5ab4d1d2f8
commit 2295cd130a
3 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
util/ack/data.h
View file

@ -5,7 +5,9 @@
EXTERN char *stopsuffix; /* Suffix to stop at */
EXTERN char *machine; /* The machine id */
EXTERN char *callname; /* argv[0] */
EXTERN char *rts; /* The runtime-system id */
EXTERN char *rts; /* The runtime-system */
EXTERN char *rtsuf; /* The runtime-system module suffix */
EXTERN char *Optlist; /* Which optimizers */
EXTERN list_head arguments; /* List of arguments */
EXTERN list_head flags; /* List of flags */

2
util/ack/main.c
View file

@ -175,6 +175,8 @@ vieuwargs(argc,argv) char **argv ; {
hide=YES ;
break ;
case 'O': Optflag++ ;
Optlist= &argp[2] ;
eaten=1 ;
break ;
case 'v': if ( argp[2] ) {
v_flag += atoi(&argp[2]) ;

7
util/ack/scan.c
View file

@ -84,6 +84,7 @@ try(f_scan,suffix) list_elem *f_scan; char *suffix; {
scan_found();
return ;
}
if (! f_scan) return;
scanlist(f_scan, scan) {
trafo= t_cont(*scan) ;
if ( satisfy(trafo,suffix) ) {
@ -129,10 +130,10 @@ try(f_scan,suffix) list_elem *f_scan; char *suffix; {
scan_found() ;
return ;
}
if ( l_next(*scan) ) {
try(l_next(*scan),trafo->t_out);
if (! l_next(*scan) && !stopsuffix) {
scan_found() ;
} else {
if ( !stopsuffix ) scan_found() ;
try(l_next(*scan),trafo->t_out);
}
trafo->t_scan= NO ;
}