[svn:parrot] r37706 - in trunk/compilers: pct/src/PCT pge

[jonathan at svn.parrot.org]

Author: jonathan
Date: Wed Mar 25 12:16:48 2009
New Revision: 37706
URL: https://trac.parrot.org/parrot/changeset/37706

Log:
Undo two files changed accidentally in the last commit - just some things I had lying around locally that I forgot I'd changed.

Modified:
   trunk/compilers/pct/src/PCT/Node.pir
   trunk/compilers/pge/demo.pir

Modified: trunk/compilers/pct/src/PCT/Node.pir
==============================================================================
--- trunk/compilers/pct/src/PCT/Node.pir	Wed Mar 25 12:14:06 2009	(r37705)
+++ trunk/compilers/pct/src/PCT/Node.pir	Wed Mar 25 12:16:48 2009	(r37706)
@@ -295,17 +295,6 @@
 .end
 
 
-=item VTABLE get_number()
-
-Number of elements in this node.
-
-=cut
-
-.sub '' :vtable('get_number') :method
-    $I0 = elements self
-    .return ($I0)
-.end
-
 =back
 
 =head1 AUTHOR

Modified: trunk/compilers/pge/demo.pir
==============================================================================
--- trunk/compilers/pge/demo.pir	Wed Mar 25 12:14:06 2009	(r37705)
+++ trunk/compilers/pge/demo.pir	Wed Mar 25 12:16:48 2009	(r37706)
@@ -55,7 +55,7 @@
   match_result:
     unless match goto match_fail
     print "match succeeded\n"
-    $P0 = get_global "_dumper"
+    $P0 = find_global "_dumper"
     $P0(match, "$/")
     goto read_loop
   match_fail:
@@ -87,7 +87,7 @@
   save_rule:
     if_null rulesub, match_nopattern
     x = substr x, 5
-    set_global x, rulesub
+    store_global x, rulesub
     print "Saved as "
     print x
     print "\n"
@@ -101,7 +101,7 @@
 
   print_exp:
     if_null rulesub, match_nopattern
-    $P0 = get_global "_dumper"
+    $P0 = find_global "_dumper"
     $P0(exp, "exp")
     goto read_loop