From: Jim Wilson <wilson@gcc.gnu.org>
Date: Tue, 21 Dec 1993 19:26:59 +0000 (-0800)
Subject: (FUNCTION_ARG_PASS_BY_REFERENCE): Also pass Pascal arrays by reference.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=87ac38094d4fa5a8e3be604b18153c714d654cd5;p=gcc.git

(FUNCTION_ARG_PASS_BY_REFERENCE): Also pass Pascal arrays by reference.

From-SVN: r6255
---

diff --git a/gcc/config/sparc/sparc.h b/gcc/config/sparc/sparc.h
index 2ce76de637e..08217a38c03 100644
--- a/gcc/config/sparc/sparc.h
+++ b/gcc/config/sparc/sparc.h
@@ -872,10 +872,12 @@ extern char leaf_reg_backmap[];
    : 0)
 
 /* The SPARC ABI stipulates passing struct arguments (of any size) and
-   quad-precision floats by invisible reference.  */
+   quad-precision floats by invisible reference.
+   For Pascal, also pass arrays by reference.  */
 #define FUNCTION_ARG_PASS_BY_REFERENCE(CUM, MODE, TYPE, NAMED)		\
   ((TYPE && (TREE_CODE (TYPE) == RECORD_TYPE				\
-	    || TREE_CODE (TYPE) == UNION_TYPE))				\
+	    || TREE_CODE (TYPE) == UNION_TYPE				\
+    	    || TREE_CODE (TYPE) == ARRAY_TYPE))				\
    || (MODE == TFmode))
 
 /* Define the information needed to generate branch and scc insns.  This is