diff options
| author | Jim Wilson <wilson@gcc.gnu.org> | 1993-12-21 11:26:59 -0800 |
|---|---|---|
| committer | Jim Wilson <wilson@gcc.gnu.org> | 1993-12-21 11:26:59 -0800 |
| commit | 87ac38094d4fa5a8e3be604b18153c714d654cd5 (patch) | |
| tree | da84f9fdeddc9ba5bf4e3076431451651a02b4c2 /gcc | |
| parent | 38d42368127ac8d4f82722d68e0ce9d152d2435b (diff) | |
| download | gcc-87ac38094d4fa5a8e3be604b18153c714d654cd5.zip gcc-87ac38094d4fa5a8e3be604b18153c714d654cd5.tar.gz gcc-87ac38094d4fa5a8e3be604b18153c714d654cd5.tar.bz2 | |
(FUNCTION_ARG_PASS_BY_REFERENCE): Also pass Pascal arrays by reference.
From-SVN: r6255
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/config/sparc/sparc.h | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/config/sparc/sparc.h b/gcc/config/sparc/sparc.h index 2ce76de..08217a3 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 |