[gcc(refs/users/meissner/heads/work093)] Mangle __ibm128 types differently from long double.

[gcc(refs/users/meissner/heads/work093)] Mangle __ibm128 types differently from long double.

[Michael Meissner]

https://gcc.gnu.org/g:56bf75efdb8e7b3afeb46b27cc6825a41f11d4a2

commit 56bf75efdb8e7b3afeb46b27cc6825a41f11d4a2
Author: Michael Meissner <meissner@linux.ibm.com>
Date:   Thu Jul 7 22:25:58 2022 -0400

    Mangle __ibm128 types differently from long double.
    
    2022-07-07   Michael Meissner  <meissner@linux.ibm.com>
    
    gcc/
    
            * config/rs6000/rs6000.cc (rs6000_mangle_type): Mangle __ibm128
            differently than long double if long double uses the IBM 128-bit
            format.

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 26d16ff5397..541b4679907 100644
--- a/gcc/config/rs6000/rs6000.cc
+++ b/gcc/config/rs6000/rs6000.cc
@@ -20196,6 +20196,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)))