projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 1997-09-24 09:08:21 by simonm]
[ghc-hetmet.git]
/
ghc
/
compiler
/
parser
/
hsparser.y
diff --git
a/ghc/compiler/parser/hsparser.y
b/ghc/compiler/parser/hsparser.y
index
58db2df
..
72d4472
100644
(file)
--- a/
ghc/compiler/parser/hsparser.y
+++ b/
ghc/compiler/parser/hsparser.y
@@
-185,7
+185,7
@@
BOOLEAN inpat;
%token INTERFACE_UPRAGMA SPECIALISE_UPRAGMA
%token INLINE_UPRAGMA MAGIC_UNFOLDING_UPRAGMA
%token INTERFACE_UPRAGMA SPECIALISE_UPRAGMA
%token INLINE_UPRAGMA MAGIC_UNFOLDING_UPRAGMA
-%token DEFOREST_UPRAGMA END_UPRAGMA
+%token END_UPRAGMA
%token SOURCE_UPRAGMA
/**********************************************************************
%token SOURCE_UPRAGMA
/**********************************************************************
@@
-613,12
+613,6
@@
decl : qvarsk DCOLON sigtype
PREVPATT = NULL; FN = NULL; SAMEFN = 0;
}
PREVPATT = NULL; FN = NULL; SAMEFN = 0;
}
- | DEFOREST_UPRAGMA qvark END_UPRAGMA
- {
- $$ = mkdeforest_uprag($2, startlineno);
- PREVPATT = NULL; FN = NULL; SAMEFN = 0;
- }
-
/* end of user-specified pragmas */
| valdef
/* end of user-specified pragmas */
| valdef