[project @ 1996-06-05 06:44:31 by partain]

SLPJ changes through 960604

1 files changed, 1 insertions, 27 deletions

diff --git a/ghc/compiler/parser/util.c b/ghc/compiler/parser/util.c
index f8ebc57c09..e07cf7dc3c 100644
--- a/ghc/compiler/parser/util.c
+++ b/ghc/compiler/parser/util.c
@@ -10,24 +10,18 @@
 #include "constants.h"
 #include "utils.h"
 
-#define PARSER_VERSION "1.3-???"
+#define PARSER_VERSION "2.01 (Haskell 1.3)"
 
 tree root; 		/* The root of the built syntax tree. */
 list Lnil;
 
 BOOLEAN nonstandardFlag = FALSE;  /* Set if non-std Haskell extensions to be used. */
-BOOLEAN acceptPrim = FALSE;	  /* Set if Int#, etc., may be used		   */
 BOOLEAN haskell1_2Flag = FALSE;	  /* Set if we are compiling for 1.2    	   */
 BOOLEAN etags = FALSE;		  /* Set if we're parsing only to produce tags.	   */
 BOOLEAN hashIds = FALSE; 	  /* Set if Identifiers should be hashed.          */
 				  
 BOOLEAN ignoreSCC = TRUE;         /* Set if we ignore/filter scc expressions.      */
 				  
-static BOOLEAN verbose = FALSE;		/* Set for verbose messages. */
-
-/* Forward decls */
-static void who_am_i PROTO((void));
-
 /**********************************************************************
 *                                                                     *
 *                                                                     *
@@ -48,8 +42,6 @@ process_args(argc,argv)
 {
     BOOLEAN keep_munging_option = FALSE;
 
-    argc--, argv++;
-
     while (argc > 0 && argv[0][0] == '-') {
 
 	keep_munging_option = TRUE;
@@ -57,14 +49,8 @@ process_args(argc,argv)
 	while (keep_munging_option && *++*argv != '\0') {
 	    switch(**argv) {
 
-	    case 'v':
-		    who_am_i(); /* identify myself */
-		    verbose = TRUE;
-		    break;
-
 	    case 'N':
 		    nonstandardFlag = TRUE;
-		    acceptPrim = TRUE;
 		    break;
 
 	    case '2':
@@ -106,12 +92,6 @@ process_args(argc,argv)
 	    fprintf(stderr, "Cannot open %s.\n", argv[1]);
 	    exit(1);
     }
-
-    if (verbose) {
-	fprintf(stderr,"Hash Table Contains %d entries\n",hash_table_size);
-	if(acceptPrim)
-	  fprintf(stderr,"Allowing special syntax for Unboxed Values\n");
-    }
 }
 
 void
@@ -122,12 +102,6 @@ error(s)
 	exit(1);
 }
 
-static void
-who_am_i(void)
-{
-  fprintf(stderr,"Glasgow Haskell parser, version %s\n", PARSER_VERSION);
-}
-
 list
 lconc(l1, l2)
   list l1;