$NetBSD: patch-aa,v 1.2 2006/06/09 10:26:05 rillig Exp $

--- /dev/null	Tue Apr 17 00:09:13 2001
+++ src/ipmpar.c
@@ -0,0 +1,25 @@
+#include <float.h>
+#include <limits.h>
+#include <math.h>
+#include <stdio.h>
+#include <stdlib.h>
+
+int
+ipmpar_ (int *i)
+{
+    switch (*i) {
+    case 1:  return 2;
+    case 2:  return (sizeof(int)*(CHAR_BIT) - 1);
+    case 3:  return INT_MAX;
+    case 4:  return FLT_RADIX;
+    case 5:  return FLT_MANT_DIG;
+    case 6:  return FLT_MIN_EXP;
+    case 7:  return FLT_MAX_EXP;
+    case 8:  return DBL_MANT_DIG;
+    case 9:  return DBL_MIN_EXP;
+    case 10: return FLT_MAX_EXP;
+    }
+    fprintf (stderr, "invalid argument: ipmpar(%d)\n", *i);
+    exit (1);
+    return 0;
+}