trans.c (tree_transform): Adjust to recent change in expand_asm_operands to implement...

	* trans.c (tree_transform): Adjust to recent change in
	expand_asm_operands to implement named asm operands.

From-SVN: r46289

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index be4689941d9dac7d9a4e54aafa24f5d20dc1364a..1001d667418787409429dc20154cedd1e362c289 100644 (file)
--- 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 572dff2645c9d2cf783f83306409e6b7624f106e..861c3eaf944fc6a65344067a06466fa5acc4585b 100644 (file)
--- 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);