[gcc(refs/users/meissner/heads/work095)] Mangle __ibm128 into u8__ibm128.

[Michael Meissner]

https://gcc.gnu.org/g:6d53d555423a57be9241854cdabfe6f4234b714f

commit 6d53d555423a57be9241854cdabfe6f4234b714f
Author: Michael Meissner <meissner@linux.ibm.com>
Date:   Thu Jul 28 18:46:01 2022 -0400

    Mangle __ibm128 into u8__ibm128.
    
    2022-07-28   Michael Meissner  <meissner@linux.ibm.com>
    
    gcc/
    
            * config/rs6000/rs600.cc (rs6000_mangle_type): Mangle __ibm128 into
            "u8__ibm128".

Diff:
---
 gcc/config/rs6000/rs6000.cc | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/gcc/config/rs6000/rs6000.cc b/gcc/config/rs6000/rs6000.cc
index 0099c8b95ab..a5d67f534c2 100644
--- a/gcc/config/rs6000/rs6000.cc
+++ b/gcc/config/rs6000/rs6000.cc
@@ -20198,6 +20198,12 @@ rs6000_mangle_type (const_tree type)
   if (type == bool_int_type_node) return "U6__booli";
   if (type == bool_long_long_type_node) return "U6__boolx";
 
+  /* If long double uses the IBM 128-bit extended format, we need to
+     distinguish between __ibm128 and long double.  */
+  if (type == ibm128_float_type_node && TARGET_LONG_DOUBLE_128
+      && !TARGET_IEEEQUAD)
+    return "u8__ibm128";
+
   if (SCALAR_FLOAT_TYPE_P (type) && FLOAT128_IBM_P (TYPE_MODE (type)))
     return "g";
   if (SCALAR_FLOAT_TYPE_P (type) && FLOAT128_IEEE_P (TYPE_MODE (type)))