Author: pmichaud
Date: Fri Oct 5 09:07:55 2007
New Revision: 21889
Modified:
branches/pdd15oo/compilers/tge/TGE.pir
Log:
[tge]:
* Fix import of <die> and <line_number> rules from PGE::Util.
Modified: branches/pdd15oo/compilers/tge/TGE.pir
==============================================================================
--- branches/pdd15oo/compilers/tge/TGE.pir (original)
+++ branches/pdd15oo/compilers/tge/TGE.pir Fri Oct 5 09:07:55 2007
@@ -90,13 +90,12 @@
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
+ # import <die> and <line_number> rules from PGE::Util
+ $P0 = get_class ['TGE::Parser']
+ $P1 = get_hll_global ['PGE::Util'], 'die'
+ $P0.'add_method'('die', $P1)
+ $P1 = get_hll_global ['PGE::Util'], 'line_number'
+ $P0.'add_method'('line_number', $P1)
.return ()
.end
