mescc: Support gcc-3.4.0: unsetenv.
[mes.git] / lib / gcc.c
index 351385addcc2e09a0db30fb476b0106f5158625d..45fa72fdc3f1009b7f5de06d7c8855109f21e647 100644 (file)
--- a/lib/gcc.c
+++ b/lib/gcc.c
@@ -61,3 +61,22 @@ __moddi3 (double a, double b)
   eputs ("__moddi3 stub\n");
   return ((int) a %(int)b);
 }
+
+// gcc-3.4
+void
+unsetenv (char const *name)
+{
+  int length = strlen (name);
+  char **p = environ;
+  while (*p)
+    {
+      if (!strncmp (name, *p, length) && *(*p + length) == '=')
+        {
+          char **q = p;
+          q[0] = q[1];
+          while (*q++)
+            q[0] = q[1];
+        }
+      p++;
+    }
+}