X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=hints%2Funicos.sh;h=e49b373758ae6a426812fc819f753f8c60cc1ec0;hb=297b36dcf845fc5195afb0a1d7e83d539bb1d4ed;hp=1d828550cc2378825cedea3d97039ebdfd545f17;hpb=693762b493165ab96822ef2342af62f74dc0367b;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/hints/unicos.sh b/hints/unicos.sh
index 1d82855..e49b373 100644
--- a/hints/unicos.sh
+++ b/hints/unicos.sh
@@ -1,10 +1,29 @@
 case `uname -r` in
 6.1*) shellflags="-m+65536" ;;
 esac
-optimize="-O1"
-d_setregid='undef'
-d_setreuid='undef'
+case "$optimize" in
+# If we used fastmd (the default) integer values would be limited to 43 bits.
+# --Mark P. Lutz
+'') optimize="$optimize -h nofastmd" ;;
+esac
+# 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
-'') usemymalloc='n' ;;
+'') # 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"
+    usemymalloc='n'
+    ;;
 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'