Leopold Toetsch:
# I'd like to change the startup parameters too: move the ARGV array
from
# P0 to P5.
Agreed on my end, at least--though I suspect the approval you really
need is Dan's. I'll let you apply this when he does.
--Brent Dax <[EMAIL PROTECTED]>
Perl and Parrot hacker
"Yeah, and my underwear is flame-retardant--that doesn't mean I'm gonna
set myself on fire to prove it."
Index: embed.c
===================================================================
RCS file: /cvs/public/parrot/embed.c,v
retrieving revision 1.86
diff -u -r1.86 embed.c
--- embed.c 28 Aug 2003 15:26:21 -0000 1.86
+++ embed.c 29 Aug 2003 15:17:38 -0000
@@ -269,7 +269,7 @@
userargv = pmc_new_noinit(interpreter, enum_class_SArray);
/* immediately anchor pmc to root set */
- interpreter->pmc_reg.registers[0] = userargv;
+ interpreter->pmc_reg.registers[5] = userargv;
VTABLE_set_pmc_keyed_int(interpreter, interpreter->iglobals,
(INTVAL)IGLOBALS_ARGV_LIST, userargv);
VTABLE_init(interpreter, userargv);
