# New Ticket Created by Stephane Payrard
# Please include the string: [perl #31591]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org:80/rt3/Ticket/Display.html?id=31591 >
The interface has been modified but not reported everywhere.
Patch attached.
This was sent today but not according to the proper procedure.
--
stef
--- ./src/test_main.c.old 2004-01-29 15:49:44.000000000 +0100
+++ ./src/test_main.c 2004-09-15 14:47:07.113244016 +0200
@@ -72,7 +72,7 @@
char *filename;
Parrot_PackFile pf;
- interpreter = Parrot_new();
+ interpreter = Parrot_new(NULL);
if (!interpreter) {
return 1;
--- ./docs/tests.pod.old 2004-02-28 01:30:39.000000000 +0100
+++ ./docs/tests.pod 2004-09-15 14:50:18.802102880 +0200
@@ -63,7 +63,7 @@
int main(int argc, char* argv[]) {
Parrot_Interp interpreter;
- interpreter = Parrot_new();
+ interpreter = Parrot_new(NULL);
if (!interpreter)
return 1;
--- ./docs/embed.pod.old 2004-02-28 01:30:39.000000000 +0100
+++ ./docs/embed.pod 2004-09-15 14:49:34.168888160 +0200
@@ -16,7 +16,7 @@
argc--; argv++; /* skip the program name */
- interp=Parrot_new();
+ interp=Parrot_new(NULL);
Parrot_init(interp);
if(PARROT_JIT_CAPABLE) {
@@ -178,9 +178,10 @@
=over 4
-=item C<Parrot_Interp Parrot_new()>
+=item C<Parrot_Interp Parrot_new(Parrot_Interp parent)>
-Allocates and returns a new Parrot interpreter.
+Allocates and returns a new Parrot interpreter. C<parent> is NULL for the
+main interpreter that will be destroyed last.
=item C<void Parrot_init(Parrot_Interp)>
--- ./build_tools/pbc2c.pl.old 2004-04-23 11:20:13.000000000 +0200
+++ ./build_tools/pbc2c.pl 2004-09-15 14:51:00.498764024 +0200
@@ -231,7 +231,7 @@
INTVAL i;
PMC *userargv;
- interpreter = Parrot_new();
+ interpreter = Parrot_new(NULL);
if (!interpreter) {
return 1;
}
@@ -366,4 +366,4 @@
This program is free software. It is subject to the same license
as the Parrot interpreter.
-=end ADDITIONAL
\ No newline at end of file
+=end ADDITIONAL
