From 63366c1a6368fa8fe5532d16db01810c5576f14f Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 8 Jan 2003 12:37:45 +0000
Subject: [PATCH] [project @ 2003-01-08 12:37:45 by simonmar] stg_BCO_entry
 needs to be extern now.

---
 ghc/rts/StgMiscClosures.hc |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/ghc/rts/StgMiscClosures.hc b/ghc/rts/StgMiscClosures.hc
index 71f7ef7..6433a90 100644
--- a/ghc/rts/StgMiscClosures.hc
+++ b/ghc/rts/StgMiscClosures.hc
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: StgMiscClosures.hc,v 1.82 2002/12/13 19:14:58 wolfgang Exp $
+ * $Id: StgMiscClosures.hc,v 1.83 2003/01/08 12:37:45 simonmar Exp $
  *
  * (c) The GHC Team, 1998-2002
  *
@@ -234,8 +234,8 @@ IF_(stg_apply_interp_entry)
 INFO_TABLE_FUN_GEN(stg_BCO_info,stg_BCO_entry,4,0,
 	      0,0,0,  /* no SRT */
 	      ARG_BCO, 0/*dummy arity*/, 0/*dummy bitmap*/, NULL/*slow_apply*/,
-	      BCO,,IF_,"BCO","BCO");
-IF_(stg_BCO_entry) {
+	      BCO,,EF_,"BCO","BCO");
+FN_(stg_BCO_entry) {
   FB_
   // entering a BCO means "apply it", same as a function
   Sp -= 2;
-- 
1.7.10.4