S/390: New mcount call sequence for z900+ CPUs in 31-bit mode.

gcc/ChangeLog:

2016-02-15  Marcin Kościelnicki  <koriakin@0x04.net>

	* config/s390/s390.c (s390_function_profiler): Add a new sequence
	for z900+ CPUs in 31-bit mode.

From-SVN: r233422

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index cf178e74baaa54eaba9a7598782082bc99b3ce1a..45f7b6ee81682590899b0bdc8f79a4c404a2d10a 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+2016-02-15  Marcin Kościelnicki  <koriakin@0x04.net>
+
+       * config/s390/s390.c (s390_function_profiler): Add a new sequence
+       for z900+ CPUs in 31-bit mode.
+
 2016-02-15  Marcin Kościelnicki  <koriakin@0x04.net>
 
        * common/config/s390/s390-common.c (s390_supports_split_stack):

diff --git a/gcc/config/s390/s390.c b/gcc/config/s390/s390.c
index aa82d1c2329511f97d139a96544f6550926686ab..b1ab0c07613ac3d6d3f679687d67b2b53f769159 100644 (file)
--- a/gcc/config/s390/s390.c
+++ b/gcc/config/s390/s390.c
@@ -12205,6 +12205,13 @@ s390_function_profiler (FILE *file, int labelno)
       output_asm_insn ("brasl\t%0,%4", op);
       output_asm_insn ("lg\t%0,%1", op);
     }
+  else if (TARGET_CPU_ZARCH)
+    {
+      output_asm_insn ("st\t%0,%1", 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);
+    }
   else if (!flag_pic)
     {
       op[6] = gen_label_rtx ();