trans.h (build1_v): Use build1, not build to build the void typed tree.

2005-12-02  Richard Guenther  <rguenther@suse.de>

        * trans.h (build1_v): Use build1, not build to build the
        void typed tree.

From-SVN: r107917

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index ceec7b776fc0ba19fc6acdd69372d17d50eb3437..f599bd625a588fdce26ffdd83777499dfb8c2b00 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2005-12-02  Richard Guenther  <rguenther@suse.de>
+
+       * trans.h (build1_v): Use build1, not build to build the
+       void typed tree.
+
 2005-12-01  Erik Schnetter  <schnetter@aei.mpg.de>
 
        * decl.c (gfc_match_old_kind_spec):  Improve handling of old style

diff --git a/gcc/fortran/trans.h b/gcc/fortran/trans.h
index 02fc2759609da33e5a5337afb1ea6b52a0166437..e2c9f27298543266064feb75718ac60931b207f3 100644 (file)
--- a/gcc/fortran/trans.h
+++ b/gcc/fortran/trans.h
@@ -576,7 +576,7 @@ struct lang_decl            GTY(())
 #define gfc_todo_error(args...) fatal_error("gfc_todo: Not Implemented: " args)
 
 /* Build an expression with void type.  */
-#define build1_v(code, arg) build(code, void_type_node, arg)
+#define build1_v(code, arg) build1(code, void_type_node, arg)
 #define build2_v(code, arg1, arg2) build2(code, void_type_node, \
                                           arg1, arg2)
 #define build3_v(code, arg1, arg2, arg3) build3(code, void_type_node, \