From f2436274a5c296d2344f51331a295c72627e15b3 Mon Sep 17 00:00:00 2001 From: Florian Weimer Date: Tue, 16 Oct 2001 21:12:53 +0200 Subject: [PATCH] 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 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/trans.c | 15 +++++++++------ 2 files changed, 14 insertions(+), 6 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index be4689941d9..1001d667418 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2001-10-16 Florian Weimer + + * trans.c (tree_transform): Adjust to recent change in + expand_asm_operands to implement named asm operands. + 2001-10-11 Ed Schonberg * exp_ch8.adb (Expand_N_Object_Renaming_Declaration): Bugfix in diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c index 572dff2645c..861c3eaf944 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); -- 2.30.2