From 5b50dc399fc77ef900e69a6262ec8fc5232575da Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Fri, 15 Feb 2002 12:29:46 +0000
Subject: [PATCH] [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.
---
ghc/compiler/deSugar/DsForeign.lhs | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/ghc/compiler/deSugar/DsForeign.lhs b/ghc/compiler/deSugar/DsForeign.lhs
index 30f1089c87a8..9bb1d3ac2210 100644
--- 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)
--
GitLab