cvsuser 03/07/15 18:02:39
Modified: . core.ops spf_render.c datatypes.c
Log:
Use string_cstring_free to free strings created by string_to_cstring
Revision Changes Path
1.309 +1 -1 parrot/core.ops
Index: core.ops
===================================================================
RCS file: /cvs/public/parrot/core.ops,v
retrieving revision 1.308
retrieving revision 1.309
diff -u -w -r1.308 -r1.309
--- core.ops 15 Jul 2003 15:04:55 -0000 1.308
+++ core.ops 16 Jul 2003 01:02:39 -0000 1.309
@@ -5028,7 +5028,7 @@
PMC *nci;
Parrot_csub_t p = (Parrot_csub_t)D2FPTR(Parrot_dlsym(PMC_data($2), name));
- free(name);
+ string_cstring_free(name);
if(p == NULL) {
const char * err = Parrot_dlerror();
if(err != NULL) {
1.21 +4 -4 parrot/spf_render.c
Index: spf_render.c
===================================================================
RCS file: /cvs/public/parrot/spf_render.c,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -w -r1.20 -r1.21
--- spf_render.c 14 Jun 2003 12:40:36 -0000 1.20
+++ spf_render.c 16 Jul 2003 01:02:39 -0000 1.21
@@ -1,7 +1,7 @@
/* spf_render.c
* Copyright: (When this is determined...it will go here)
* CVS Info
- * $Id: spf_render.c,v 1.20 2003/06/14 12:40:36 leo Exp $
+ * $Id: spf_render.c,v 1.21 2003/07/16 01:02:39 scog Exp $
* Overview:
* Implements the main function that drives the Parrot_sprintf
* family and its utility functions.
@@ -185,7 +185,7 @@
{
char *tempstr = string_to_cstring(interpreter, ts);
strcpy(out + i, tempstr);
- free(tempstr);
+ string_cstring_free(tempstr);
}
i = strlen(out);
}
@@ -200,7 +200,7 @@
{
char *tempstr = string_to_cstring(interpreter, ts);
strcpy(out + i, tempstr);
- free(tempstr);
+ string_cstring_free(tempstr);
}
i = strlen(out);
}
@@ -584,7 +584,7 @@
snprintf(tc, PARROT_SPRINTF_BUFFER_SIZE,
tempstr,
(double)thefloat);
- free(tempstr);
+ string_cstring_free(tempstr);
}
#if _WIN32
1.6 +2 -2 parrot/datatypes.c
Index: datatypes.c
===================================================================
RCS file: /cvs/public/parrot/datatypes.c,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -w -r1.5 -r1.6
--- datatypes.c 15 Dec 2002 19:26:57 -0000 1.5
+++ datatypes.c 16 Jul 2003 01:02:39 -0000 1.6
@@ -3,7 +3,7 @@
* Copyright: (c) 2002 Leopold Toetsch <[EMAIL PROTECTED]>
* License: Artistic/GPL, see README and LICENSES for details
* CVS Info
- * $Id: datatypes.c,v 1.5 2002/12/15 19:26:57 scog Exp $
+ * $Id: datatypes.c,v 1.6 2003/07/16 01:02:39 scog Exp $
* Overview:
* Parrot and native data types functions.
*/
@@ -24,7 +24,7 @@
return i;
}
- free(type);
+ string_cstring_free(type);
return enum_type_undef;
}
