Commit 5b50dc39 authored by sewardj's avatar sewardj
Browse files

[project @ 2002-02-15 12:29:46 by sewardj]

For f-x-dynamic, x86, ccall: rename "a_" to "original_return_addr" so
that the next luzer to look at this stuff doesn't have to spend hours
figuring out what the hell "a_" is for.
parent 92f336f6
......@@ -519,7 +519,8 @@ fexportEntry mod_nm c_nm helper args res_ty cc isDyn = (header_bits, c_bits)
-}
(proto_args, real_args)
= case cc of
CCallConv | isDyn -> ( text "a0" : text "a_" : mkCArgNames 1 (tail args)
CCallConv | isDyn -> ( text "a0" : text "original_return_addr"
: mkCArgNames 1 (tail args)
, head args : addrTy : tail args)
other -> (mkCArgNames 0 args, args)
......
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