diff options
| author | aj <aj@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-12-30 11:24:06 +0000 |
|---|---|---|
| committer | aj <aj@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-12-30 11:24:06 +0000 |
| commit | 206929f901ff27da9e52d867eb57f4a66b38b368 (patch) | |
| tree | 61e090b3b8a53741b02aa913f9ea07a8c27fa8a1 /gcc/ada/trans.c | |
| parent | b5266a0cbda1d4deb0c4a8ebfca64607d4b0d9d7 (diff) | |
| download | gcc-206929f901ff27da9e52d867eb57f4a66b38b368.tar.gz | |
2004-12-30 Sohail Somani <sohail@sohailsomani.com>
PR ada/19128
* trans.c (gnat_to_gnu): Fix typo: Use correct return variable.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@92732 138bc75d-0d04-0410-961f-82ee72b054a4
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 a93ff5d2374..a005fed641c 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 { |