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

[gcc.git] / gcc / ada / trans.c

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);