From: Richard Kenner <kenner@gcc.gnu.org>
Date: Wed, 11 Dec 1996 14:01:35 +0000 (-0500)
Subject: (RETURN_POPS_ARGS): Test first argument for IDENTIFIER_NODE.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=e34fc61568bef867b6745442de3fc4e1961926fd;p=gcc.git

(RETURN_POPS_ARGS): Test first argument for IDENTIFIER_NODE.

From-SVN: r13278
---

diff --git a/gcc/config/gmicro/gmicro.h b/gcc/config/gmicro/gmicro.h
index 6333b1e1e3c..1cb6cc9ef7b 100644
--- a/gcc/config/gmicro/gmicro.h
+++ b/gcc/config/gmicro/gmicro.h
@@ -460,10 +460,10 @@ extern enum reg_class regno_reg_class[];
    for the Gmicro. The option name may be changed in the future. */
 
 #define RETURN_POPS_ARGS(FUNDECL,FUNTYPE,SIZE)   \
-  ((TARGET_RTD && TREE_CODE (FUNTYPE) != IDENTIFIER_NODE	\
+  ((TARGET_RTD && TREE_CODE (FUNDECL) != IDENTIFIER_NODE	\
     && (TYPE_ARG_TYPES (FUNTYPE) == 0				\
 	|| (TREE_VALUE (tree_last (TYPE_ARG_TYPES (FUNTYPE)))	\
-	    = void_type_node)))					\
+	    == void_type_node)))					\
    ? (SIZE) : 0)
 
 /* Define how to find the value returned by a function.
diff --git a/gcc/config/i386/next.h b/gcc/config/i386/next.h
index ab36b8cef7a..62c8dd6f25b 100644
--- a/gcc/config/i386/next.h
+++ b/gcc/config/i386/next.h
@@ -1,5 +1,5 @@
 /* Target definitions for GNU compiler for Intel x86 CPU running NeXTSTEP
-   Copyright (C) 1993, 1995 Free Software Foundation, Inc.
+   Copyright (C) 1993, 1995, 1996 Free Software Foundation, Inc.
 
 This file is part of GNU CC.
 
@@ -216,7 +216,7 @@ Boston, MA 02111-1307, USA.  */
 
 #undef	RETURN_POPS_ARGS
 #define RETURN_POPS_ARGS(FUNDECL,FUNTYPE,SIZE) 				\
-  (TREE_CODE (FUNTYPE) == IDENTIFIER_NODE			\
+  (TREE_CODE (FUNDECL) == IDENTIFIER_NODE			\
    ? 0								\
    : (TARGET_RTD						\
       && (TYPE_ARG_TYPES (FUNTYPE) == 0				\
diff --git a/gcc/config/i386/sco.h b/gcc/config/i386/sco.h
index 81034e42fa2..8676889f944 100644
--- a/gcc/config/i386/sco.h
+++ b/gcc/config/i386/sco.h
@@ -1,5 +1,5 @@
 /* Definitions for Intel 386 running SCO Unix System V.
-   Copyright (C) 1988, 1992, 1994, 1995 Free Software Foundation, Inc.
+   Copyright (C) 1988, 1992, 1994, 1995 Free, 1996 Software Foundation, Inc.
 
 This file is part of GNU CC.
 
@@ -104,7 +104,7 @@ Boston, MA 02111-1307, USA.  */
 
 #undef RETURN_POPS_ARGS
 #define RETURN_POPS_ARGS(FUNDECL,FUNTYPE,SIZE)   \
-  (TREE_CODE (FUNTYPE) == IDENTIFIER_NODE ? 0			\
+  (TREE_CODE (FUNDECL) == IDENTIFIER_NODE ? 0			\
    : (TARGET_RTD						\
       && (TYPE_ARG_TYPES (FUNTYPE) == 0				\
 	  || (TREE_VALUE (tree_last (TYPE_ARG_TYPES (FUNTYPE)))	\
diff --git a/gcc/config/i386/sco5.h b/gcc/config/i386/sco5.h
index d5546c9f87e..ac8dc15d6e1 100644
--- a/gcc/config/i386/sco5.h
+++ b/gcc/config/i386/sco5.h
@@ -674,7 +674,7 @@ dtors_section ()							\
 #define RETURN_POPS_ARGS(FUNDECL,FUNTYPE,SIZE) 				\
  ((TARGET_ELF) ?							\
   (i386_return_pops_args (FUNDECL, FUNTYPE, SIZE)) : 			\
-  (TREE_CODE (FUNTYPE) == IDENTIFIER_NODE ? 0				\
+  (TREE_CODE (FUNDECL) == IDENTIFIER_NODE ? 0				\
    : (TARGET_RTD							\
       && (TYPE_ARG_TYPES (FUNTYPE) == 0					\
 	  || (TREE_VALUE (tree_last (TYPE_ARG_TYPES (FUNTYPE)))		\
diff --git a/gcc/config/i386/scodbx.h b/gcc/config/i386/scodbx.h
index 7f068957b03..3a7a1984c20 100644
--- a/gcc/config/i386/scodbx.h
+++ b/gcc/config/i386/scodbx.h
@@ -1,6 +1,6 @@
 /* Definitions for Intel 386 running SCO Unix System V,
    using dbx-in-coff encapsulation.
-   Copyright (C) 1992, 1995 Free Software Foundation, Inc.
+   Copyright (C) 1992, 1995, 1996 Free Software Foundation, Inc.
 
 This file is part of GNU CC.
 
@@ -75,7 +75,7 @@ Boston, MA 02111-1307, USA.  */
 
 #undef RETURN_POPS_ARGS
 #define RETURN_POPS_ARGS(FUNDECL,FUNTYPE,SIZE)   \
-  (TREE_CODE (FUNTYPE) == IDENTIFIER_NODE ? 0			\
+  (TREE_CODE (FUNDECL) == IDENTIFIER_NODE ? 0			\
    : (TARGET_RTD						\
       && (TYPE_ARG_TYPES (FUNTYPE) == 0				\
 	  || (TREE_VALUE (tree_last (TYPE_ARG_TYPES (FUNTYPE)))	\
diff --git a/gcc/config/m68k/m68k.h b/gcc/config/m68k/m68k.h
index 84834626c31..244bb8faaa9 100644
--- a/gcc/config/m68k/m68k.h
+++ b/gcc/config/m68k/m68k.h
@@ -818,7 +818,7 @@ extern enum reg_class regno_reg_class[];
    the caller must always pop the args.  */
 
 #define RETURN_POPS_ARGS(FUNDECL,FUNTYPE,SIZE)   \
-  ((TARGET_RTD && TREE_CODE (FUNTYPE) != IDENTIFIER_NODE	\
+  ((TARGET_RTD && TREE_CODE (FUNDECL) != IDENTIFIER_NODE	\
     && (TYPE_ARG_TYPES (FUNTYPE) == 0				\
 	|| (TREE_VALUE (tree_last (TYPE_ARG_TYPES (FUNTYPE)))	\
 	    == void_type_node)))				\
diff --git a/gcc/config/ns32k/ns32k.h b/gcc/config/ns32k/ns32k.h
index f10c772e0ba..854c794314f 100644
--- a/gcc/config/ns32k/ns32k.h
+++ b/gcc/config/ns32k/ns32k.h
@@ -405,7 +405,7 @@ enum reg_class { NO_REGS, GENERAL_REGS, FLOAT_REGS, GEN_AND_FP_REGS,
    the caller must always pop the args.  */
 
 #define RETURN_POPS_ARGS(FUNDECL,FUNTYPE,SIZE)   \
-  ((TARGET_RTD && TREE_CODE (FUNTYPE) != IDENTIFIER_NODE	\
+  ((TARGET_RTD && TREE_CODE (FUNDECL) != IDENTIFIER_NODE	\
     && (TYPE_ARG_TYPES (FUNTYPE) == 0				\
 	|| (TREE_VALUE (tree_last (TYPE_ARG_TYPES (FUNTYPE)))	\
 	    == void_type_node)))				\
diff --git a/gcc/config/pyr/pyr.h b/gcc/config/pyr/pyr.h
index db9d1742e23..407a39ed7ce 100644
--- a/gcc/config/pyr/pyr.h
+++ b/gcc/config/pyr/pyr.h
@@ -495,7 +495,7 @@ enum reg_class { NO_REGS, ALL_REGS, LIM_REG_CLASSES };
    We may nevertheless provide this as an option.   */
 
 #define RETURN_POPS_ARGS(FUNDECL,FUNTYPE,SIZE)   \
-  ((TARGET_RETD && TREE_CODE (FUNTYPE) != IDENTIFIER_NODE	\
+  ((TARGET_RETD && TREE_CODE (FUNDECL) != IDENTIFIER_NODE	\
     && (TYPE_ARG_TYPES (FUNTYPE) == 0				\
 	|| (TREE_VALUE (tree_last (TYPE_ARG_TYPES (FUNTYPE)))	\
 	    == void_type_node)))				\