diff options
author | Eric Lindblad <lindblad@gmx.us> | 2022-07-24 17:23:53 +0000 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-08-16 09:01:26 -0400 |
commit | ffc9116e6223c0a90a51c05ff4b471b7f5af1b55 (patch) | |
tree | 9c84f294e9c08ad899096eaa6eb39f466d403f29 /rts | |
parent | dca43a04fb36e0ae0ed61455f215660eed2856a9 (diff) | |
download | haskell-ffc9116e6223c0a90a51c05ff4b471b7f5af1b55.tar.gz |
typo
Diffstat (limited to 'rts')
-rw-r--r-- | rts/Interpreter.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/Interpreter.c b/rts/Interpreter.c index e2b17075bc..581238c36a 100644 --- a/rts/Interpreter.c +++ b/rts/Interpreter.c @@ -1875,7 +1875,7 @@ run_BCO: int flags = BCO_NEXT; bool interruptible = flags & 0x1; bool unsafe_call = flags & 0x2; - void(*marshall_fn)(void*) = (void (*)(void*))BCO_LIT(o_itbl); + void(*marshal_fn)(void*) = (void (*)(void*))BCO_LIT(o_itbl); /* the stack looks like this: @@ -1902,7 +1902,7 @@ run_BCO: #define ROUND_UP_WDS(p) ((((StgWord)(p)) + sizeof(W_)-1)/sizeof(W_)) - ffi_cif *cif = (ffi_cif *)marshall_fn; + ffi_cif *cif = (ffi_cif *)marshal_fn; uint32_t nargs = cif->nargs; uint32_t ret_size; uint32_t i; |