Front page | perl.cvs.parrot |
Postings from January 2009
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