cvsuser 04/10/01 05:07:11
Modified: include/parrot string_funcs.h
src inter_create.c string.c
Log:
stuff 1 memory leak - only 39 left for hello world imc
Revision Changes Path
1.44 +2 -1 parrot/include/parrot/string_funcs.h
Index: string_funcs.h
===================================================================
RCS file: /cvs/public/parrot/include/parrot/string_funcs.h,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -w -r1.43 -r1.44
--- string_funcs.h 8 Sep 2004 00:33:54 -0000 1.43
+++ string_funcs.h 1 Oct 2004 12:07:09 -0000 1.44
@@ -1,7 +1,7 @@
/* string_funcs.h
* Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
* CVS Info
- * $Id: string_funcs.h,v 1.43 2004/09/08 00:33:54 dan Exp $
+ * $Id: string_funcs.h,v 1.44 2004/10/01 12:07:09 leo Exp $
* Overview:
* This is the api header for the string subsystem
* Data Structure and Algorithms:
@@ -62,6 +62,7 @@
const ENCODING *, const CHARTYPE *,
STRING **dest_ptr); */
void string_init(Parrot_Interp);
+void string_deinit(Parrot_Interp);
UINTVAL string_capacity(struct Parrot_Interp *interpreter, STRING *s);
void *string_pointer_to_index(struct Parrot_Interp *,
const STRING *s,
UINTVAL idx);
1.16 +3 -2 parrot/src/inter_create.c
Index: inter_create.c
===================================================================
RCS file: /cvs/public/parrot/src/inter_create.c,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -w -r1.15 -r1.16
--- inter_create.c 24 Sep 2004 11:13:41 -0000 1.15
+++ inter_create.c 1 Oct 2004 12:07:11 -0000 1.16
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: inter_create.c,v 1.15 2004/09/24 11:13:41 leo Exp $
+$Id: inter_create.c,v 1.16 2004/10/01 12:07:11 leo Exp $
=head1 NAME
@@ -383,8 +383,9 @@
/* intstack */
intstack_free(interpreter, interpreter->ctx.intstack);
- /* chartype, encodings */
+ /* strings, chartype, encodings */
if (!interpreter->parent_interpreter) {
+ string_deinit(interpreter);
/*
chartype_destroy();
encoding_destroy();
1.223 +14 -2 parrot/src/string.c
Index: string.c
===================================================================
RCS file: /cvs/public/parrot/src/string.c,v
retrieving revision 1.222
retrieving revision 1.223
diff -u -w -r1.222 -r1.223
--- string.c 28 Sep 2004 11:23:09 -0000 1.222
+++ string.c 1 Oct 2004 12:07:11 -0000 1.223
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: string.c,v 1.222 2004/09/28 11:23:09 jrieks Exp $
+$Id: string.c,v 1.223 2004/10/01 12:07:11 leo Exp $
=head1 NAME
@@ -225,15 +225,21 @@
=over 4
=item C<void
-string_init(void)>
+string_init(Interp*)>
Initializes the Parrot string subsystem.
+=item C<void
+string_deinit(Interp*)>
+
+De-Initializes the Parrot string subsystem.
+
=cut
*/
#include "parrot/string_private_cstring.h"
+
void
string_init(Parrot_Interp interpreter)
{
@@ -278,6 +284,12 @@
}
+void
+string_deinit(Parrot_Interp interpreter)
+{
+ mem_sys_free(interpreter->const_cstring_table);
+}
+
/*
=item C<UINTVAL
