From b72dbd57fd2ee3129a73fb54e77f697e04b3646c Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 19 May 2000 09:49:00 +0000
Subject: [PATCH] [project @ 2000-05-19 09:49:00 by simonmar] Make the _ret
symbols static; there's no need to have these exported.
---
ghc/rts/StgStdThunks.hc | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/ghc/rts/StgStdThunks.hc b/ghc/rts/StgStdThunks.hc
index 239b816c6e7d..5e7cbf6ec3b8 100644
--- a/ghc/rts/StgStdThunks.hc
+++ b/ghc/rts/StgStdThunks.hc
@@ -1,5 +1,5 @@
/* -----------------------------------------------------------------------------
- * $Id: StgStdThunks.hc,v 1.11 2000/04/19 10:53:11 simonmar Exp $
+ * $Id: StgStdThunks.hc,v 1.12 2000/05/19 09:49:00 simonmar Exp $
*
* (c) The GHC Team, 1998-2000
*
@@ -41,7 +41,7 @@
#endif
#define SELECTOR_CODE_UPD(offset) \
- EF_(__sel_ret_##offset##_upd_ret); \
+ IF_(__sel_ret_##offset##_upd_ret); \
INFO_TABLE_SRT_BITMAP(__sel_ret_##offset##_upd_info,__sel_ret_##offset##_upd_ret, RET_BITMAP, 0, 0, 0, RET_SMALL, static, EF_, 0, 0); \
EF_(__sel_ret_##offset##_upd_ret) { \
FB_ \
@@ -86,8 +86,9 @@ SELECTOR_CODE_UPD(14);
SELECTOR_CODE_UPD(15);
#define SELECTOR_CODE_NOUPD(offset) \
+ IF_(__sel_ret_##offset##_noupd_ret); \
INFO_TABLE_SRT_BITMAP(__sel_ret_##offset##_noupd_info, __sel_ret_##offset##_noupd_ret, RET_BITMAP, 0, 0, 0, RET_SMALL, static, EF_, 0, 0); \
- EF_(__sel_ret_##offset##_noupd_ret) { \
+ IF_(__sel_ret_##offset##_noupd_ret) { \
FB_ \
R1.p=(P_)R1.cl->payload[offset]; \
GET_SAVED_CCCS; \
--
GitLab