From 169b432a9074006c98caafa439900fa797e5ad25 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 22 Jan 1998 10:26:41 +0000
Subject: [PATCH] [project @ 1998-01-22 10:26:41 by sof] Define symbols for the
(non-existent) info tables for CCallable and CReturnable (never entered, just
defined to appease the linker.)
---
ghc/runtime/main/StgStartup.lhc | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/ghc/runtime/main/StgStartup.lhc b/ghc/runtime/main/StgStartup.lhc
index 30b29a854904..d37d7354b42e 100644
--- a/ghc/runtime/main/StgStartup.lhc
+++ b/ghc/runtime/main/StgStartup.lhc
@@ -193,12 +193,18 @@ SET_STATIC_HDR(EmptySPTable_closure,EmptyStablePointerTable_info,CC_SUBSUMED,,ED
/* End of SP stuff */
#endif /* !PAR */
+/* Not a natural home for these, but
+ the following symbols may be referenced in
+ an object file, but never entered
+*/
+P_ GHC_void_closure = (P_) 0xbadbadbaL;
+P_ GHC_ZcCCallable_static_info = (P_) 0xbadbadbaL;
+P_ GHC_ZcCReturnable_static_info = (P_) 0xbadbadbaL;
/* the IoWorld token to start the whole thing off */
/* Question: this is just an amusing hex code isn't it
-- or does it mean something? ADR */
P_ realWorldZh_closure = (P_) 0xbadbadbaL;
-P_ GHC_void_closure = (P_) 0xbadbadbaL;
#ifndef CONCURRENT
--
GitLab