Commit f77b5a62 authored by sewardj's avatar sewardj
Browse files

[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.
parent 9d5e9164
/* ----------------------------------------------------------------------------- /* -----------------------------------------------------------------------------
* $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. * Entry code for various built-in closure types.
* *
...@@ -79,9 +79,9 @@ extern const StgInfoTable ret_bco_info; ...@@ -79,9 +79,9 @@ extern const StgInfoTable ret_bco_info;
/* closures */ /* closures */
extern const StgClosure END_TSO_QUEUE_closure; extern StgClosure END_TSO_QUEUE_closure;
extern const StgClosure END_MUT_LIST_closure; extern StgClosure END_MUT_LIST_closure;
extern const StgClosure dummy_ret_closure; extern StgClosure dummy_ret_closure;
extern StgIntCharlikeClosure CHARLIKE_closure[]; extern StgIntCharlikeClosure CHARLIKE_closure[];
extern StgIntCharlikeClosure INTLIKE_closure[]; extern StgIntCharlikeClosure INTLIKE_closure[];
......
/* ----------------------------------------------------------------------------- /* -----------------------------------------------------------------------------
* $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. * Entry code for various built-in closure types.
* *
...@@ -242,7 +242,7 @@ NON_ENTERABLE_ENTRY_CODE(EMPTY_MVAR); ...@@ -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); 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); 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_) ...@@ -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); 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); 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); INFO_TABLE(MUT_CONS_info, MUT_CONS_entry, 1, 1, MUT_VAR, const, EF_, 0, 0);
...@@ -329,7 +329,7 @@ FN_(dummy_ret_entry) ...@@ -329,7 +329,7 @@ FN_(dummy_ret_entry)
Sp++; Sp++;
JMP_(ENTRY_CODE(ret_addr)); 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_)
}; };
/* ----------------------------------------------------------------------------- /* -----------------------------------------------------------------------------
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment