removed g-flag

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

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 */

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 ) {

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 ;