diff options
| author | Sohail Somani <sohail@sohailsomani.com> | 2004-12-30 12:24:06 +0100 |
|---|---|---|
| committer | Andreas Jaeger <aj@gcc.gnu.org> | 2004-12-30 12:24:06 +0100 |
| commit | 15cd18b9a469833eed13556a1f941526d6c23ec8 (patch) | |
| tree | 61e090b3b8a53741b02aa913f9ea07a8c27fa8a1 /gcc/ada/trans.c | |
| parent | 9eb892ec7fe35b807b994814a0702e1a329d3b39 (diff) | |
| download | gcc-15cd18b9a469833eed13556a1f941526d6c23ec8.zip gcc-15cd18b9a469833eed13556a1f941526d6c23ec8.tar.gz gcc-15cd18b9a469833eed13556a1f941526d6c23ec8.tar.bz2 | |
re PR ada/19128 (Bug box while building asharp)
2004-12-30 Sohail Somani <sohail@sohailsomani.com>
PR ada/19128
* trans.c (gnat_to_gnu): Fix typo: Use correct return variable.
From-SVN: r92732
Diffstat (limited to 'gcc/ada/trans.c')
| -rw-r--r-- | gcc/ada/trans.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c index a93ff5d..a005fed 100644 --- a/gcc/ada/trans.c +++ b/gcc/ada/trans.c @@ -3546,8 +3546,8 @@ gnat_to_gnu (Node_Id gnat_node) are doing a call, pass that target to the call. */ if (TYPE_RETURNS_BY_TARGET_PTR_P (gnu_subprog_type) && Nkind (Expression (gnat_node)) == N_Function_Call) - gnu_result = call_to_gnu (Expression (gnat_node), - &gnu_result_type, gnu_lhs); + gnu_ret_val = call_to_gnu (Expression (gnat_node), + &gnu_result_type, gnu_lhs); else { |