From 8bbf3450a1ff0a3996dade29a4194cc0939d871f Mon Sep 17 00:00:00 2001 From: Marcus Holland-Moritz Date: Thu, 29 Apr 2004 17:50:40 +0000 Subject: [PATCH] CXUX_BROKEN_CONSTANT_CONVERT isn't used anymore. Remove all associated code. p4raw-id: //depot/perl@22753 --- hints/cxux.sh | 5 ++--- pp_pack.c | 11 ----------- 2 files changed, 2 insertions(+), 14 deletions(-) diff --git a/hints/cxux.sh b/hints/cxux.sh index e3ac086..8d95356 100644 --- a/hints/cxux.sh +++ b/hints/cxux.sh @@ -69,10 +69,9 @@ glibpth="/usr/sde/elf/usr/lib $glibpth" # to drag 'sigaction' into the perl main program is to make sure it gets # defined for the posix shared library (for some reason sigaction is static, # rather than being defined in libc.so.1). The 88110compat option makes sure -# the code will run on both 88100 and 88110 machines. The define is added to -# trigger a work around for a compiler bug which shows up in pp.c. +# the code will run on both 88100 and 88110 machines. # -cc='/bin/cc -Xa -Qtarget=M88110compat -DCXUX_BROKEN_CONSTANT_CONVERT' +cc='/bin/cc -Xa -Qtarget=M88110compat' cccdlflags='-Zelf -Zpic' ccdlflags='-Zelf -Zlink=dynamic -Wl,-Bexport -u sigaction' lddlflags='-Zlink=so' diff --git a/pp_pack.c b/pp_pack.c index 5183eaf..784d16e 100644 --- a/pp_pack.c +++ b/pp_pack.c @@ -21,17 +21,6 @@ #include "perl.h" /* - * The compiler on Concurrent CX/UX systems has a subtle bug which only - * seems to show up when compiling pp.c - it generates the wrong double - * precision constant value for (double)UV_MAX when used inline in the body - * of the code below, so this makes a static variable up front (which the - * compiler seems to get correct) and uses it in place of UV_MAX below. - */ -#ifdef CXUX_BROKEN_CONSTANT_CONVERT -static double UV_MAX_cxux = ((double)UV_MAX); -#endif - -/* * Offset for integer pack/unpack. * * On architectures where I16 and I32 aren't really 16 and 32 bits, -- 2.7.4