[gcc(refs/users/meissner/heads/work029)] Revert patch.

[gcc(refs/users/meissner/heads/work029)] Revert patch.

[Michael Meissner]

https://gcc.gnu.org/g:02b3f98191a238a58db6e6a357a219c357876ce6

commit 02b3f98191a238a58db6e6a357a219c357876ce6
Author: Michael Meissner <meissner@linux.ibm.com>
Date:   Thu Dec 3 21:17:23 2020 -0500

    Revert patch.
    
    gcc/testsuite/
    2020-12-03  Michael Meissner  <meissner@linux.ibm.com>
    
            Revert.
            * c-c++-common/dfp/convert-bfp-11.c: Require IBM 128-bit long
            double.

Diff:
---
 gcc/testsuite/c-c++-common/dfp/convert-bfp-11.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/gcc/testsuite/c-c++-common/dfp/convert-bfp-11.c b/gcc/testsuite/c-c++-common/dfp/convert-bfp-11.c
index 8c970bb76db..95c433d2c24 100644
--- a/gcc/testsuite/c-c++-common/dfp/convert-bfp-11.c
+++ b/gcc/testsuite/c-c++-common/dfp/convert-bfp-11.c
@@ -1,5 +1,4 @@
-/* { dg-require-effective-target dfp } */
-/* { dg-require-effective-target ppc_long_double_ibm } */
+/* { dg-skip-if "" { ! "powerpc*-*-linux*" } } */
 
 /* Test decimal float conversions to and from IBM 128-bit long double. 
    Checks are skipped at runtime if long double is not 128 bits.

[gcc(refs/users/meissner/heads/work029)] Revert patch.

[Michael Meissner]

https://gcc.gnu.org/g:f4446fb5da7d75faf047419bb9d7224a4e3fe49a

commit f4446fb5da7d75faf047419bb9d7224a4e3fe49a
Author: Michael Meissner <meissner@linux.ibm.com>
Date:   Thu Dec 10 15:03:35 2020 -0500

    Revert patch.
    
    libgcc/
    2020-12-10  Michael Meissner  <meissner@linux.ibm.com>
    
            Revert.
            * config/rs6000/ibm-ldouble.c (pack_ldouble): Use
            __builtin_pack_ibm128 instead of __builtin_pack_longdouble.

Diff:
---
 libgcc/config/rs6000/ibm-ldouble.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/libgcc/config/rs6000/ibm-ldouble.c b/libgcc/config/rs6000/ibm-ldouble.c
index 12af26b7e45..dd2a02373f2 100644
--- a/libgcc/config/rs6000/ibm-ldouble.c
+++ b/libgcc/config/rs6000/ibm-ldouble.c
@@ -102,9 +102,9 @@ __asm__ (".symver __gcc_qadd,_xlqadd@GCC_3.4\n\t"
 static inline IBM128_TYPE
 pack_ldouble (double dh, double dl)
 {
-#if (defined (__FLOAT128__)						\
-     || (defined (__LONG_DOUBLE_IBM128__) && !defined (_SOFT_FLOAT)))
-  return __builtin_pack_ibm128 (dh, dl);
+#if defined (__LONG_DOUBLE_128__) && defined (__LONG_DOUBLE_IBM128__)	\
+    && !(defined (_SOFT_FLOAT) || defined (__NO_FPRS__))
+  return __builtin_pack_longdouble (dh, dl);
 #else
   union
   {

[gcc(refs/users/meissner/heads/work029)] Revert patch.

[Michael Meissner]

https://gcc.gnu.org/g:f7c007b4c3720d3db0483d0c477fab4c411bc514

commit f7c007b4c3720d3db0483d0c477fab4c411bc514
Author: Michael Meissner <meissner@linux.ibm.com>
Date:   Thu Dec 3 16:35:05 2020 -0500

    Revert patch.
    
    gcc/testsuite/
    2020-12-03  Michael Meissner  <meissner@linux.ibm.com>
    
            Revert.
            * lib/target-supports.exp
            (check_effective_target_ppc_long_double_ibm): New function.
            (check_effective_target_ppc_long_double_ieee): New function.
            (check_effective_target_ppc_long_double_64bit): New function.

Diff:
---
 gcc/testsuite/lib/target-supports.exp | 133 ----------------------------------
 1 file changed, 133 deletions(-)

diff --git a/gcc/testsuite/lib/target-supports.exp b/gcc/testsuite/lib/target-supports.exp
index 2909d7ea8b9..ff6bc5f4b92 100644
--- a/gcc/testsuite/lib/target-supports.exp
+++ b/gcc/testsuite/lib/target-supports.exp
@@ -2348,59 +2348,6 @@ proc check_effective_target_ppc_ieee128_ok { } {
     }]
 }
 
-# See if the target is a powerpc with the long double format that uses the IBM
-# extended double format.
-
-proc check_effective_target_ppc_long_double_ibm { } {
-    return [check_cached_effective_target ppc_long_double_ibm {
-	check_runtime_nocache ppc_long_double_ibm {
-	    int main()
-	    {
-	      #if !defined(_ARCH_PPC) || !defined(__LONG_DOUBLE_IBM128__)
-		return 1;
-	      #else
-		return 0;
-	      #endif
-	    }
-	}
-    }]
-}
-
-# See if the target is a powerpc with the long double format that uses the IEEE
-# 128-bit format.
-
-proc check_effective_target_ppc_long_double_ieee { } {
-    return [check_cached_effective_target ppc_long_double_ieee {
-	check_runtime_nocache ppc_long_double_ieee {
-	    int main()
-	    {
-	      #if !defined(_ARCH_PPC) || !defined(__LONG_DOUBLE_IEEE128__)
-		return 1;
-	      #else
-		return 0;
-	      #endif
-	    }
-	}
-    }]
-}
-
-# See if the target is a powerpc with the long double format that is 64-bit.
-
-proc check_effective_target_ppc_long_double_64bit { } {
-    return [check_cached_effective_target ppc_long_double_64bit {
-	check_runtime_nocache ppc_long_double_64bit {
-	    int main()
-	    {
-	      #ifndef _ARCH_PPC
-		return 1;
-	      #else
-		return sizeof (long double) != 64;
-	      #endif
-	    }
-	}
-    }]
-}
-
 # Return 1 if the target supports executing VSX instructions, 0
 # otherwise.  Cache the result.
 
@@ -10715,83 +10662,3 @@ proc check_effective_target_no_fsanitize_address {} {
     }
     return 0;
 }
-
-# Return 1 if this target supports 'R' flag in .section directive, 0
-# otherwise.  Cache the result.
-
-proc check_effective_target_R_flag_in_section { } {
-    global tool
-    global GCC_UNDER_TEST
-
-    # Need auto-host.h to check linker support.
-    if { ![file exists ../../auto-host.h ] } {
-	return 0
-    }
-
-    return [check_cached_effective_target R_flag_in_section {
-
-	set src pie[pid].c
-	set obj pie[pid].o
-
-	set f [open $src "w"]
-	puts $f "#include \"../../auto-host.h\""
-	puts $f "#if HAVE_GAS_SHF_GNU_RETAIN == 0"
-	puts $f "# error Assembler does not support 'R' flag in .section directive."
-	puts $f "#endif"
-	close $f
-
-	verbose "check_effective_target_R_flag_in_section compiling testfile $src" 2
-	set lines [${tool}_target_compile $src $obj assembly ""]
-
-	file delete $src
-	file delete $obj
-
-	if [string match "" $lines] then {
-	    verbose "check_effective_target_R_flag_in_section testfile compilation passed" 2
-	    return 1
-	} else {
-	    verbose "check_effective_target_R_flag_in_section testfile compilation failed" 2
-	    return 0
-	}
-    }]
-}
-
-# Return 1 if this target supports 'o' flag in .section directive, 0
-# otherwise.  Cache the result.
-
-proc check_effective_target_o_flag_in_section { } {
-    global tool
-    global GCC_UNDER_TEST
-
-    # Need auto-host.h to check linker support.
-    if { ![file exists ../../auto-host.h ] } {
-	return 0
-    }
-
-    return [check_cached_effective_target o_flag_in_section {
-
-	set src pie[pid].c
-	set obj pie[pid].o
-
-	set f [open $src "w"]
-	puts $f "#include \"../../auto-host.h\""
-	puts $f "#if HAVE_GAS_SECTION_LINK_ORDER == 0"
-	puts $f "# error Assembler does not support 'o' flag in .section directive."
-	puts $f "#endif"
-	close $f
-
-	verbose "check_effective_target_o_flag_in_section compiling testfile $src" 2
-	set lines [${tool}_target_compile $src $obj object ""]
-
-	file delete $src
-	file delete $obj
-
-	if [string match "" $lines] then {
-	    verbose "check_effective_target_o_flag_in_section testfile compilation passed" 2
-	    return 1
-	} else {
-	    verbose "check_effective_target_o_flag_in_section testfile compilation failed" 2
-	    return 0
-	}
-    }]
-}