diff options
Diffstat (limited to 'ghc/compiler/parser/util.c')
| -rw-r--r-- | ghc/compiler/parser/util.c | 28 |
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; |