diff options
| author | Sven Tennie <sven.tennie@gmail.com> | 2023-04-23 09:07:49 +0000 |
|---|---|---|
| committer | Sven Tennie <sven.tennie@gmail.com> | 2023-05-05 19:59:53 +0000 |
| commit | 2e7ab0e5005382a0bbe261edfa8a3975c9b0b54f (patch) | |
| tree | 2cca0c1fe92f8b0d7338e6b592003d7324aa2ad5 | |
| parent | e94cd05488b0377819255c92627db707446b2134 (diff) | |
| download | haskell-2e7ab0e5005382a0bbe261edfa8a3975c9b0b54f.tar.gz | |
Rename: getBoxedClosure -> getStackClosure
| -rw-r--r-- | libraries/ghc-heap/GHC/Exts/Stack/Decode.hs | 6 | ||||
| -rw-r--r-- | libraries/ghc-heap/cbits/Stack.c | 2 | ||||
| -rw-r--r-- | libraries/ghc-heap/cbits/Stack.cmm | 10 |
3 files changed, 9 insertions, 9 deletions
diff --git a/libraries/ghc-heap/GHC/Exts/Stack/Decode.hs b/libraries/ghc-heap/GHC/Exts/Stack/Decode.hs index 218302cd23..fdb7dc9c37 100644 --- a/libraries/ghc-heap/GHC/Exts/Stack/Decode.hs +++ b/libraries/ghc-heap/GHC/Exts/Stack/Decode.hs @@ -190,8 +190,8 @@ getInfoTableForStack stackSnapshot# = peekItbl $ Ptr (getStackInfoTableAddr# stackSnapshot#) -foreign import prim "getBoxedClosurezh" - getBoxedClosure# :: +foreign import prim "getStackClosurezh" + getStackClosure# :: StackSnapshot# -> Word# -> State# RealWorld -> (# State# RealWorld, Any #) foreign import prim "getStackFieldszh" @@ -230,7 +230,7 @@ advanceStackFrameLocation ((StackSnapshot stackSnapshot#), index) = getClosure :: StackSnapshot# -> WordOffset -> IO Closure getClosure stackSnapshot# index = ( IO $ \s -> - case getBoxedClosure# + case getStackClosure# stackSnapshot# (wordOffsetToWord# index) s of diff --git a/libraries/ghc-heap/cbits/Stack.c b/libraries/ghc-heap/cbits/Stack.c index a8a47605ff..3bbcbf1bd3 100644 --- a/libraries/ghc-heap/cbits/Stack.c +++ b/libraries/ghc-heap/cbits/Stack.c @@ -147,4 +147,4 @@ StgWord getRetFunType(StgRetFun *ret_fun) { return fun_info->f.fun_type; } -StgClosure *getBoxedClosure(StgClosure **c) { return *c; } +StgClosure *getStackClosure(StgClosure **c) { return *c; } diff --git a/libraries/ghc-heap/cbits/Stack.cmm b/libraries/ghc-heap/cbits/Stack.cmm index 1e79f34670..121cda5caa 100644 --- a/libraries/ghc-heap/cbits/Stack.cmm +++ b/libraries/ghc-heap/cbits/Stack.cmm @@ -169,14 +169,14 @@ getStackInfoTableAddrzh(P_ stack) { return (info); } -// getBoxedClosurezh(StgStack* stack, StgWord offsetWords) -getBoxedClosurezh(P_ stack, W_ offsetWords) { +// (StgClosure*) getStackClosurezh(StgStack* stack, StgWord offsetWords) +getStackClosurezh(P_ stack, W_ offsetWords) { P_ ptr; ptr = StgStack_sp(stack) + WDS(offsetWords); - P_ box; - (box) = ccall getBoxedClosure(ptr); - return (box); + P_ closure; + (closure) = ccall getStackClosure(ptr); + return (closure); } // getStackFieldszh(StgStack* stack) |