projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 1999-01-14 19:53:57 by sof]
[ghc-hetmet.git]
/
ghc
/
compiler
/
rename
/
ParseIface.y
diff --git
a/ghc/compiler/rename/ParseIface.y
b/ghc/compiler/rename/ParseIface.y
index
30c1478
..
e548c1e
100644
(file)
--- a/
ghc/compiler/rename/ParseIface.y
+++ b/
ghc/compiler/rename/ParseIface.y
@@
-572,9
+572,9
@@
con_or_primop :: { UfCon RdrName }
con_or_primop : qdata_name { UfDataCon $1 }
| qvar_name { UfPrimOp $1 }
| '__ccall' ccall_string { let
con_or_primop : qdata_name { UfDataCon $1 }
| qvar_name { UfPrimOp $1 }
| '__ccall' ccall_string { let
- (is_casm, may_gc) = $1
+ (is_dyn, is_casm, may_gc) = $1
in
in
- UfCCallOp $2 is_casm may_gc
+ UfCCallOp $2 is_dyn is_casm may_gc
}
rec_binds :: { [(UfBinder RdrName, UfExpr RdrName)] }
}
rec_binds :: { [(UfBinder RdrName, UfExpr RdrName)] }