removed g-flag

diff --git a/util/ack/ack.1.X b/util/ack/ack.1.X
index c35379f..a4ca5df 100644 (file)
--- a/util/ack/ack.1.X
+++ b/util/ack/ack.1.X
@@ -310,10 +310,6 @@ it very likely that the phase will be used.
 .IP \-k
 Do not stop when an error occurs, but try to transform all
 other arguments as far as possible.
-.IP \-g
-Try to run the resulting load file.
-No arguments can be passed this way,
-so it is only useful in simple cases.
 .PP
 All arguments without a suffix or with an unrecognized suffix
 are passed to the loaders, as for flags.
@@ -422,8 +418,6 @@ C.J.H. Jacobs, \fIThe ACK Modula-2 Compiler\fP.
 .PD
 The diagnostics are intended to be self\-explanatory.
 .SH BUGS
-The -g flag is inoperative.
-.br
 Not all warning messages are superseded by \fB\-w\fP.
 .br
 Argument assembly files are not preprocessed when fed into the

diff --git a/util/ack/data.h b/util/ack/data.h
index 8c836b8..37941f2 100644 (file)
--- a/util/ack/data.h
+++ b/util/ack/data.h
@@ -23,7 +23,6 @@ EXTERN  list_head       head_list;      /* List of suffices for headers */
 EXTERN  list_head       tail_list;      /* List of suffices for tails */
 
 EXTERN  int             k_flag;         /* Like -k of lint */
-EXTERN  int             g_flag;         /* do_run() */
 EXTERN  int             t_flag;         /* Preserve intermediate files */
 EXTERN  int             v_flag;         /* Verbose */
 EXTERN  int             w_flag;         /* Don't print warnings */

diff --git a/util/ack/main.c b/util/ack/main.c
index 5ec702b..70fe83d 100644 (file)
--- a/util/ack/main.c
+++ b/util/ack/main.c
@@ -107,10 +107,6 @@ main(argc,argv) char **argv ; {
 
        if ( n_error ) exit(n_error) ;
 
-       if ( g_flag ) {
-               exit(do_run()) ;
-       }
-
        exit(0) ;
 }
 
@@ -189,8 +185,6 @@ vieuwargs(argc,argv) char **argv ; {
                        if ( v_flag>=3 ) debug=v_flag-2 ;
 #endif
                        break ;
-          case 'g':    g_flag++ ;
-                       break ;
           case 'c':    if ( stopsuffix ) fuerror("Two -c flags") ;
                        stopsuffix= &argp[2]; eaten=1;
                        if ( *stopsuffix && *stopsuffix!=SUFCHAR ) {

diff --git a/util/ack/run.c b/util/ack/run.c
index fd2636e..e04f376 100644 (file)
--- a/util/ack/run.c
+++ b/util/ack/run.c
@@ -23,12 +23,6 @@ static char      **arglist ;    /* The first argument */
 static unsigned  argcount ;     /* The current number of arguments */
 static unsigned  argmax;        /* The maximum number of arguments so far */
 
-int do_run() {
-       fatal("-g flag not implemented") ;
-       /*NOTREACHED*/
-       return 0 ;
-}
-
 int runphase(phase) register trf *phase ; {
        register list_elem *elem ;
       char *prog ; int result ;