[svn:parrot] r37763 - branches/pge1/compilers/pge/PGE

[pmichaud at svn.parrot.org]

Author: pmichaud
Date: Fri Mar 27 20:18:35 2009
New Revision: 37763
URL: https://trac.parrot.org/parrot/changeset/37763

Log:
[pge]:  Numification of Match objects is based on matched text instead of .ast.
Also make vtable functions anonymous.

Modified:
   branches/pge1/compilers/pge/PGE/Match.pir

Modified: branches/pge1/compilers/pge/PGE/Match.pir
==============================================================================
--- branches/pge1/compilers/pge/PGE/Match.pir	Fri Mar 27 20:16:17 2009	(r37762)
+++ branches/pge1/compilers/pge/PGE/Match.pir	Fri Mar 27 20:18:35 2009	(r37763)
@@ -349,8 +349,8 @@
 
 =cut
 
-.sub 'get_integer' :vtable :method
-    $I0 = self.'result_object'()
+.sub '' :vtable('get_integer') :method
+    $I0 = self.'Str'()
     .return ($I0)
 .end
 
@@ -360,8 +360,8 @@
 
 =cut
 
-.sub 'get_number' :vtable :method
-    $N0 = self.'result_object'()
+.sub '' :vtable('get_number') :method
+    $N0 = self.'Str'()
     .return ($N0)
 .end
 
@@ -371,7 +371,7 @@
 
 =cut
 
-.sub 'get_string' :vtable :method
+.sub '' :vtable('get_string') :method
     $S0 = self.'Str'()
     .return ($S0)
 .end