X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=hints%2Funicos.sh;h=089b9600e265dd5ff680eb28cfc25e776a55ff9a;hb=c4eb81271d38690def0c149c253ee8dc4015bfca;hp=5d29754586bdbfc5d59dce795195c365837490c0;hpb=0bb89e969de1e641aa7b14a36ed1063066dc5ccc;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/hints/unicos.sh b/hints/unicos.sh
index 5d29754..089b960 100644
--- a/hints/unicos.sh
+++ b/hints/unicos.sh
@@ -2,15 +2,20 @@ case `uname -r` in
 6.1*) shellflags="-m+65536" ;;
 esac
 case "$optimize" in
-'') optimize="-h nofastmd" ;; # fastmd: integer values limited to 46 bits
+# If we used fastmd (the default) integer values would be limited to 46 bits.
+# --Mark P. Lutz
+'') optimize="$optimize -h nofastmd" ;;
 esac
-case `uname -r` in
-10.*) pp_ctl_cflags='optimize="$optimize -h scalar 0 -h vector 0"' ;;
-esac
-d_setregid='undef'
-d_setreuid='undef'
+# The default is to die in runtime on math overflows.
+# Let's not do that. --jhi
+ccflags="$ccflags -h matherror=errno" 
+# Give int((2/3)*3) a chance to be 2, not 1. --jhi
+ccflags="$ccflags -h rounddiv"
+# Avoid an optimizer bug where a volatile variables
+# isn't correctly saved and restored --Mark P. Lutz 
+pp_ctl_cflags='ccflags="$ccflags -h scalar0 -h vector0"'
 case "$usemymalloc" in
-'') # The perl malloc.c SHOULD work in Unicos (ILP64) says Ilya.
+'') # The perl malloc.c SHOULD work says Ilya.
     # But for the time being (5.004_68), alas, it doesn't. --jhi
     # usemymalloc='y'
     # ccflags="$ccflags -DNO_RCHECK"
@@ -19,3 +24,6 @@ case "$usemymalloc" in
 esac
 # Configure gets fooled for some reason.  There is no getpgid().
 d_getpgid='undef'
+# These exist but do not really work.
+d_setregid='undef'
+d_setreuid='undef'