Skip to content

Commit 7227290

Browse files
committed
Bump PARROT_REVISION, use generational GC, fix NQPLexPad up for the changes.
1 parent 749d34c commit 7227290

File tree

3 files changed

+5
-5
lines changed

3 files changed

+5
-5
lines changed

Configure.pl

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -32,7 +32,7 @@
3232
my $prefix = $options{'gen-parrot-prefix'} || cwd()."/parrot_install";
3333
# parrot's Configure.pl mishandles win32 backslashes in --prefix
3434
$prefix =~ s{\\}{/}g;
35-
my @command = ($^X, "build/gen_parrot.pl", "--prefix=$prefix", "--optimize", @opts);
35+
my @command = ($^X, "build/gen_parrot.pl", "--prefix=$prefix", "--gc=gms", "--optimize", @opts);
3636

3737
print "Generating Parrot ...\n";
3838
print "@command\n\n";

build/PARROT_REVISION

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,2 +1,2 @@
1-
RELEASE_3_0_0-919-g6d69dec
1+
RELEASE_3_2_0-1-g8a139ce
22

src/pmc/nqplexpad.pmc

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -86,7 +86,7 @@ Return the LexInfo PMC, if any or a Null PMC.
8686
for (i = 0; i < num_statics; i++) {
8787
INTVAL slot = VTABLE_get_integer_keyed_int(interp, static_slots_cache, i);
8888
PMC *value = VTABLE_get_pmc_keyed_int(interp, static_values_cache, i);
89-
CTX_REG_PMC((PMC *)ctx, slot) = value;
89+
CTX_REG_PMC(interp, (PMC *)ctx, slot) = value;
9090
}
9191
PARROT_GC_WRITE_BARRIER(INTERP, (PMC *)ctx);
9292
}
@@ -148,7 +148,7 @@ Return the LexInfo PMC, if any or a Null PMC.
148148
return PMCNULL;
149149

150150
GET_ATTR_ctx(INTERP, SELF, ctx);
151-
return CTX_REG_PMC(ctx, (INTVAL)b->value);
151+
return CTX_REG_PMC(interp, ctx, (INTVAL)b->value);
152152
}
153153

154154
VTABLE PMC *get_pmc_keyed(PMC *name) {
@@ -177,7 +177,7 @@ Return the LexInfo PMC, if any or a Null PMC.
177177
"Lexical '%Ss' not found", name);
178178

179179
GET_ATTR_ctx(INTERP, SELF, ctx);
180-
CTX_REG_PMC(ctx, (INTVAL)b->value) = value;
180+
CTX_REG_PMC(interp, ctx, (INTVAL)b->value) = value;
181181
PARROT_GC_WRITE_BARRIER(INTERP, ctx);
182182
}
183183

0 commit comments

Comments
 (0)