[svn:parrot] r44488 - trunk/tools/dev

[plobsing at svn.parrot.org]

Author: plobsing
Date: Fri Feb 26 01:11:27 2010
New Revision: 44488
URL: https://trac.parrot.org/parrot/changeset/44488

Log:
change :anon :immediate back to global variable. imcc--

Modified:
   trunk/tools/dev/nci_thunk_gen.pir

Modified: trunk/tools/dev/nci_thunk_gen.pir
==============================================================================
--- trunk/tools/dev/nci_thunk_gen.pir	Fri Feb 26 00:37:33 2010	(r44487)
+++ trunk/tools/dev/nci_thunk_gen.pir	Fri Feb 26 01:11:27 2010	(r44488)
@@ -28,12 +28,14 @@
 
 .macro_const VERSION 0.01
 
-.macro_const OPTS_GLOBAL_NAME 'options'
+.macro_const SIG_TABLE_GLOBAL_NAME  'signature_table'
+.macro_const OPTS_GLOBAL_NAME       'options'
 
 .sub 'main' :main
     .param pmc argv
 
     # initialize global variables
+    'gen_sigtable'()
     'get_options'(argv)
 
     .local string targ
@@ -679,7 +681,7 @@
     .param string field_name
 
     .local pmc sig_table
-    .const 'Sub' sig_table = 'get_sigtable'
+    sig_table = get_global .SIG_TABLE_GLOBAL_NAME
 
     $P0 = split '', sig
 
@@ -819,9 +821,9 @@
 
 #}}}
 
-# get_sigtable {{{
+# gen_sigtable {{{
 
-.sub 'get_sigtable' :anon :immediate
+.sub 'gen_sigtable'
     .const string json_table = <<'JSON'
 {
     "p": { "as_proto":   "void *",
@@ -990,7 +992,7 @@
     goto iter_loop
   iter_end:
 
-    .return (table)
+    set_global .SIG_TABLE_GLOBAL_NAME, table
 .end
 
 # }}}