From: simonmar <unknown>
Date: Mon, 9 Jul 2001 08:24:08 +0000 (+0000)
Subject: [project @ 2001-07-09 08:24:08 by simonmar]
X-Git-Tag: Approximately_9120_patches~1600
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=07f1e0f9e77287c6a573348c0001cd4366dde8bb;hp=474dd6771b4319c6d5f6edd10ba7c443fe3c54c8;p=ghc-hetmet.git

[project @ 2001-07-09 08:24:08 by simonmar]
oops: I changed the names of some of the GC stubs, and didn't realise they
were mentioned here too.
---

diff --git a/ghc/compiler/ghci/ByteCodeLink.lhs b/ghc/compiler/ghci/ByteCodeLink.lhs
index 795c1e9..d94d0fb 100644
--- a/ghc/compiler/ghci/ByteCodeLink.lhs
+++ b/ghc/compiler/ghci/ByteCodeLink.lhs
@@ -347,9 +347,9 @@ foreign label "stg_ctoi_ret_F1_info"  stg_ctoi_ret_F1_info :: Addr
 foreign label "stg_ctoi_ret_D1_info"  stg_ctoi_ret_D1_info :: Addr
 foreign label "stg_ctoi_ret_V_info"   stg_ctoi_ret_V_info :: Addr
 
-foreign label "stg_gc_unbx_r1_info" stg_gc_unbx_r1_info :: Addr
-foreign label "stg_gc_f1_info"      stg_gc_f1_info :: Addr
-foreign label "stg_gc_d1_info"      stg_gc_d1_info :: Addr
+foreign label "stg_gc_unbx_r1_ret_info" stg_gc_unbx_r1_info :: Addr
+foreign label "stg_gc_f1_ret_info"      stg_gc_f1_info :: Addr
+foreign label "stg_gc_d1_ret_info"      stg_gc_d1_info :: Addr
 
 -- The size in 16-bit entities of an instruction.
 instrSize16s :: BCInstr -> Int