Commit 16179470 authored by simonmar's avatar simonmar
Browse files

[project @ 2001-05-30 13:20:11 by simonmar]

Fix a difference between the NCG implementation of the UPD_CAF() macro
and the C version.  I think the C version was changed recently but the
NCG version never caught up.  Fixes a crash in GHCi with NCG compiled
code.
parent 68a1501e
......@@ -72,13 +72,13 @@ adding an indirection.
macroCode UPD_CAF args
= let
[cafptr,bhptr] = map amodeToStix args
new_caf = StCall SLIT("newCAF") CCallConv VoidRep [cafptr]
w0 = StInd PtrRep cafptr
w1 = StInd PtrRep (StIndex PtrRep cafptr fixedHS)
a1 = StAssign PtrRep w0 ind_static_info
a2 = StAssign PtrRep w1 bhptr
a3 = StCall SLIT("newCAF") CCallConv VoidRep [cafptr]
a1 = StAssign PtrRep w1 bhptr
a2 = StAssign PtrRep w0 ind_static_info
in
returnUs (\xs -> a1 : a2 : a3 : xs)
returnUs (\xs -> new_caf : a1 : a2 : xs)
\end{code}
-----------------------------------------------------------------------------
......
Supports Markdown
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