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

[svn:parrot] r35371 - trunk/languages/APL/tools

From:
coke
Date:
January 10, 2009 17:53
Subject:
[svn:parrot] r35371 - trunk/languages/APL/tools
Message ID:
20090111015313.D17F8CB9F9@x12.develooper.com
Author: coke
Date: Sat Jan 10 17:53:12 2009
New Revision: 35371

Modified:
   trunk/languages/APL/tools/gen_operator_defs.pl

Log:
fix APL against removed opcodes



Modified: trunk/languages/APL/tools/gen_operator_defs.pl
==============================================================================
--- trunk/languages/APL/tools/gen_operator_defs.pl	(original)
+++ trunk/languages/APL/tools/gen_operator_defs.pl	Sat Jan 10 17:53:12 2009
@@ -57,7 +57,7 @@
 
 .sub "__load_inlinetable" :load :init
     $P0 = new 'Hash'
-    store_global "APL", "%pirtable", $P0
+    set_hll_global ['APL'], "%pirtable", $P0
     .local pmc itable
     itable = new 'Hash'
     set_hll_global ['APL';'Grammar';'Actions'], '%inlinetable', itable



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