[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
-                                               (is_casm, may_gc) = $1
+                                               (is_dyn, is_casm, may_gc) = $1
                                                in
-                                               UfCCallOp $2 is_casm may_gc
+                                               UfCCallOp $2 is_dyn is_casm may_gc
                                                }
 
 rec_binds      :: { [(UfBinder RdrName, UfExpr RdrName)] }