From 2295cd130a18b5a8cc3cb404f6c348a3baefe999 Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Tue, 10 Feb 1987 16:50:32 +0000
Subject: [PATCH] Added some code to handle -Oego,opt,asopt and the like. By
 default, optimizers can be excluded by giving them a negative priority in the
 description files. This is currently done for the global optimizer

---
 util/ack/data.h | 4 +++-
 util/ack/main.c | 2 ++
 util/ack/scan.c | 7 ++++---
 3 files changed, 9 insertions(+), 4 deletions(-)

diff --git a/util/ack/data.h b/util/ack/data.h
index 5208efc90..f9f6d1a19 100644
--- a/util/ack/data.h
+++ b/util/ack/data.h
@@ -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 */
diff --git a/util/ack/main.c b/util/ack/main.c
index e4432de56..3a68bf283 100644
--- a/util/ack/main.c
+++ b/util/ack/main.c
@@ -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]) ;
diff --git a/util/ack/scan.c b/util/ack/scan.c
index a43193fc5..67f00b43d 100644
--- a/util/ack/scan.c
+++ b/util/ack/scan.c
@@ -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 ;
 		}