diff options
| author | Florian Weimer <fw@deneb.enyo.de> | 2001-10-16 21:12:53 +0200 |
|---|---|---|
| committer | Geert Bosch <bosch@gcc.gnu.org> | 2001-10-16 21:12:53 +0200 |
| commit | f2436274a5c296d2344f51331a295c72627e15b3 (patch) | |
| tree | 61ec73e57f1b1386bc603490416a08525f170a69 | |
| parent | 756b2d5ef5c8e18cf61ab632afb10502fd6904dd (diff) | |
| download | gcc-f2436274a5c296d2344f51331a295c72627e15b3.zip gcc-f2436274a5c296d2344f51331a295c72627e15b3.tar.gz gcc-f2436274a5c296d2344f51331a295c72627e15b3.tar.bz2 | |
trans.c (tree_transform): Adjust to recent change in expand_asm_operands to implement named asm operands.
* trans.c (tree_transform): Adjust to recent change in
expand_asm_operands to implement named asm operands.
From-SVN: r46289
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/trans.c | 15 |
2 files changed, 14 insertions, 6 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index be46899..1001d66 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2001-10-16 Florian Weimer <fw@deneb.enyo.de> + + * trans.c (tree_transform): Adjust to recent change in + expand_asm_operands to implement named asm operands. + 2001-10-11 Ed Schonberg <schonber@gnat.com> * exp_ch8.adb (Expand_N_Object_Renaming_Declaration): Bugfix in diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c index 572dff2..861c3ea 100644 --- a/gcc/ada/trans.c +++ b/gcc/ada/trans.c @@ -6,7 +6,7 @@ * * * C Implementation File * * * - * $Revision: 1.2 $ + * $Revision$ * * * Copyright (C) 1992-2001, Free Software Foundation, Inc. * * * @@ -3610,10 +3610,12 @@ tree_transform (gnat_node) Setup_Asm_Inputs (gnat_node); while (Present (gnat_temp = Asm_Input_Value ())) { - gnu_input_list = tree_cons (gnat_to_gnu - (Asm_Input_Constraint ()), - gnat_to_gnu (gnat_temp), - gnu_input_list); + tree gnu_value = gnat_to_gnu (gnat_temp); + tree gnu_constr = build_tree_list (NULL_TREE, gnat_to_gnu + (Asm_Input_Constraint ())); + + gnu_input_list + = tree_cons (gnu_constr, gnu_value, gnu_input_list); Next_Asm_Input (); } @@ -3621,7 +3623,8 @@ tree_transform (gnat_node) while (Present (gnat_temp = Asm_Output_Variable ())) { tree gnu_value = gnat_to_gnu (gnat_temp); - tree gnu_constr = gnat_to_gnu (Asm_Output_Constraint ()); + tree gnu_constr = build_tree_list (NULL_TREE, gnat_to_gnu + (Asm_Output_Constraint ())); gnu_orig_out_list = tree_cons (gnu_constr, gnu_value, gnu_orig_out_list); |