This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
CXUX_BROKEN_CONSTANT_CONVERT isn't used anymore.
authorMarcus Holland-Moritz <mhx-perl@gmx.net>
Thu, 29 Apr 2004 17:50:40 +0000 (17:50 +0000)
committerMarcus Holland-Moritz <mhx-perl@gmx.net>
Thu, 29 Apr 2004 17:50:40 +0000 (17:50 +0000)
Remove all associated code.

p4raw-id: //depot/perl@22753

hints/cxux.sh
pp_pack.c

index e3ac086..8d95356 100644 (file)
@@ -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'
index 5183eaf..784d16e 100644 (file)
--- a/pp_pack.c
+++ b/pp_pack.c
 #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,