(clipper_builtin_saveregs): If -fcheck-memory-usage, set rights of

saved registers.

From-SVN: r14621

diff --git a/gcc/config/clipper/clipper.c b/gcc/config/clipper/clipper.c
index 9ee6f44498178fc3e1a8452e4da7c880e388f9ae..20da229eae1e91d4175b07680eabfedad62fa0ae 100644 (file)
--- a/gcc/config/clipper/clipper.c
+++ b/gcc/config/clipper/clipper.c
@@ -1,6 +1,5 @@
 /* Subroutines for insn-output.c for Clipper
-   Copyright (C) 1987, 1988, 1991 Free Software Foundation, Inc.
-
+   Copyright (C) 1987, 1988, 1991, 1997 Free Software Foundation, Inc.
    Contributed by Holger Teutsch (holger@hotbso.rhein-main.de)
 
 This file is part of GNU CC.
@@ -438,10 +437,31 @@ clipper_builtin_saveregs (arglist)
                                    gen_rtx (CONST_INT, Pmode, 16))),
                  scratch);
 
+
+  if (flag_check_memory_usage)
+    {
+      emit_library_call (chkr_set_right_libfunc, 1, VOIDmode, 3, addr,
+                        ptr_mode, GEN_INT (5 * GET_MODE_SIZE (SImode)),
+                        TYPE_MODE (sizetype),
+                        GEN_INT (MEMORY_USE_RW), QImode);
+
+      emit_library_call (chkr_set_right_libfunc, 1, VOIDmode, 3, f0_addr,
+                        ptr_mode, GEN_INT (GET_MODE_SIZE (DFmode)),
+                        TYPE_MODE (sizetype), GEN_INT (MEMORY_USE_RW), QImode);
+      emit_library_call (chkr_set_right_libfunc, 1, VOIDmode, 3, f1_addr,
+                        ptr_mode, GEN_INT (GET_MODE_SIZE (DFmode)),
+                        TYPE_MODE (sizetype), GEN_INT (MEMORY_USE_RW), QImode);
+      emit_library_call (chkr_set_right_libfunc, 1, VOIDmode, 3, r0_addr,
+                        ptr_mode, GEN_INT (GET_MODE_SIZE (SImode)),
+                        TYPE_MODE (sizetype), GEN_INT (MEMORY_USE_RW), QImode);
+      emit_library_call (chkr_set_right_libfunc, 1, VOIDmode, 3, r1_addr,
+                        ptr_mode, GEN_INT (GET_MODE_SIZE (SImode)),
+                        TYPE_MODE (sizetype), GEN_INT (MEMORY_USE_RW), QImode);
+    }
+
   /* Return the address of the va_list constructor, but don't put it in a
      register.  This fails when not optimizing and produces worse code when
      optimizing.  */
-
   return XEXP (block, 0);
 }