[project @ 1996-01-11 14:06:51 by partain]

[ghc-hetmet.git] / ghc / runtime / io / env.lc

diff --git a/ghc/runtime/io/env.lc b/ghc/runtime/io/env.lc
index 2e26595..7ee20c1 100644 (file)
--- a/ghc/runtime/io/env.lc
+++ b/ghc/runtime/io/env.lc
@@ -21,13 +21,15 @@ should continue to work properly.
 int dirtyEnv = 0;
 
 /* 
- * For some reason, OSF turns off the prototype for this if we're _POSIX_SOURCE.
- * Seems to me that this ought to be an ANSI-ism rather than a POSIX-ism,
- * but no matter.
+ * For some reason, OSF turns off the prototype for this if we're
+ * _POSIX_SOURCE.  Seems to me that this ought to be an ANSI-ism
+ * rather than a POSIX-ism, but no matter.  (JSM(?))
  */
 
 char *
-strdup(const char *src)
+strdup(char *src) /* should be "const char *" but then some
+                    bozo OS (e.g., AIX) will come along and disagree.
+                    The alt is to rename this routine (WDP 96/01) */
 {
     int len = strlen(src) + 1;
     char *dst;