diff options
Diffstat (limited to 'libraries/base/GHC/ExecutionStack/Internal.hsc')
| -rw-r--r-- | libraries/base/GHC/ExecutionStack/Internal.hsc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/base/GHC/ExecutionStack/Internal.hsc b/libraries/base/GHC/ExecutionStack/Internal.hsc index 7db1e86ff7..46deccbd73 100644 --- a/libraries/base/GHC/ExecutionStack/Internal.hsc +++ b/libraries/base/GHC/ExecutionStack/Internal.hsc @@ -171,7 +171,7 @@ stackFrames st@(StackTrace fptr) = unsafePerformIO $ withSession $ \sess -> do frame' = frame `plusPtr` sizeOf (undefined :: Addr) lookupFrame :: Addr -> IO (Maybe Location) - lookupFrame pc = withForeignPtr fptr $ const $ do + lookupFrame pc = withForeignPtr fptr $ const $ allocaBytes locationSize $ \buf -> do ret <- withForeignPtr sess $ \sessPtr -> libdw_lookup_location sessPtr buf pc case ret of |