[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.

diff --git a/ghc/compiler/deSugar/DsForeign.lhs b/ghc/compiler/deSugar/DsForeign.lhs
index 30f1089..9bb1d3a 100644 (file)
--- a/ghc/compiler/deSugar/DsForeign.lhs
+++ b/ghc/compiler/deSugar/DsForeign.lhs
@@ -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)