[svn:parrot] r16504 - in trunk/compilers/tge: . TGE

[pmichaud]

Author: pmichaud
Date: Mon Jan  8 15:23:28 2007
New Revision: 16504

Modified:
   trunk/compilers/tge/TGE.pir
   trunk/compilers/tge/TGE/Parser.pg

Log:
[TGE]:
* Change external PGE::Util <die> rule into a local one.


Modified: trunk/compilers/tge/TGE.pir
==============================================================================
--- trunk/compilers/tge/TGE.pir (original)
+++ trunk/compilers/tge/TGE.pir Mon Jan  8 15:23:28 2007
@@ -90,6 +90,14 @@
     load_bytecode 'compilers/tge/TGE/Grammar.pbc'
     load_bytecode 'compilers/tge/TGE/Compiler.pbc'
 
+    # import <die> rule from PGE::Util
+    $P0 = get_hll_global ['PGE::Util'], 'die'
+    set_hll_global ['TGE::Parser'], 'die', $P0
+
+    # import <line_number> method from PGE::Util
+    $P0 = get_hll_global ['PGE::Util'], 'line_number'
+    set_hll_global ['TGE::Parser'], 'line_number', $P0
+
     .return ()
 .end
 

Modified: trunk/compilers/tge/TGE/Parser.pg
==============================================================================
--- trunk/compilers/tge/TGE/Parser.pg   (original)
+++ trunk/compilers/tge/TGE/Parser.pg   Mon Jan  8 15:23:28 2007
@@ -57,4 +57,4 @@
          [\n|$]
 }
 
-token syntax_error { <?PGE::Util::die Syntax error> }
+token syntax_error { <?die: Syntax error> }