projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 1996-01-18 16:33:17 by partain]
[ghc-hetmet.git]
/
ghc
/
compiler
/
yaccParser
/
hpragma.ugn
diff --git
a/ghc/compiler/yaccParser/hpragma.ugn
b/ghc/compiler/yaccParser/hpragma.ugn
index
c184b43
..
81ba61e
100644
(file)
--- a/
ghc/compiler/yaccParser/hpragma.ugn
+++ b/
ghc/compiler/yaccParser/hpragma.ugn
@@
-31,10
+31,6
@@
type hpragma;
gprag_dfun_const : hpragma; /* gen pragma: of dfun */
gprag_constms : list; /* (name, gen pragma) pairs */ >;
gprag_dfun_const : hpragma; /* gen pragma: of dfun */
gprag_constms : list; /* (name, gen pragma) pairs */ >;
- iinst_spec_pragma: < gprag_imod_spec : stringId;
- gprag_dfun_spec : hpragma; /* gen pragma: of dfun */
- gprag_inst_specs : list; /* (type, inst_pragma) pairs */ >;
-
igen_pragma: < gprag_arity : hpragma; /* arity */
gprag_update : hpragma; /* update info */
gprag_deforest : hpragma; /* deforest info */
igen_pragma: < gprag_arity : hpragma; /* arity */
gprag_update : hpragma; /* update info */
gprag_deforest : hpragma; /* deforest info */
@@
-63,11
+59,7
@@
type hpragma;
itype_pragma_pr: < gprag_type_pr1 : list; /* of maybe types */
gprag_type_pr2 : numId; /* # dicts to ignore */
gprag_type_pr3 : hpragma; >;
itype_pragma_pr: < gprag_type_pr1 : list; /* of maybe types */
gprag_type_pr2 : numId; /* # dicts to ignore */
gprag_type_pr3 : hpragma; >;
- iinst_pragma_3s: < gprag_inst_pt1 : list; /* of maybe types */
- gprag_inst_pt2 : numId;
- gprag_inst_pt3 : hpragma;
- gprag_inst_pt4 : list; >;
-
+
idata_pragma_4s: < gprag_data_spec : list; /* of maybe types */ >;
end;
idata_pragma_4s: < gprag_data_spec : list; /* of maybe types */ >;
end;