perl.cvs.parrot
[Top] [All Lists]

[svn:parrot] r31713 - branches/hllmagic/runtime/parrot/library/PGE

Subject: [svn:parrot] r31713 - branches/hllmagic/runtime/parrot/library/PGE
From:
Date: Mon, 6 Oct 2008 14:43:15 -0700 PDT
Newsgroups: perl.cvs.parrot

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:

<Prev in Thread] Current Thread [Next in Thread>
  • [svn:parrot] r31713 - branches/hllmagic/runtime/parrot/library/PGE, tene <=