diff options
| author | Douglas B Rupp <rupp@gnat.com> | 2001-12-05 07:48:34 -0500 |
|---|---|---|
| committer | Richard Kenner <kenner@gcc.gnu.org> | 2001-12-05 07:48:34 -0500 |
| commit | f71307783a96ca77b876c1ee0e8f3c6a33bc9a6a (patch) | |
| tree | 710acd215d431fe513ca449e9c0eb32412e58535 | |
| parent | 4ee43206b1a8daec35f41514f4f3a4bcca0c5c6e (diff) | |
| download | gcc-f71307783a96ca77b876c1ee0e8f3c6a33bc9a6a.zip gcc-f71307783a96ca77b876c1ee0e8f3c6a33bc9a6a.tar.gz gcc-f71307783a96ca77b876c1ee0e8f3c6a33bc9a6a.tar.bz2 | |
* config/alpha/alpha.c (alpha_va_start): Update VMS case.
From-SVN: r47670
| -rw-r--r-- | gcc/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/config/alpha/alpha.c | 47 |
2 files changed, 34 insertions, 17 deletions
diff --git a/gcc/ChangeLog b/gcc/ChangeLog index dc6a8be..a43bbb7 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,7 @@ +Wed Dec 5 07:41:13 2001 Douglas B. Rupp <rupp@gnat.com> + + * config/alpha/alpha.c (alpha_va_start): Update VMS case. + Wed Dec 5 07:27:42 2001 Richard Kenner <kenner@vlsi1.ultra.nyu.edu> Douglas B. Rupp <rupp@gnat.com> diff --git a/gcc/config/alpha/alpha.c b/gcc/config/alpha/alpha.c index c112450..d0c8b21 100644 --- a/gcc/config/alpha/alpha.c +++ b/gcc/config/alpha/alpha.c @@ -5482,7 +5482,7 @@ alpha_va_start (stdarg_p, valist, nextarg) if (TREE_CODE (TREE_TYPE (valist)) == ERROR_MARK) return; - if (TARGET_ABI_OPEN_VMS || TARGET_ABI_UNICOSMK) + if (TARGET_ABI_UNICOSMK) std_expand_builtin_va_start (stdarg_p, valist, nextarg); /* For Unix, SETUP_INCOMING_VARARGS moves the starting address base @@ -5495,28 +5495,41 @@ alpha_va_start (stdarg_p, valist, nextarg) in argsize above, but which are not actually stored on the stack. */ if (NUM_ARGS <= 5 + stdarg_p) - offset = 6 * UNITS_PER_WORD; + offset = TARGET_ABI_OPEN_VMS ? UNITS_PER_WORD : 6 * UNITS_PER_WORD; else offset = -6 * UNITS_PER_WORD; - base_field = TYPE_FIELDS (TREE_TYPE (valist)); - offset_field = TREE_CHAIN (base_field); + if (TARGET_ABI_OPEN_VMS) + { + nextarg = plus_constant (nextarg, offset); + nextarg = plus_constant (nextarg, NUM_ARGS * UNITS_PER_WORD); + t = build (MODIFY_EXPR, TREE_TYPE (valist), valist, + make_tree (ptr_type_node, nextarg)); + TREE_SIDE_EFFECTS (t) = 1; - base_field = build (COMPONENT_REF, TREE_TYPE (base_field), - valist, base_field); - offset_field = build (COMPONENT_REF, TREE_TYPE (offset_field), - valist, offset_field); + expand_expr (t, const0_rtx, VOIDmode, EXPAND_NORMAL); + } + else + { + base_field = TYPE_FIELDS (TREE_TYPE (valist)); + offset_field = TREE_CHAIN (base_field); - t = make_tree (ptr_type_node, virtual_incoming_args_rtx); - t = build (PLUS_EXPR, ptr_type_node, t, build_int_2 (offset, 0)); - t = build (MODIFY_EXPR, TREE_TYPE (base_field), base_field, t); - TREE_SIDE_EFFECTS (t) = 1; - expand_expr (t, const0_rtx, VOIDmode, EXPAND_NORMAL); + base_field = build (COMPONENT_REF, TREE_TYPE (base_field), + valist, base_field); + offset_field = build (COMPONENT_REF, TREE_TYPE (offset_field), + valist, offset_field); - t = build_int_2 (NUM_ARGS*UNITS_PER_WORD, 0); - t = build (MODIFY_EXPR, TREE_TYPE (offset_field), offset_field, t); - TREE_SIDE_EFFECTS (t) = 1; - expand_expr (t, const0_rtx, VOIDmode, EXPAND_NORMAL); + t = make_tree (ptr_type_node, virtual_incoming_args_rtx); + t = build (PLUS_EXPR, ptr_type_node, t, build_int_2 (offset, 0)); + t = build (MODIFY_EXPR, TREE_TYPE (base_field), base_field, t); + TREE_SIDE_EFFECTS (t) = 1; + expand_expr (t, const0_rtx, VOIDmode, EXPAND_NORMAL); + + t = build_int_2 (NUM_ARGS * UNITS_PER_WORD, 0); + t = build (MODIFY_EXPR, TREE_TYPE (offset_field), offset_field, t); + TREE_SIDE_EFFECTS (t) = 1; + expand_expr (t, const0_rtx, VOIDmode, EXPAND_NORMAL); + } } rtx |