[MLton-commit] r7100

[Ville Laurikari]

Drop support for HP-UX 11.00.  The oldest supported release is 11.11.

This also adds a wrapper for fesetround to always force a zero return
value.  Contradicting HP documentation, fesetround seems to return a
nonzero value even when called with a valid argument.

----------------------------------------------------------------------

U   mlton/trunk/runtime/platform/hpux.h

----------------------------------------------------------------------

Modified: mlton/trunk/runtime/platform/hpux.h
===================================================================
--- mlton/trunk/runtime/platform/hpux.h	2009-04-22 08:49:22 UTC (rev 7099)
+++ mlton/trunk/runtime/platform/hpux.h	2009-04-22 08:49:37 UTC (rev 7100)
@@ -66,26 +66,14 @@
 /* This should not conflict with existing flags. */
 #define MSG_DONTWAIT 0x1000000
 
-/* Old versions of HP-UX do not handle IPv6. */
-#ifndef AF_INET6
+/* fesetround() doesn't seem to be returning 0 as expected. */
+static int MLton_fesetround (int mode)
+{
+        fesetround (mode);
+        return 0;
+}
+#define fesetround MLton_fesetround
 
-#define AF_INET6 22 /* Internet Protocol, Version 6 */
-#define PF_INET6 AF_INET6
-
-struct sockaddr_in6 {
-  int dummy; // quell gcc warnings about "struct has no members"
-};
-#endif /* !AF_INET6 */
-
-#if HPUX_VERSION < 1111
-struct sockaddr_storage {
-  union {
-    struct sockaddr_in sa_in;
-    struct sockaddr_un sa_un;
-  } sa;
-};
-#endif /* HPUX_VERSION < 1111 */
-
 typedef long suseconds_t; // type of timeval.tv_usec in sys/time.h
 
 #ifdef __hppa__