From 8813f77032fc4898a908fa63f75e21de32a0b072 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 29 Jun 1999 12:00:42 +0000
Subject: [PATCH] [project @ 1999-06-29 12:00:42 by simonmar] Suppress warnings
by making some static symbols extern. Sigh.
---
ghc/rts/StgStdThunks.hc | 15 +++++++--------
1 file changed, 7 insertions(+), 8 deletions(-)
diff --git a/ghc/rts/StgStdThunks.hc b/ghc/rts/StgStdThunks.hc
index 35a75c1afe06..bd2b652d739b 100644
--- a/ghc/rts/StgStdThunks.hc
+++ b/ghc/rts/StgStdThunks.hc
@@ -1,5 +1,5 @@
/* -----------------------------------------------------------------------------
- * $Id: StgStdThunks.hc,v 1.6 1999/05/13 17:31:13 simonm Exp $
+ * $Id: StgStdThunks.hc,v 1.7 1999/06/29 12:00:42 simonmar Exp $
*
* (c) The GHC Team, 1998-1999
*
@@ -39,9 +39,9 @@
#endif
#define SELECTOR_CODE_UPD(offset) \
- 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, IF_, 0, 0); \
- IF_(__sel_ret_##offset##_upd_ret) { \
+ EF_(__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_ \
R1.p=(P_)R1.cl->payload[offset]; \
GET_SAVED_CCCS; \
@@ -84,9 +84,8 @@ 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, IF_, 0, 0); \
- 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) { \
FB_ \
R1.p=(P_)R1.cl->payload[offset]; \
GET_SAVED_CCCS; \
@@ -102,7 +101,7 @@ SELECTOR_CODE_UPD(15);
STK_CHK_NP(NOUPD_FRAME_SIZE,1,) \
ENTER_CCS(R1.p); \
SAVE_CCCS(NOUPD_FRAME_SIZE); \
- Sp[-NOUPD_FRAME_SIZE]=(W_)__sel_ret_##offset##_noupd_ret; \
+ Sp[-NOUPD_FRAME_SIZE]=(W_)&__sel_ret_##offset##_noupd_info; \
R1.p = (P_)R1.cl->payload[0]; \
Sp=Sp-NOUPD_FRAME_SIZE; \
JMP_(ENTRY_CODE(*R1.p)); \
--
GitLab