Author: pmichaud
Date: Sat Dec 6 18:41:31 2008
New Revision: 33583
Modified:
trunk/languages/perl6/src/classes/Capture.pir
trunk/languages/perl6/src/classes/Object.pir
Log:
[rakudo]: Cleanup Capture definition slightly.
Modified: trunk/languages/perl6/src/classes/Capture.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Capture.pir (original)
+++ trunk/languages/perl6/src/classes/Capture.pir Sat Dec 6 18:41:31 2008
@@ -13,7 +13,7 @@
.namespace ['Perl6Capture']
.sub 'onload' :anon :init :load
- load_bytecode 'PCT.pbc'
+ load_bytecode 'Parrot/Capture_PIR.pbc'
.local pmc p6meta, captureproto
p6meta = get_hll_global ['Perl6Object'], '$!P6META'
captureproto = p6meta.'new_class'('Perl6Capture', 'parent'=>'Capture_PIR
Any', 'name'=>'Capture')
Modified: trunk/languages/perl6/src/classes/Object.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Object.pir (original)
+++ trunk/languages/perl6/src/classes/Object.pir Sat Dec 6 18:41:31 2008
@@ -25,7 +25,7 @@
.namespace []
.sub 'onload' :anon :init :load
.local pmc p6meta
- load_bytecode 'P6object.pbc'
+ load_bytecode 'PCT.pbc'
$P0 = get_root_global ['parrot'], 'P6metaclass'
$P0.'new_class'('Perl6Object', 'name'=>'Object')
p6meta = $P0.'HOW'()
