[project @ 2002-05-01 15:46:14 by simonmar]

[ghc-hetmet.git] / ghc / includes / StgMiscClosures.h

diff --git a/ghc/includes/StgMiscClosures.h b/ghc/includes/StgMiscClosures.h
index a4281c8..cd3a998 100644 (file)
--- a/ghc/includes/StgMiscClosures.h
+++ b/ghc/includes/StgMiscClosures.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: StgMiscClosures.h,v 1.40 2001/11/08 12:46:31 simonmar Exp $
+ * $Id: StgMiscClosures.h,v 1.43 2002/03/02 17:46:03 sof Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -74,9 +74,11 @@ extern DLL_IMPORT_RTS const vec_info_8 stg_ctoi_ret_V_info;
 
 /* Used by the interpreter to return an unboxed value on the stack to
    compiled code. */
-extern DLL_IMPORT_RTS const StgInfoTable stg_gc_unbx_r1_ret_info;
-extern DLL_IMPORT_RTS const StgInfoTable stg_gc_f1_ret_info;
-extern DLL_IMPORT_RTS const StgInfoTable stg_gc_d1_ret_info;
+extern DLL_IMPORT_RTS const StgInfoTable stg_gc_unbx_r1_info;
+extern DLL_IMPORT_RTS const StgInfoTable stg_gc_f1_info;
+extern DLL_IMPORT_RTS const StgInfoTable stg_gc_d1_info;
+extern DLL_IMPORT_RTS const StgInfoTable stg_gc_l1_info;
+
 
 /* this is the NIL ptr for a TSO queue (e.g. runnable queue) */
 #define END_TSO_QUEUE  ((StgTSO *)(void*)&stg_END_TSO_QUEUE_closure)
@@ -252,25 +254,29 @@ EXTFUN(stg_gc_enter_7);
 EXTFUN(stg_gc_enter_8);
 EXTFUN(stg_gc_seq_1);
 
-EI_(stg_gc_noregs_ret_info);
+EI_(stg_gc_noregs_info);
 EF_(stg_gc_noregs);
 
-EI_(stg_gc_unpt_r1_ret_info);
+EI_(stg_gc_unpt_r1_info);
 EF_(stg_gc_unpt_r1);
 
-EI_(stg_gc_unbx_r1_ret_info);
+EI_(stg_ut_1_0_unreg_info);
+
+EI_(stg_gc_unbx_r1_info);
 EF_(stg_gc_unbx_r1);
 
-EI_(stg_gc_f1_ret_info);
+EI_(stg_gc_f1_info);
 EF_(stg_gc_f1);
 
-EI_(stg_gc_d1_ret_info);
+EI_(stg_gc_d1_info);
 EF_(stg_gc_d1);
 
-EI_(stg_gc_ut_1_0_ret_info);
+EI_(stg_gc_ut_1_0_info);
+EI_(stg_gc_l1_info);
+EF_(stg_gc_l1);
 EF_(stg_gc_ut_1_0);
 
-EI_(stg_gc_ut_0_1_ret_info);
+EI_(stg_gc_ut_0_1_info);
 EF_(stg_gc_ut_0_1);
 
 EXTFUN(__stg_chk_0);