develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35359 - trunk/languages/pheme/lib

From:
coke
Date:
January 10, 2009 14:03
Subject:
[svn:parrot] r35359 - trunk/languages/pheme/lib
Message ID:
20090110220332.CDB69CB9F9@x12.develooper.com
Author: coke
Date: Sat Jan 10 14:03:31 2009
New Revision: 35359

Modified:
   trunk/languages/pheme/lib/PhemeCompiler.pir
   trunk/languages/pheme/lib/PhemeSymbols.pir
   trunk/languages/pheme/lib/PhemeTest.pir
   trunk/languages/pheme/lib/pge2past.tg

Log:
Update pheme past recent opcode removal.



Modified: trunk/languages/pheme/lib/PhemeCompiler.pir
==============================================================================
--- trunk/languages/pheme/lib/PhemeCompiler.pir	(original)
+++ trunk/languages/pheme/lib/PhemeCompiler.pir	Sat Jan 10 14:03:31 2009
@@ -80,7 +80,7 @@
     .local pmc start_rule
     .local pmc match
 
-    start_rule = find_global ['Pheme';'Grammar'], 'prog'
+    start_rule = get_root_global ['Pheme';'Grammar'], 'prog'
     match      = get_root_global ['parrot';'PGE'], 'Match'
     source     = match.'new'(source, 'grammar'=>'Pheme::Grammar')
 
@@ -151,7 +151,7 @@
 	load_bytecode 'PGE/Dumper.pbc'
 
 	.local pmc dumper
-	dumper = find_global '_dumper'
+	dumper = get_global '_dumper'
 	dumper( match, '$/' )
 	.return()
 .end

Modified: trunk/languages/pheme/lib/PhemeSymbols.pir
==============================================================================
--- trunk/languages/pheme/lib/PhemeSymbols.pir	(original)
+++ trunk/languages/pheme/lib/PhemeSymbols.pir	Sat Jan 10 14:03:31 2009
@@ -16,7 +16,7 @@
 	symbols["'*'"]                 = 1
 	symbols["'/'"]                 = 1
 
-	store_global 'PhemeCompiler', 'symbols', symbols
+	set_hll_global ['PhemeCompiler'], 'symbols', symbols
 	.return()
 .end
 
@@ -34,7 +34,7 @@
 
 	.local pmc function
 	push_eh return_list
-	function = find_global symbol_name
+	function = get_global symbol_name
 	unless function goto return_list
 	pop_eh
 

Modified: trunk/languages/pheme/lib/PhemeTest.pir
==============================================================================
--- trunk/languages/pheme/lib/PhemeTest.pir	(original)
+++ trunk/languages/pheme/lib/PhemeTest.pir	Sat Jan 10 14:03:31 2009
@@ -6,13 +6,13 @@
     .param string description :optional
 
     .local pmc eqlist
-    eqlist = find_global 'Pheme', 'eqlist?'
+    eqlist = get_hll_global ['Pheme'], 'eqlist?'
 
     .local int equal
     equal = eqlist( l_cons, r_cons )
 
     .local pmc test
-    find_global test, [ 'Test'; 'More' ], '_test'
+    test = get_hll_global [ 'Test'; 'More' ], '_test'
 
     test.'ok'( equal, description )
     .return( equal )
@@ -24,13 +24,13 @@
     .param string description :optional
 
     .local pmc eqlist
-    eqlist = find_global 'Pheme', 'eqlist?'
+    eqlist = get_hll_global ['Pheme'], 'eqlist?'
 
     .local int equal
     equal = eqlist( l_cons, r_cons )
 
     .local pmc test
-    find_global test, [ 'Test'; 'More' ], '_test'
+    test = get_hll_global [ 'Test'; 'More' ], '_test'
 
     test.'ok'( equal, description )
     .return( equal )
@@ -54,8 +54,8 @@
   iter_loop:
     unless iter goto iter_end
     name = shift iter
-    sub  = find_global [ 'Test'; 'More' ], name
-    store_global name, sub
+    sub  = get_hll_global [ 'Test'; 'More' ], name
+    set_global name, sub
     goto iter_loop
   iter_end:
 

Modified: trunk/languages/pheme/lib/pge2past.tg
==============================================================================
--- trunk/languages/pheme/lib/pge2past.tg	(original)
+++ trunk/languages/pheme/lib/pge2past.tg	Sat Jan 10 14:03:31 2009
@@ -144,7 +144,7 @@
     func_name    = substr func_name, 1, name_length
 
     .local pmc func_func
-    func_func = find_global 'Pheme', func_name
+    func_func = get_hll_global ['Pheme'], func_name
 
     .local int have_func
     have_func = defined func_func
@@ -370,14 +370,14 @@
     goto args_iter_loop
   args_iter_end:
     .local pmc arg_names_stack
-    arg_names_stack = find_global 'arg_names_stack'
+    arg_names_stack = get_global 'arg_names_stack'
 
     .local int have_stack
     have_stack = defined arg_names_stack
     if have_stack goto add_names_to_stack
 
     arg_names_stack = new 'ResizablePMCArray'
-    store_global 'arg_names_stack', arg_names_stack
+    set_global 'arg_names_stack', arg_names_stack
 
   add_names_to_stack:
     push arg_names_stack, rewrite_args
@@ -420,7 +420,7 @@
 
 transform rewrite_var_name (PAST;Val) :language('PIR') {
     .local pmc arg_names_stack
-    arg_names_stack = find_global 'arg_names_stack'
+    arg_names_stack = get_global 'arg_names_stack'
 
     .local pmc arg_names
     arg_names = arg_names_stack[-1]



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About