diff options
Diffstat (limited to 'compiler/ghci/ByteCodeGen.hs')
| -rw-r--r-- | compiler/ghci/ByteCodeGen.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/ghci/ByteCodeGen.hs b/compiler/ghci/ByteCodeGen.hs index 5c236f3dab..2695a98f9e 100644 --- a/compiler/ghci/ByteCodeGen.hs +++ b/compiler/ghci/ByteCodeGen.hs @@ -409,14 +409,14 @@ getVarOffSets depth env = catMaybes . map getOffSet Nothing -> Nothing Just offset -> -- michalt: I'm not entirely sure why we need the stack - -- adjustement by 2 here. I initially thought that there's + -- adjustment by 2 here. I initially thought that there's -- something off with getIdValFromApStack (the only user of this -- value), but it looks ok to me. My current hypothesis is that - -- this "adjustement" is needed due to stack manipulation for + -- this "adjustment" is needed due to stack manipulation for -- BRK_FUN in Interpreter.c In any case, this is used only when -- we trigger a breakpoint. - let adjustement = 2 - in Just (id, trunc16 $ depth - offset + adjustement) + let adjustment = 2 + in Just (id, trunc16 $ depth - offset + adjustment) trunc16 :: Word -> Word16 trunc16 w |