projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
c63c56c
)
[project @ 2005-04-25 13:45:40 by simonmar]
author
simonmar
<unknown>
Mon, 25 Apr 2005 13:45:40 +0000
(13:45 +0000)
committer
simonmar
<unknown>
Mon, 25 Apr 2005 13:45:40 +0000
(13:45 +0000)
Yet another StgClosure that should be StgThunk
ghc/rts/RtsAPI.c
patch
|
blob
|
history
diff --git
a/ghc/rts/RtsAPI.c
b/ghc/rts/RtsAPI.c
index
d196c91
..
0a6b42e
100644
(file)
--- a/
ghc/rts/RtsAPI.c
+++ b/
ghc/rts/RtsAPI.c
@@
-199,9
+199,9
@@
rts_mkString (char *s)
HaskellObj
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);
ap->payload[0] = f;
ap->payload[1] = arg;