|
|
Author: tene
Date: Mon Oct 6 14:43:15 2008
New Revision: 31713
Modified:
branches/hllmagic/runtime/parrot/library/PGE/Dumper.pir
Log:
[pge]
* Update isa in Dumper.pir
Modified: branches/hllmagic/runtime/parrot/library/PGE/Dumper.pir
==============================================================================
--- branches/hllmagic/runtime/parrot/library/PGE/Dumper.pir (original)
+++ branches/hllmagic/runtime/parrot/library/PGE/Dumper.pir Mon Oct 6
14:43:15 2008
@@ -158,7 +158,7 @@
goto subrules_1
dumper:
- $I0 = isa $P0, 'PGE::Match'
+ $I0 = isa $P0, ['PGE';'Match']
unless $I0 goto dumper_0
$S0 = $P0.'dump_str'(prefix1, b1, b2)
out .= $S0
@@ -384,7 +384,7 @@
exp = self["exp1"]
$I1 = indent
- $I0 = isa exp, "PGE::Exp::Alt"
+ $I0 = isa exp, ["PGE";"Exp";"Alt"]
if $I0 goto print_exp1
$I1 += 4
print_exp1:
@@ -393,7 +393,7 @@
print "ALT\n"
exp = self["exp2"]
$I1 = indent
- $I0 = isa exp, "PGE::Exp::Alt"
+ $I0 = isa exp, ["PGE";"Exp";"Alt"]
if $I0 goto print_exp2
$I1 += 4
print_exp2:
|
|