Commit 7693d3bd authored by sewardj's avatar sewardj
Browse files

[project @ 2001-10-03 09:56:18 by sewardj]

In the interactive FFI, handle f-i'd fns which return char.
parent a3ccd83f
......@@ -257,6 +257,7 @@ mkMarshalCode_wrk cconv (r_offW, r_rep) addr_offW arg_offs_n_reps
fstps 4(%esi)
-}
++ case r_rep of
CharRep -> movl_eax_offesimem 4
IntRep -> movl_eax_offesimem 4
WordRep -> movl_eax_offesimem 4
AddrRep -> movl_eax_offesimem 4
......@@ -455,6 +456,7 @@ mkMarshalCode_wrk cconv (r_offW, r_rep) addr_offW arg_offs_n_reps
f64 = [mkSTF f0 i0 4, mkSTF f1 i0 8]
in
case r_rep of
CharRep -> i32
IntRep -> i32
WordRep -> i32
AddrRep -> i32
......
......@@ -838,6 +838,7 @@ generateCCall d0 s p ccall_spec@(CCallSpec target cconv safety) fn args_r_to_l
mkDummyLiteral :: PrimRep -> Literal
mkDummyLiteral pr
= case pr of
CharRep -> MachChar 0
IntRep -> MachInt 0
DoubleRep -> MachDouble 0
FloatRep -> MachFloat 0
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment