From 106aed52a7ea04c1d0a0a2a562da44bdecf6659e Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 15 Aug 2000 14:22:24 +0000
Subject: [PATCH] [project @ 2000-08-15 14:22:24 by simonmar] oops, revert part
of previous commit that sneaked in by accident
---
ghc/includes/StgMacros.h | 27 +--------------------------
1 file changed, 1 insertion(+), 26 deletions(-)
diff --git a/ghc/includes/StgMacros.h b/ghc/includes/StgMacros.h
index c112dd8d36bf..df6c82cc037f 100644
--- a/ghc/includes/StgMacros.h
+++ b/ghc/includes/StgMacros.h
@@ -1,5 +1,5 @@
/* -----------------------------------------------------------------------------
- * $Id: StgMacros.h,v 1.33 2000/08/15 14:18:43 simonmar Exp $
+ * $Id: StgMacros.h,v 1.34 2000/08/15 14:22:24 simonmar Exp $
*
* (c) The GHC Team, 1998-1999
*
@@ -726,8 +726,6 @@ LoadThreadState (void)
Module initialisation
-------------------------------------------------------------------------- */
-#if 1 /* old init stuff */
-
#define PUSH_INIT_STACK(reg_function) \
*(Sp++) = (W_)reg_function
@@ -754,29 +752,6 @@ LoadThreadState (void)
JMP_(POP_INIT_STACK()); \
FE_ }
-#else
-
-#define PUSH_INIT_STACK(reg_function) /* nothing */
-#define POP_INIT_STACK() /* nothing */
-#define REGISTER_IMPORT(reg_mod_name) /* nothing */
-
-#define START_MOD_INIT(reg_mod_name) \
- FN_(reg_mod_name) { \
- EF_(StgReturn); \
- TEXT_SET(hs_init_set, reg_mod_name); \
- FB_;
- /* extern decls go here, followed by init code */
-
-#define REGISTER_FOREIGN_EXPORT(reg_fe_binder) \
- STGCALL1(getStablePtr,reg_fe_binder)
-
-
-#define END_MOD_INIT() \
- JMP_(StgReturn); \
- FE_ } \
-
-#endif
-
/* -----------------------------------------------------------------------------
Support for _ccall_GC_ and _casm_GC.
-------------------------------------------------------------------------- */
--
GitLab