[project @ 1996-01-12 11:35:21 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 7ee20c1..f68b0ef 100644 (file)
--- a/ghc/runtime/io/env.lc
+++ b/ghc/runtime/io/env.lc
@@ -27,9 +27,7 @@ int dirtyEnv = 0;
  */
 
 char *
-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) */
+strDup(const char *src)
 {
     int len = strlen(src) + 1;
     char *dst;
@@ -78,7 +76,7 @@ copyenv()
     new[i] = NULL;
 
     while (--i >= 0) {
-       if ((new[i] = strdup(environ[i])) == NULL) {
+       if ((new[i] = strDup(environ[i])) == NULL) {
            while (new[++i] != NULL)
                free(new[i]);
            free(new);
@@ -110,7 +108,7 @@ char *mapping;
     if (!dirtyEnv && copyenv() != 0)
        return -1;
 
-    if ((p = strdup(mapping)) == NULL)
+    if ((p = strDup(mapping)) == NULL)
        return -1;
 
     /* Look for an existing key that matches */