S/390: Add CFI for mcount call sequences

2018-07-18  Ilya Leoshkevich  <iii@linux.ibm.com>

	* config/s390/s390.c (s390_function_profiler): Generate CFI.

From-SVN: r262850

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 0249082f618228a4a07d01977f01816fa4151131..9ed75cd6d788a5e3d225e2d99aeb8929e9efa113 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,7 @@
+2018-07-18  Ilya Leoshkevich  <iii@linux.ibm.com>
+
+       * config/s390/s390.c (s390_function_profiler): Generate CFI.
+
 2018-07-17  Jeff Law  <law@redhat.com>
 
        * config/arm/arm.c (get_label_padding): Update for recent

diff --git a/gcc/config/s390/s390.c b/gcc/config/s390/s390.c
index 60afe4184832efc51408f555a02c4747ec276c2b..a579e9d5a27f68c4fe05d9b9cc008baba5a3be5b 100644 (file)
--- a/gcc/config/s390/s390.c
+++ b/gcc/config/s390/s390.c
@@ -13154,7 +13154,7 @@ output_asm_nops (const char *user, int hw)
 void
 s390_function_profiler (FILE *file, int labelno)
 {
-  rtx op[7];
+  rtx op[8];
 
   char label[128];
   ASM_GENERATE_INTERNAL_LABEL (label, "LP", labelno);
@@ -13164,6 +13164,7 @@ s390_function_profiler (FILE *file, int labelno)
   op[0] = gen_rtx_REG (Pmode, RETURN_REGNUM);
   op[1] = gen_rtx_REG (Pmode, STACK_POINTER_REGNUM);
   op[1] = gen_rtx_MEM (Pmode, plus_constant (Pmode, op[1], UNITS_PER_LONG));
+  op[7] = GEN_INT (UNITS_PER_LONG);
 
   op[2] = gen_rtx_REG (Pmode, 1);
   op[3] = gen_rtx_SYMBOL_REF (Pmode, label);
@@ -13197,9 +13198,13 @@ s390_function_profiler (FILE *file, int labelno)
       else
         {
           output_asm_insn ("stg\t%0,%1", op);
+          if (flag_dwarf2_cfi_asm)
+            output_asm_insn (".cfi_rel_offset\t%0,%7", op);
           output_asm_insn ("larl\t%2,%3", op);
           output_asm_insn ("brasl\t%0,%4", op);
           output_asm_insn ("lg\t%0,%1", op);
+          if (flag_dwarf2_cfi_asm)
+            output_asm_insn (".cfi_restore\t%0", op);
         }
     }
   else if (TARGET_CPU_ZARCH)
@@ -13210,9 +13215,13 @@ s390_function_profiler (FILE *file, int labelno)
       else
         {
           output_asm_insn ("st\t%0,%1", op);
+          if (flag_dwarf2_cfi_asm)
+            output_asm_insn (".cfi_rel_offset\t%0,%7", op);
           output_asm_insn ("larl\t%2,%3", op);
           output_asm_insn ("brasl\t%0,%4", op);
           output_asm_insn ("l\t%0,%1", op);
+          if (flag_dwarf2_cfi_asm)
+            output_asm_insn (".cfi_restore\t%0", op);
         }
     }
   else if (!flag_pic)
@@ -13226,6 +13235,8 @@ s390_function_profiler (FILE *file, int labelno)
       else
         {
           output_asm_insn ("st\t%0,%1", op);
+          if (flag_dwarf2_cfi_asm)
+            output_asm_insn (".cfi_rel_offset\t%0,%7", op);
           output_asm_insn ("bras\t%2,%l6", op);
           output_asm_insn (".long\t%4", op);
           output_asm_insn (".long\t%3", op);
@@ -13235,6 +13246,8 @@ s390_function_profiler (FILE *file, int labelno)
           output_asm_insn ("l\t%2,4(%2)", op);
           output_asm_insn ("basr\t%0,%0", op);
           output_asm_insn ("l\t%0,%1", op);
+          if (flag_dwarf2_cfi_asm)
+            output_asm_insn (".cfi_restore\t%0", op);
         }
     }
   else
@@ -13249,6 +13262,8 @@ s390_function_profiler (FILE *file, int labelno)
       else
         {
           output_asm_insn ("st\t%0,%1", op);
+          if (flag_dwarf2_cfi_asm)
+            output_asm_insn (".cfi_rel_offset\t%0,%7", op);
           output_asm_insn ("bras\t%2,%l6", op);
           targetm.asm_out.internal_label (file, "L",
                                           CODE_LABEL_NUMBER (op[5]));
@@ -13261,6 +13276,8 @@ s390_function_profiler (FILE *file, int labelno)
           output_asm_insn ("a\t%2,4(%2)", op);
           output_asm_insn ("basr\t%0,%0", op);
           output_asm_insn ("l\t%0,%1", op);
+          if (flag_dwarf2_cfi_asm)
+            output_asm_insn (".cfi_restore\t%0", op);
         }
     }