[svn:parrot] r41757 - in trunk: config/gen/platform/generic src src/interp

[mikehh at svn.parrot.org]

Author: mikehh
Date: Wed Oct  7 23:39:00 2009
New Revision: 41757
URL: https://trac.parrot.org/parrot/changeset/41757

Log:
clear up some compiler warnings from r41602

Modified:
   trunk/config/gen/platform/generic/env.c
   trunk/src/interp/inter_create.c
   trunk/src/library.c

Modified: trunk/config/gen/platform/generic/env.c
==============================================================================
--- trunk/config/gen/platform/generic/env.c	Wed Oct  7 23:08:09 2009	(r41756)
+++ trunk/config/gen/platform/generic/env.c	Wed Oct  7 23:39:00 2009	(r41757)
@@ -54,8 +54,6 @@
     strcpy(envs + name_len + 1, value);
 
     putenv(envs);
-
-    /* The buffer is intentionally not freed! */
 #endif
     Parrot_str_free_cstring(name);
     Parrot_str_free_cstring(value);

Modified: trunk/src/interp/inter_create.c
==============================================================================
--- trunk/src/interp/inter_create.c	Wed Oct  7 23:08:09 2009	(r41756)
+++ trunk/src/interp/inter_create.c	Wed Oct  7 23:39:00 2009	(r41757)
@@ -63,7 +63,7 @@
 is_env_var_set(PARROT_INTERP, ARGIN(STRING* var))
 {
     ASSERT_ARGS(is_env_var_set)
-    int free_it, retval;
+    int retval;
     char* const value = Parrot_getenv(interp, var);
     if (value == NULL)
         retval = 0;
@@ -71,8 +71,6 @@
         retval = 0;
     else
         retval = !STREQ(value, "0");
-    if (free_it)
-        mem_sys_free(value);
     return retval;
 }
 

Modified: trunk/src/library.c
==============================================================================
--- trunk/src/library.c	Wed Oct  7 23:08:09 2009	(r41756)
+++ trunk/src/library.c	Wed Oct  7 23:39:00 2009	(r41757)
@@ -778,11 +778,10 @@
 Parrot_get_runtime_prefix(PARROT_INTERP)
 {
     ASSERT_ARGS(Parrot_get_runtime_prefix)
-    int     free_it;
     char * const env = Parrot_getenv(interp, CONST_STRING(interp, "PARROT_RUNTIME"));
 
     if (env)
-        return free_it ? env : mem_sys_strdup(env);
+        return env;
     else {
         PMC    * const config_hash =
             VTABLE_get_pmc_keyed_int(interp, interp->iglobals, (INTVAL) IGLOBALS_CONFIG_HASH);
@@ -813,15 +812,12 @@
 Parrot_get_runtime_path(PARROT_INTERP)
 {
     ASSERT_ARGS(Parrot_get_runtime_path)
-    int     free_it;
     char * const env = Parrot_getenv(interp, CONST_STRING(interp, "PARROT_RUNTIME"));
     STRING *result;
 
     if (env)
     {
         result = Parrot_str_new(interp, env, 0);
-        if (free_it)
-             free(env);
     }
     else {
         PMC    * const config_hash =