From: simonmar <unknown>
Date: Mon, 22 May 2000 11:39:08 +0000 (+0000)
Subject: [project @ 2000-05-22 11:39:08 by simonmar]
X-Git-Tag: Approximately_9120_patches~4417
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d0dafffc8d33d1e5cba7921b4f833adc6e5c75f4;p=ghc-hetmet.git

[project @ 2000-05-22 11:39:08 by simonmar]
Don't use a worker Id for the internal ccall worker; generate a new
syslocal instead.  This is to avoid a clash in the case where a real
worker is generated later on.
---

diff --git a/ghc/compiler/deSugar/DsForeign.lhs b/ghc/compiler/deSugar/DsForeign.lhs
index 7817c52..c501beb 100644
--- a/ghc/compiler/deSugar/DsForeign.lhs
+++ b/ghc/compiler/deSugar/DsForeign.lhs
@@ -22,7 +22,7 @@ import CallConv
 import TcHsSyn		( TypecheckedForeignDecl )
 import CoreUtils	( exprType, mkInlineMe )
 import DataCon		( DataCon, dataConWrapId )
-import Id		( Id, idType, idName, mkWildId, mkVanillaId )
+import Id		( Id, idType, idName, mkWildId, mkVanillaId, mkSysLocal )
 import MkId		( mkWorkerId )
 import Literal		( Literal(..) )
 import Module		( Module, moduleUserString )
@@ -151,7 +151,7 @@ dsFImport fn_id ty may_not_gc ext_name cconv
 	the_ccall     = CCall lbl False (not may_not_gc) cconv
  	the_ccall_app = mkCCall ccall_uniq the_ccall val_args ccall_result_ty
 	work_rhs      = mkLams tvs (mkLams work_arg_ids the_ccall_app)
-	work_id       = mkWorkerId work_uniq fn_id worker_ty
+	work_id       = mkSysLocal SLIT("$wccall") work_uniq worker_ty
 
 	-- Build the wrapper
 	work_app     = mkApps (mkVarApps (Var work_id) tvs) val_args