Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
jberryman
GHC
Commits
271502ff
Commit
271502ff
authored
Jan 19, 2003
by
wolfgang
Browse files
[project @ 2003-01-19 18:41:19 by wolfgang]
Fix two really bad typos in the Mac OS X specific code MERGE TO STABLE
parent
56bcfea3
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/compiler/ghci/ByteCodeFFI.lhs
View file @
271502ff
...
...
@@ -463,7 +463,7 @@ mkMarshalCode_wrk cconv (r_offW, r_rep) addr_offW arg_offs_n_reps
parameterArea = sum [ getPrimRepSize a_rep * bytes_per_word
| (_, a_rep) <- arg_offs_n_reps ]
savedRegisterArea = 4
frameSize = padTo16 (linkageArea + m
in
parameterArea 32 + savedRegisterArea)
frameSize = padTo16 (linkageArea + m
ax
parameterArea 32 + savedRegisterArea)
padTo16 x = case x `mod` 16 of
0 -> x
y -> x - y + 16
...
...
@@ -475,7 +475,7 @@ mkMarshalCode_wrk cconv (r_offW, r_rep) addr_offW arg_offs_n_reps
offsetW' = offsetW + getPrimRepSize a_rep
pass_word w
| w < 8 =
|
offsetW +
w < 8 =
[0x801f0000 -- lwz rX, src(r31)
.|. (fromIntegral src .&. 0xFFFF)
.|. (fromIntegral (offsetW+w+3) `shiftL` 21)]
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment