From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 1005) id 41C91385041B; Fri, 8 Jul 2022 02:26:20 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 41C91385041B Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit From: Michael Meissner To: gcc-cvs@gcc.gnu.org Subject: [gcc(refs/users/meissner/heads/work093)] Mangle __ibm128 types differently from long double. X-Act-Checkin: gcc X-Git-Author: Michael Meissner X-Git-Refname: refs/users/meissner/heads/work093 X-Git-Oldrev: 00ebb556279776655f4d2b16ffb65915bb89914a X-Git-Newrev: 56bf75efdb8e7b3afeb46b27cc6825a41f11d4a2 Message-Id: <20220708022620.41C91385041B@sourceware.org> Date: Fri, 8 Jul 2022 02:26:20 +0000 (GMT) X-BeenThere: gcc-cvs@gcc.gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gcc-cvs mailing list List-Unsubscribe: , List-Archive: List-Help: List-Subscribe: , X-List-Received-Date: Fri, 08 Jul 2022 02:26:20 -0000 https://gcc.gnu.org/g:56bf75efdb8e7b3afeb46b27cc6825a41f11d4a2 commit 56bf75efdb8e7b3afeb46b27cc6825a41f11d4a2 Author: Michael Meissner Date: Thu Jul 7 22:25:58 2022 -0400 Mangle __ibm128 types differently from long double. 2022-07-07 Michael Meissner 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)))