From 87ac38094d4fa5a8e3be604b18153c714d654cd5 Mon Sep 17 00:00:00 2001 From: Jim Wilson Date: Tue, 21 Dec 1993 11:26:59 -0800 Subject: [PATCH] (FUNCTION_ARG_PASS_BY_REFERENCE): Also pass Pascal arrays by reference. From-SVN: r6255 --- gcc/config/sparc/sparc.h | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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 -- 2.30.2