From f77b5a6274b1a646e5521c4c60c1004377ac3fcf Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Fri, 15 Jan 1999 12:47:20 +0000
Subject: [PATCH] [project @ 1999-01-15 12:47:19 by sewardj] Remove 'const'
 modifier from static closure declarations.  Static closures are meant to live
 in R/W data space.

---
 ghc/includes/StgMiscClosures.h | 8 ++++----
 ghc/rts/StgMiscClosures.hc     | 8 ++++----
 2 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/ghc/includes/StgMiscClosures.h b/ghc/includes/StgMiscClosures.h
index 2ef0534c8dc9..a313a4d71409 100644
--- a/ghc/includes/StgMiscClosures.h
+++ b/ghc/includes/StgMiscClosures.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: StgMiscClosures.h,v 1.3 1999/01/13 17:25:54 simonm Exp $
+ * $Id: StgMiscClosures.h,v 1.4 1999/01/15 12:47:19 sewardj Exp $
  *
  * Entry code for various built-in closure types.
  *
@@ -79,9 +79,9 @@ extern const StgInfoTable ret_bco_info;
 
 /* closures */
 
-extern const StgClosure END_TSO_QUEUE_closure;
-extern const StgClosure END_MUT_LIST_closure;
-extern const StgClosure dummy_ret_closure;
+extern StgClosure END_TSO_QUEUE_closure;
+extern StgClosure END_MUT_LIST_closure;
+extern StgClosure dummy_ret_closure;
 
 extern StgIntCharlikeClosure CHARLIKE_closure[];
 extern StgIntCharlikeClosure INTLIKE_closure[];
diff --git a/ghc/rts/StgMiscClosures.hc b/ghc/rts/StgMiscClosures.hc
index 3e8cd99527b2..f426d598ad35 100644
--- a/ghc/rts/StgMiscClosures.hc
+++ b/ghc/rts/StgMiscClosures.hc
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: StgMiscClosures.hc,v 1.3 1999/01/13 17:25:46 simonm Exp $
+ * $Id: StgMiscClosures.hc,v 1.4 1999/01/15 12:47:20 sewardj Exp $
  *
  * Entry code for various built-in closure types.
  *
@@ -242,7 +242,7 @@ NON_ENTERABLE_ENTRY_CODE(EMPTY_MVAR);
 INFO_TABLE_CONSTR(END_TSO_QUEUE_info,END_TSO_QUEUE_entry,0,0,0,CONSTR_NOCAF_STATIC,const,EF_,0,0);
 NON_ENTERABLE_ENTRY_CODE(END_TSO_QUEUE);
 
-SET_STATIC_HDR(END_TSO_QUEUE_closure,END_TSO_QUEUE_info,0/*CC*/,const,EI_)
+SET_STATIC_HDR(END_TSO_QUEUE_closure,END_TSO_QUEUE_info,0/*CC*/,,EI_)
 };
 
 /* -----------------------------------------------------------------------------
@@ -256,7 +256,7 @@ SET_STATIC_HDR(END_TSO_QUEUE_closure,END_TSO_QUEUE_info,0/*CC*/,const,EI_)
 INFO_TABLE_CONSTR(END_MUT_LIST_info,END_MUT_LIST_entry,0,0,0,CONSTR_NOCAF_STATIC,const,EF_,0,0);
 NON_ENTERABLE_ENTRY_CODE(END_MUT_LIST);
 
-SET_STATIC_HDR(END_MUT_LIST_closure,END_MUT_LIST_info,0/*CC*/,const,EI_)
+SET_STATIC_HDR(END_MUT_LIST_closure,END_MUT_LIST_info,0/*CC*/,,EI_)
 };
 
 INFO_TABLE(MUT_CONS_info, MUT_CONS_entry, 1, 1, MUT_VAR, const, EF_, 0, 0);
@@ -329,7 +329,7 @@ FN_(dummy_ret_entry)
   Sp++;
   JMP_(ENTRY_CODE(ret_addr));
 }
-SET_STATIC_HDR(dummy_ret_closure,dummy_ret_info,CCS_DONTZuCARE,const,EI_)
+SET_STATIC_HDR(dummy_ret_closure,dummy_ret_info,CCS_DONTZuCARE,,EI_)
 };
 
 /* -----------------------------------------------------------------------------
-- 
GitLab