From: sewardj <unknown>
Date: Tue, 19 Dec 2000 13:07:07 +0000 (+0000)
Subject: [project @ 2000-12-19 13:07:07 by sewardj]
X-Git-Tag: Approximately_9120_patches~3055
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=375847fbd6960458c2e03399d6b06b10c3e1d808;p=ghc-hetmet.git

[project @ 2000-12-19 13:07:07 by sewardj]
stg_ctoi_ret_R1_info et al
---

diff --git a/ghc/includes/StgMiscClosures.h b/ghc/includes/StgMiscClosures.h
index 077927c..68d0f84 100644
--- a/ghc/includes/StgMiscClosures.h
+++ b/ghc/includes/StgMiscClosures.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: StgMiscClosures.h,v 1.26 2000/12/19 12:58:50 simonmar Exp $
+ * $Id: StgMiscClosures.h,v 1.27 2000/12/19 13:07:07 sewardj Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -55,6 +55,7 @@ STGFUN(stg_END_MUT_LIST_entry);
 STGFUN(stg_dummy_ret_entry);
 
 #ifdef GHCI
+/* entry code for constructors created by the bytecode interpreter */
 STGFUN(stg_interp_constr_entry);
 STGFUN(stg_interp_constr1_entry);
 STGFUN(stg_interp_constr2_entry);
@@ -64,6 +65,12 @@ STGFUN(stg_interp_constr5_entry);
 STGFUN(stg_interp_constr6_entry);
 STGFUN(stg_interp_constr7_entry);
 STGFUN(stg_interp_constr8_entry);
+
+/* Magic glue code for when compiled code returns a value in R1/F1/D1
+   to the interpreter. */
+extern DLL_IMPORT_RTS const StgInfoTable stg_ctoi_ret_R1_info;
+extern DLL_IMPORT_RTS const StgInfoTable stg_ctoi_ret_F1_info;
+extern DLL_IMPORT_RTS const StgInfoTable stg_ctoi_ret_D1_info;
 #endif
 
 #if defined(PAR) || defined(GRAN)