Commit 6d6a9574 authored by simonmar's avatar simonmar
Browse files

[project @ 2005-04-25 13:45:40 by simonmar]

Yet another StgClosure that should be StgThunk
parent c63c56c2
...@@ -199,9 +199,9 @@ rts_mkString (char *s) ...@@ -199,9 +199,9 @@ rts_mkString (char *s)
HaskellObj HaskellObj
rts_apply (HaskellObj f, HaskellObj arg) rts_apply (HaskellObj f, HaskellObj arg)
{ {
StgClosure *ap; StgThunk *ap;
ap = (StgClosure *)allocate(sizeofW(StgClosure) + 2); ap = (StgThunk *)allocate(sizeofW(StgThunk) + 2);
SET_HDR(ap, (StgInfoTable *)&stg_ap_2_upd_info, CCS_SYSTEM); SET_HDR(ap, (StgInfoTable *)&stg_ap_2_upd_info, CCS_SYSTEM);
ap->payload[0] = f; ap->payload[0] = f;
ap->payload[1] = arg; ap->payload[1] = arg;
......
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