Commit 388a6347 authored by panne's avatar panne
Browse files

[project @ 2002-01-27 10:53:26 by panne]

Unbreak 2nd stage build by tracking recent RTS naming changes
(ATTENTION: I'm not quite sure what I'm doing here exactly,
 but things seem to work... :-}
parent d117cff1
......@@ -370,12 +370,12 @@ mkBits findLabel st proto_insns
where
ret_itbl_addr
= case pk of
CharRep -> stg_gc_unbx_r1_ret_info
IntRep -> stg_gc_unbx_r1_ret_info
WordRep -> stg_gc_unbx_r1_ret_info
AddrRep -> stg_gc_unbx_r1_ret_info
FloatRep -> stg_gc_f1_ret_info
DoubleRep -> stg_gc_d1_ret_info
CharRep -> stg_gc_unbx_r1_info
IntRep -> stg_gc_unbx_r1_info
WordRep -> stg_gc_unbx_r1_info
AddrRep -> stg_gc_unbx_r1_info
FloatRep -> stg_gc_f1_info
DoubleRep -> stg_gc_d1_info
VoidRep -> nullAddr
-- Interpreter.c spots this special case
other -> pprPanic "ByteCodeLink.itoc_itbl" (ppr pk)
......@@ -386,9 +386,9 @@ foreign label "stg_ctoi_ret_F1_info" stg_ctoi_ret_F1_info :: Addr
foreign label "stg_ctoi_ret_D1_info" stg_ctoi_ret_D1_info :: Addr
foreign label "stg_ctoi_ret_V_info" stg_ctoi_ret_V_info :: Addr
foreign label "stg_gc_unbx_r1_ret_info" stg_gc_unbx_r1_ret_info :: Addr
foreign label "stg_gc_f1_ret_info" stg_gc_f1_ret_info :: Addr
foreign label "stg_gc_d1_ret_info" stg_gc_d1_ret_info :: Addr
foreign label "stg_gc_unbx_r1_info" stg_gc_unbx_r1_info :: Addr
foreign label "stg_gc_f1_info" stg_gc_f1_info :: Addr
foreign label "stg_gc_d1_info" stg_gc_d1_info :: Addr
-- The size in 16-bit entities of an instruction.
instrSize16s :: BCInstr -> Int
......
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