develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r34545 - in branches/global_cleanup/runtime/parrot/library: . Data Digest PGE Stream Tcl Test Test/Builder

From:
coke
Date:
December 28, 2008 20:56
Subject:
[svn:parrot] r34545 - in branches/global_cleanup/runtime/parrot/library: . Data Digest PGE Stream Tcl Test Test/Builder
Message ID:
20081229045632.81391CB9FA@x12.develooper.com
Author: coke
Date: Sun Dec 28 20:56:30 2008
New Revision: 34545

Modified:
   branches/global_cleanup/runtime/parrot/library/Data/Replace.pir
   branches/global_cleanup/runtime/parrot/library/Digest/MD5.pir
   branches/global_cleanup/runtime/parrot/library/JSON.pir
   branches/global_cleanup/runtime/parrot/library/PGE/Glob.pir
   branches/global_cleanup/runtime/parrot/library/STM.pir
   branches/global_cleanup/runtime/parrot/library/Stream/Base.pir
   branches/global_cleanup/runtime/parrot/library/Stream/Writer.pir
   branches/global_cleanup/runtime/parrot/library/Tcl/Glob.pir
   branches/global_cleanup/runtime/parrot/library/Test/Builder.pir
   branches/global_cleanup/runtime/parrot/library/Test/Builder/Test.pir
   branches/global_cleanup/runtime/parrot/library/Test/Builder/Tester.pir
   branches/global_cleanup/runtime/parrot/library/Test/More.pir
   branches/global_cleanup/runtime/parrot/library/dumper.pir
   branches/global_cleanup/runtime/parrot/library/libpcre.pir
   branches/global_cleanup/runtime/parrot/library/ncurses.pir
   branches/global_cleanup/runtime/parrot/library/parrotlib.pir
   branches/global_cleanup/runtime/parrot/library/pcre.pir
   branches/global_cleanup/runtime/parrot/library/postgres.pir
   branches/global_cleanup/runtime/parrot/library/yaml_dumper.pir

Log:
Fixup (just compiles, not tested)  any _global variants needed to complete 'make'



Modified: branches/global_cleanup/runtime/parrot/library/Data/Replace.pir
==============================================================================
--- branches/global_cleanup/runtime/parrot/library/Data/Replace.pir	(original)
+++ branches/global_cleanup/runtime/parrot/library/Data/Replace.pir	Sun Dec 28 20:56:30 2008
@@ -95,7 +95,7 @@
     typeof name, where
     .include 'errors.pasm'
     errorsoff .PARROT_ERRORS_GLOBALS_FLAG
-    find_global temp, "Data::Replace", name
+    temp = get_root_global ['Data::Replace'], name
     errorson .PARROT_ERRORS_GLOBALS_FLAG
     # invoke it if found
     $I0 = defined temp
@@ -111,9 +111,9 @@
 .end
 
 .sub __onload :load
-    $P0 = find_global "Data::Replace", "ResizablePMCArray"
-    store_global "Data::Replace", "PMCArray", $P0
-    store_global "Data::Replace", "StringArray", $P0
+    $P0 = get_root_global ['Data::Replace'], 'ResizablePMCArray'
+    set_root_global ['Data::Replace'], 'PMCArray', $P0
+    set_root_global ['Data::Replace'], 'StringArray', $P0
 .end
 
 .sub ResizablePMCArray

Modified: branches/global_cleanup/runtime/parrot/library/Digest/MD5.pir
==============================================================================
--- branches/global_cleanup/runtime/parrot/library/Digest/MD5.pir	(original)
+++ branches/global_cleanup/runtime/parrot/library/Digest/MD5.pir	Sun Dec 28 20:56:30 2008
@@ -54,12 +54,12 @@
 .sub onload :load
 
     .local pmc f
-    f = find_global "Digest", "_md5sum"
-    store_global "_md5sum", f
-    f = find_global "Digest", "_md5_hex"
-    store_global "_md5_hex", f
-    f = find_global "Digest", "_md5_print"
-    store_global "_md5_print", f
+    f = get_root_global ['Digest'], '_md5sum'
+    set_global '_md5sum', f
+    f = get_root_global ['Digest'], '_md5_hex'
+    set_global '_md5_hex', f
+    f = get_root_global ['Digest'], '_md5_print'
+    set_global '_md5_print', f
 .end
 
 ###########################################################################

Modified: branches/global_cleanup/runtime/parrot/library/JSON.pir
==============================================================================
--- branches/global_cleanup/runtime/parrot/library/JSON.pir	(original)
+++ branches/global_cleanup/runtime/parrot/library/JSON.pir	Sun Dec 28 20:56:30 2008
@@ -131,7 +131,7 @@
 
   $S0 = thing
   .local pmc escaper
-  escaper = find_global "Data::Escape", "String"
+  escaper = get_root_global ['Data::Escape'], 'String'
   $S0 = escaper($S0,'"')
 
   result = '"' . $S0
@@ -274,7 +274,7 @@
   goto iter_loop
 
 done_iter:
-  $P0 = find_global 'Data::Sort', 'simple'
+  $P0 = get_root_global ['Data::Sort'], 'simple'
   $P0( keys )
 
   .local string result,separator

Modified: branches/global_cleanup/runtime/parrot/library/PGE/Glob.pir
==============================================================================
--- branches/global_cleanup/runtime/parrot/library/PGE/Glob.pir	(original)
+++ branches/global_cleanup/runtime/parrot/library/PGE/Glob.pir	Sun Dec 28 20:56:30 2008
@@ -86,21 +86,21 @@
     load_bytecode 'PGE.pbc'
 
     optable = new ['PGE';'OPTable']
-    store_global '$optable', optable
+    set_global '$optable', optable
 
-    $P0 = find_global 'glob_literal'
+    $P0 = get_global 'glob_literal'
     optable.'newtok'('term:', 'precedence'=>'=', 'nows'=>1, 'parsed'=>$P0)
 
-    $P0 = find_global 'glob_quest'
+    $P0 = get_global 'glob_quest'
     optable.'newtok'('term:?', 'equiv'=>'term:', 'nows'=>1, 'parsed'=>$P0)
 
-    $P0 = find_global 'glob_star'
+    $P0 = get_global 'glob_star'
     optable.'newtok'('term:*', 'equiv'=>'term:', 'nows'=>1, 'parsed'=>$P0)
 
-    $P0 = find_global 'glob_enum'
+    $P0 = get_global 'glob_enum'
     optable.'newtok'('term:[', 'equiv'=>'term:', 'nows'=>1, 'parsed'=>$P0)
 
-    $P0 = find_global 'glob_alt'
+    $P0 = get_global 'glob_alt'
     optable.'newtok'('term:{', 'equiv'=>'term:', 'nows'=>1, 'parsed'=>$P0)
 
     optable.'newtok'('infix:', 'looser'=>'term:', 'assoc'=>'list', 'nows'=>1, 'match'=>'PGE::Exp::Concat')
@@ -130,7 +130,7 @@
     .param pmc adverbs         :slurpy :named
 
     .local pmc optable, match
-    optable = find_global ['PGE';'Glob'], '$optable'
+    optable = get_root_global ['PGE';'Glob'], '$optable'
     match = optable.'parse'(mob)
     .return (match)
 .end

Modified: branches/global_cleanup/runtime/parrot/library/STM.pir
==============================================================================
--- branches/global_cleanup/runtime/parrot/library/STM.pir	(original)
+++ branches/global_cleanup/runtime/parrot/library/STM.pir	Sun Dec 28 20:56:30 2008
@@ -4,9 +4,9 @@
     # print "loaded STM runtime library\n"
     # Create globals
     $P0 = new 'ResizablePMCArray'
-    store_global 'STM', 'ends', $P0
+    set_root_global ['STM'], 'ends', $P0
     $P0 = new 'ResizableIntegerArray'
-    store_global 'STM', 'statuses', $P0
+    set_root_global ['STM'], 'statuses', $P0
 .end
 
 .const int STATUS_COMMIT = 0
@@ -38,7 +38,7 @@
 
 restart_tx:
     .local pmc statuses
-    statuses = find_global 'statuses'
+    statuses = get_global 'statuses'
     tx_flags = bor tx_flags, STATUS_COMMIT
     push statuses, tx_flags
 
@@ -47,7 +47,7 @@
     the_result = new 'Undef'
 
     .local pmc _thelper
-    _thelper = find_global '_transaction_helper'
+    _thelper = get_global '_transaction_helper'
 
     $P0 = newclosure _thelper
     stm_start
@@ -61,10 +61,10 @@
     #print $I0
     #print "\n"
     .local pmc ends
-    ends = find_global 'ends'
+    ends = get_global 'ends'
     $P0 = pop ends
     .local int status
-    statuses = find_global 'statuses'
+    statuses = get_global 'statuses'
     status = pop statuses
     status = band status, STATUS_MASK
     if status == STATUS_COMMIT goto do_commit
@@ -124,14 +124,14 @@
     closure = find_lex 'closure'
     args = find_lex 'args'
     the_cont = interpinfo .INTERPINFO_CURRENT_CONT
-    ends = find_global 'ends'
+    ends = get_global 'ends'
     push ends, the_cont
     .tailcall closure(args :flat)
 .end
 
 .sub _end_tx
     .local pmc ends
-    ends = find_global 'ends'
+    ends = get_global 'ends'
     .local pmc end
     end = ends[-1]
     $P0 = end() # workaround?
@@ -140,7 +140,7 @@
 
 .sub _cur_status
     .local pmc statuses
-    statuses = find_global 'statuses'
+    statuses = get_global 'statuses'
     $I0 = statuses
     if $I0 == 0 goto none_such
     $I0 = $I0 - 1
@@ -154,7 +154,7 @@
 .sub _set_status
     .param int new_status
     .local pmc statuses
-    statuses = find_global 'statuses'
+    statuses = get_global 'statuses'
     $I0 = pop statuses
     push statuses, new_status
 .end
@@ -176,7 +176,7 @@
     .local int this_status
     .local pmc this_end
     .local int i
-    statuses = find_global 'statuses'
+    statuses = get_global 'statuses'
 
     i = statuses
     dec i
@@ -278,7 +278,7 @@
     .param pmc args :slurpy
     .local int status
 
-    $P0 = find_global '_transaction'
+    $P0 = get_global '_transaction'
     # print "STM::transaction("
     # print closure
     # print ", ...)\n"

Modified: branches/global_cleanup/runtime/parrot/library/Stream/Base.pir
==============================================================================
--- branches/global_cleanup/runtime/parrot/library/Stream/Base.pir	(original)
+++ branches/global_cleanup/runtime/parrot/library/Stream/Base.pir	Sun Dec 28 20:56:30 2008
@@ -40,7 +40,7 @@
     .local pmc close
 
     # call our own close
-    close = find_global "Stream::Base", "close"
+    close = get_root_global ['Stream::Base'], 'close'
     close(self)
 .end
 
@@ -91,7 +91,7 @@
     .local int i
     .local pmc escape
 
-    escape = find_global "Data::Escape", "String"
+    escape = get_root_global ['Data::Escape'], 'String'
 LOOP:
     i = self."connected"()
     unless i goto END

Modified: branches/global_cleanup/runtime/parrot/library/Stream/Writer.pir
==============================================================================
--- branches/global_cleanup/runtime/parrot/library/Stream/Writer.pir	(original)
+++ branches/global_cleanup/runtime/parrot/library/Stream/Writer.pir	Sun Dec 28 20:56:30 2008
@@ -64,7 +64,7 @@
     source()
 
     # close the source
-    source = find_global "Stream::Base", "close"
+    source = get_root_global ['Stream::Base'], 'close'
     self."setSource"()
 
     # mark it as closed

Modified: branches/global_cleanup/runtime/parrot/library/Tcl/Glob.pir
==============================================================================
--- branches/global_cleanup/runtime/parrot/library/Tcl/Glob.pir	(original)
+++ branches/global_cleanup/runtime/parrot/library/Tcl/Glob.pir	Sun Dec 28 20:56:30 2008
@@ -86,18 +86,18 @@
     load_bytecode 'PCT/HLLCompiler.pbc'
 
     optable = new ['PGE';'OPTable']
-    store_global '$optable', optable
+    set_global '$optable', optable
 
-    $P0 = find_global 'glob_literal'
+    $P0 = get_global 'glob_literal'
     optable.'newtok'('term:', 'precedence'=>'=', 'nows'=>1, 'parsed'=>$P0)
 
-    $P0 = find_global 'glob_quest'
+    $P0 = get_global 'glob_quest'
     optable.'newtok'('term:?', 'equiv'=>'term:', 'nows'=>1, 'parsed'=>$P0)
 
-    $P0 = find_global 'glob_star'
+    $P0 = get_global 'glob_star'
     optable.'newtok'('term:*', 'equiv'=>'term:', 'nows'=>1, 'parsed'=>$P0)
 
-    $P0 = find_global 'glob_enum'
+    $P0 = get_global 'glob_enum'
     optable.'newtok'('term:[', 'equiv'=>'term:', 'nows'=>1, 'parsed'=>$P0)
 
     optable.'newtok'('infix:', 'looser'=>'term:', 'assoc'=>'list', 'nows'=>1, 'match'=>'PGE::Exp::Concat')
@@ -127,7 +127,7 @@
     .param pmc adverbs         :slurpy :named
 
     .local pmc optable, match
-    optable = find_global ['Tcl';'Glob'], '$optable'
+    optable = get_root_global ['Tcl';'Glob'], '$optable'
     match = optable.'parse'(mob)
     .return (match)
 .end

Modified: branches/global_cleanup/runtime/parrot/library/Test/Builder.pir
==============================================================================
--- branches/global_cleanup/runtime/parrot/library/Test/Builder.pir	(original)
+++ branches/global_cleanup/runtime/parrot/library/Test/Builder.pir	Sun Dec 28 20:56:30 2008
@@ -60,7 +60,7 @@
     .local pmc single
     single = new 'Undef'
 
-    store_global [ 'Test'; 'Builder'; '_singleton' ], 'singleton', single
+    set_root_global [ 'Test'; 'Builder'; '_singleton' ], 'singleton', single
 .end
 
 =item C<new( args_hash )>
@@ -166,7 +166,7 @@
     .param pmc args
 
     .local pmc single
-    single     = find_global [ 'Test'; 'Builder'; '_singleton' ], 'singleton'
+    single     = get_root_global [ 'Test'; 'Builder'; '_singleton' ], 'singleton'
 
     .local pmc output
     .local pmc testplan
@@ -212,7 +212,7 @@
     results    = new 'ResizablePMCArray'
 
     # store this as the singleton
-    store_global [ 'Test'; 'Builder'; '_singleton' ], 'singleton', self
+    set_root_global [ 'Test'; 'Builder'; '_singleton' ], 'singleton', self
 
   RESULTS_DEFINED:
     .return( output, testplan, results )
@@ -532,7 +532,7 @@
     push results, test
 
     .local pmc tbt_create
-    find_global tbt_create, [ 'Test'; 'Builder'; 'Test' ], 'create'
+    get_root_global tbt_create, [ 'Test'; 'Builder'; 'Test' ], 'create'
     test = tbt_create( test_args )
 
     .local pmc output

Modified: branches/global_cleanup/runtime/parrot/library/Test/Builder/Test.pir
==============================================================================
--- branches/global_cleanup/runtime/parrot/library/Test/Builder/Test.pir	(original)
+++ branches/global_cleanup/runtime/parrot/library/Test/Builder/Test.pir	Sun Dec 28 20:56:30 2008
@@ -280,7 +280,7 @@
     .local pmc status
     .local pmc parent_status
 
-    parent_status = find_global 'Test::Builder::Test::WithReason', 'status'
+    parent_status = get_root_global ['Test::Builder::Test::WithReason'], 'status'
     status        = parent_status()
     reason        = self.'reason'()
 
@@ -315,7 +315,7 @@
     .local pmc status
     .local pmc parent_status
 
-    parent_status = find_global 'Test::Builder::Test::WithReason', 'status'
+    parent_status = get_root_global ['Test::Builder::Test::WithReason'], 'status'
     status        = parent_status()
 
     set status['skip'], 1
@@ -360,7 +360,7 @@
     .local pmc status
     .local pmc parent_status
 
-    parent_status = find_global 'Test::Builder::Test::WithReason', 'status'
+    parent_status = get_root_global ['Test::Builder::Test::WithReason'], 'status'
     status        = parent_status()
     passed        = self.'passed'()
 

Modified: branches/global_cleanup/runtime/parrot/library/Test/Builder/Tester.pir
==============================================================================
--- branches/global_cleanup/runtime/parrot/library/Test/Builder/Tester.pir	(original)
+++ branches/global_cleanup/runtime/parrot/library/Test/Builder/Tester.pir	Sun Dec 28 20:56:30 2008
@@ -15,10 +15,10 @@
     .local pmc test_diag
     .local pmc test_test
 
-    plan      = find_global [ 'Test'; 'Builder'; 'Tester' ], 'plan'
-    test_out  = find_global [ 'Test'; 'Builder'; 'Tester' ], 'test_out'
-    test_diag = find_global [ 'Test'; 'Builder'; 'Tester' ], 'test_diag'
-    test_test = find_global [ 'Test'; 'Builder'; 'Tester' ], 'test_test'
+    plan      = get_root_global [ 'Test'; 'Builder'; 'Tester' ], 'plan'
+    test_out  = get_root_global [ 'Test'; 'Builder'; 'Tester' ], 'test_out'
+    test_diag = get_root_global [ 'Test'; 'Builder'; 'Tester' ], 'test_diag'
+    test_test = get_root_global [ 'Test'; 'Builder'; 'Tester' ], 'test_test'
 
     # create a new Test::Builder object
     .local pmc tb_args
@@ -175,7 +175,7 @@
 
     # create the Test::Builder object that this uses
     .local pmc tb_create
-    tb_create   = find_global [ 'Test'; 'Builder' ], 'create'
+    tb_create   = get_root_global [ 'Test'; 'Builder' ], 'create'
 
     args        = new 'Hash'
     output      = new [ 'Test'; 'Builder'; 'Output' ], args
@@ -190,11 +190,11 @@
     expect_out  = new 'ResizablePMCArray'
     expect_diag = new 'ResizablePMCArray'
 
-    store_global [ 'Test'; 'Builder'; 'Tester' ], '_test',         test
-    store_global [ 'Test'; 'Builder'; 'Tester' ], '_default_test', default_test
-    store_global [ 'Test'; 'Builder'; 'Tester' ], '_test_output',  test_output
-    store_global [ 'Test'; 'Builder'; 'Tester' ], '_expect_out',   expect_out
-    store_global [ 'Test'; 'Builder'; 'Tester' ], '_expect_diag',  expect_diag
+    set_root_global [ 'Test'; 'Builder'; 'Tester' ], '_test',         test
+    set_root_global [ 'Test'; 'Builder'; 'Tester' ], '_default_test', default_test
+    set_root_global [ 'Test'; 'Builder'; 'Tester' ], '_test_output',  test_output
+    set_root_global [ 'Test'; 'Builder'; 'Tester' ], '_expect_out',   expect_out
+    set_root_global [ 'Test'; 'Builder'; 'Tester' ], '_expect_diag',  expect_diag
 .end
 
 =item C<plan( num_tests )>
@@ -207,7 +207,7 @@
     .param int tests
 
     .local pmc test
-    test = find_global [ 'Test'; 'Builder'; 'Tester' ], '_test'
+    test = get_root_global [ 'Test'; 'Builder'; 'Tester' ], '_test'
 
     test.'plan'( tests )
 .end
@@ -251,7 +251,7 @@
     .local int result_count
     .local pmc next_result
 
-    test         = find_global [ 'Test'; 'Builder'; 'Tester' ], '_default_test'
+    test         = get_root_global [ 'Test'; 'Builder'; 'Tester' ], '_default_test'
     results      = test.'results'()
     result_count = results
     inc result_count
@@ -273,7 +273,7 @@
 
   SET_EXPECT_OUTPUT:
     .local pmc expect_out
-    expect_out = find_global [ 'Test'; 'Builder'; 'Tester' ], '_expect_out'
+    expect_out = get_root_global [ 'Test'; 'Builder'; 'Tester' ], '_expect_out'
 
     push expect_out, line_string
 .end
@@ -294,7 +294,7 @@
     set line_string, line
 
     .local pmc expect_out
-    expect_out = find_global [ 'Test'; 'Builder'; 'Tester' ], '_expect_out'
+    expect_out = get_root_global [ 'Test'; 'Builder'; 'Tester' ], '_expect_out'
 
     push expect_out, line_string
 .end
@@ -314,7 +314,7 @@
     set line_string, line
 
     .local pmc expect_diag
-    expect_diag = find_global [ 'Test'; 'Builder'; 'Tester' ], '_expect_diag'
+    expect_diag = get_root_global [ 'Test'; 'Builder'; 'Tester' ], '_expect_diag'
 
     push expect_diag, line_string
 .end
@@ -336,7 +336,7 @@
     set line_string, line
 
     .local pmc expect_diag
-    expect_diag = find_global [ 'Test'; 'Builder'; 'Tester' ], '_expect_diag'
+    expect_diag = get_root_global [ 'Test'; 'Builder'; 'Tester' ], '_expect_diag'
 
     push expect_diag, line_string
 .end
@@ -364,10 +364,10 @@
     .local pmc expect_diag
     .local pmc test_output
 
-    test          = find_global [ 'Test'; 'Builder'; 'Tester' ], '_test'
-    expect_out    = find_global [ 'Test'; 'Builder'; 'Tester' ], '_expect_out'
-    expect_diag   = find_global [ 'Test'; 'Builder'; 'Tester' ], '_expect_diag'
-    test_output   = find_global [ 'Test'; 'Builder'; 'Tester' ], '_test_output'
+    test          = get_root_global [ 'Test'; 'Builder'; 'Tester' ], '_test'
+    expect_out    = get_root_global [ 'Test'; 'Builder'; 'Tester' ], '_expect_out'
+    expect_diag   = get_root_global [ 'Test'; 'Builder'; 'Tester' ], '_expect_diag'
+    test_output   = get_root_global [ 'Test'; 'Builder'; 'Tester' ], '_test_output'
 
     .local string received_out_string
     .local string received_diag_string

Modified: branches/global_cleanup/runtime/parrot/library/Test/More.pir
==============================================================================
--- branches/global_cleanup/runtime/parrot/library/Test/More.pir	(original)
+++ branches/global_cleanup/runtime/parrot/library/Test/More.pir	Sun Dec 28 20:56:30 2008
@@ -69,7 +69,7 @@
     .local pmc test
     test = new [ 'Test'; 'Builder' ]
 
-    store_global [ 'Test'; 'More' ], '_test', test
+    set_root_global [ 'Test'; 'More' ], '_test', test
 .end
 
 =item C<plan( number_or_no_plan )>
@@ -84,7 +84,7 @@
     .param string tests
 
     .local pmc test
-    find_global test, [ 'Test'; 'More' ], '_test'
+    get_root_global test, [ 'Test'; 'More' ], '_test'
     test.'plan'( tests )
 .end
 
@@ -100,7 +100,7 @@
     .param string description     :optional
 
     .local pmc test
-    find_global test, [ 'Test'; 'More' ], '_test'
+    get_root_global test, [ 'Test'; 'More' ], '_test'
 
     test.'ok'( passed, description )
 .end
@@ -117,7 +117,7 @@
     .param string description :optional
 
     .local pmc test
-    find_global test, [ 'Test'; 'More' ], '_test'
+    get_root_global test, [ 'Test'; 'More' ], '_test'
 
     .local int reverse_passed
     reverse_passed = not passed
@@ -154,7 +154,7 @@
     .param int have_desc   :opt_flag
 
     .local pmc test
-    find_global test, [ 'Test'; 'More' ], '_test'
+    get_root_global test, [ 'Test'; 'More' ], '_test'
 
     .local int l, r, pass
     l    = left
@@ -185,7 +185,7 @@
     .param int have_prec   :opt_flag
 
     .local pmc test
-    find_global test, [ 'Test'; 'More' ], '_test'
+    get_root_global test, [ 'Test'; 'More' ], '_test'
 
     .local num l, r
     .local int pass
@@ -225,7 +225,7 @@
     .param int have_desc   :opt_flag
 
     .local pmc test
-    find_global test, [ 'Test'; 'More' ], '_test'
+    get_root_global test, [ 'Test'; 'More' ], '_test'
 
     .local string l, r
     .local int pass
@@ -255,7 +255,7 @@
     .param int have_desc   :opt_flag
 
     .local pmc test
-    find_global test, [ 'Test'; 'More' ], '_test'
+    get_root_global test, [ 'Test'; 'More' ], '_test'
 
     .local int pass
     .local int does_type
@@ -316,7 +316,7 @@
     .param int have_desc   :opt_flag
 
     .local pmc test
-    find_global test, [ 'Test'; 'More' ], '_test'
+    get_root_global test, [ 'Test'; 'More' ], '_test'
 
     .local int pass
     pass       = 0
@@ -351,7 +351,7 @@
     .param int have_desc   :opt_flag
 
     .local pmc test
-    find_global test, [ 'Test'; 'More' ], '_test'
+    get_root_global test, [ 'Test'; 'More' ], '_test'
 
     .local int pass
     pass = 0
@@ -386,7 +386,7 @@
     .param int have_desc   :opt_flag
 
     .local pmc test
-    find_global test, [ 'Test'; 'More' ], '_test'
+    get_root_global test, [ 'Test'; 'More' ], '_test'
 
     .local int pass
     pass = 0
@@ -421,7 +421,7 @@
     .param int have_desc   :opt_flag
 
     .local pmc test
-    find_global test, [ 'Test'; 'More' ], '_test'
+    get_root_global test, [ 'Test'; 'More' ], '_test'
 
     # this comparison may not work in general, but it's worth trying
     .local int pass
@@ -454,7 +454,7 @@
     .param string diagnostic
 
     .local pmc test
-    find_global test, [ 'Test'; 'More' ], '_test'
+    get_root_global test, [ 'Test'; 'More' ], '_test'
     test.'diag'( diagnostic )
 .end
 
@@ -484,7 +484,7 @@
     position = new 'ResizablePMCArray'
 
     .local pmc test
-    find_global test, [ 'Test'; 'More' ], '_test'
+    get_root_global test, [ 'Test'; 'More' ], '_test'
 
     .local int does_flag
     does_flag = does left, 'array'
@@ -547,7 +547,7 @@
     .param pmc position
 
     .local pmc test
-    find_global test, [ 'Test'; 'More' ], '_test'
+    get_root_global test, [ 'Test'; 'More' ], '_test'
 
     .local int l_count
     .local int r_count
@@ -612,7 +612,7 @@
     .param pmc position
 
     .local pmc test
-    find_global test, [ 'Test'; 'More' ], '_test'
+    get_root_global test, [ 'Test'; 'More' ], '_test'
 
     .local int l_count
     .local int r_count
@@ -833,7 +833,7 @@
     .param string description :optional
 
     .local pmc test
-    find_global test, [ 'Test'; 'More' ], '_test'
+    get_root_global test, [ 'Test'; 'More' ], '_test'
 
     .local pmc p6rule_compile
     load_bytecode "PGE.pbc"
@@ -887,7 +887,7 @@
     .param string description
 
     .local pmc test
-    find_global test, [ 'Test'; 'More' ], '_test'
+    get_root_global test, [ 'Test'; 'More' ], '_test'
     test.'skip'(how_many, description)
 .end
 
@@ -895,7 +895,7 @@
     .param int how_many
 
     .local pmc test
-    find_global test, [ 'Test'; 'More' ], '_test'
+    get_root_global test, [ 'Test'; 'More' ], '_test'
     test.'skip'(how_many)
 .end
 
@@ -903,13 +903,13 @@
     .param string description
 
     .local pmc test
-    find_global test, [ 'Test'; 'More' ], '_test'
+    get_root_global test, [ 'Test'; 'More' ], '_test'
     test.'skip'(1, description)
 .end
 
 .sub skip :multi()
     .local pmc test
-    find_global test, [ 'Test'; 'More' ], '_test'
+    get_root_global test, [ 'Test'; 'More' ], '_test'
     test.'skip'()
 .end
 
@@ -925,7 +925,7 @@
     .param pmc args :slurpy
 
     .local pmc test
-    find_global test, [ 'Test'; 'More' ], '_test'
+    get_root_global test, [ 'Test'; 'More' ], '_test'
 
     test.'todo'( args :flat )
 .end
@@ -950,7 +950,7 @@
     .param int got_name :opt_flag
 
     .local pmc test
-    find_global test, [ 'Test'; 'More' ], '_test'
+    get_root_global test, [ 'Test'; 'More' ], '_test'
 
     .local string description, diagnostic
     description = "The object"

Modified: branches/global_cleanup/runtime/parrot/library/dumper.pir
==============================================================================
--- branches/global_cleanup/runtime/parrot/library/dumper.pir	(original)
+++ branches/global_cleanup/runtime/parrot/library/dumper.pir	Sun Dec 28 20:56:30 2008
@@ -161,13 +161,13 @@
 TYPE_OK:
 
     errorsoff .PARROT_ERRORS_GLOBALS_FLAG
-    find_global self, "Data::Dumper", "global"
+    self = get_root_global ['Data::Dumper'], 'global'
     errorson .PARROT_ERRORS_GLOBALS_FLAG
     if null self goto create_type
 
 create_type:
     new self, "Data::Dumper"
-    store_global "Data::Dumper", "global", self
+    set_root_global ['Data::Dumper'], 'global', self
 
 END:
     .return( self )

Modified: branches/global_cleanup/runtime/parrot/library/libpcre.pir
==============================================================================
--- branches/global_cleanup/runtime/parrot/library/libpcre.pir	(original)
+++ branches/global_cleanup/runtime/parrot/library/libpcre.pir	Sun Dec 28 20:56:30 2008
@@ -35,7 +35,7 @@
     ## allocate space in string for error message
     repeat error, " ", error_size
 
-    PCRE_NCI_compile= find_global 'PCRE::NCI', 'PCRE_compile'
+    PCRE_NCI_compile= get_root_global ['PCRE::NCI'], 'PCRE_compile'
 
     .local pmc code
 
@@ -81,7 +81,7 @@
 
     ## on 32 bit systems
     .local pmc PCRE_NCI_exec
-    PCRE_NCI_exec = find_global 'PCRE::NCI', 'PCRE_exec'
+    PCRE_NCI_exec = get_root_global ['PCRE::NCI'], 'PCRE_exec'
 
     .local int ok
 

Modified: branches/global_cleanup/runtime/parrot/library/ncurses.pir
==============================================================================
--- branches/global_cleanup/runtime/parrot/library/ncurses.pir	(original)
+++ branches/global_cleanup/runtime/parrot/library/ncurses.pir	Sun Dec 28 20:56:30 2008
@@ -5,655 +5,655 @@
 loadlib $P1, 'cygform-8'
 has_lib:
 dlfunc $P2, $P1, 'new_field', 'piiiiii'
-store_global 'ncurses::new_field', $P2
+set_global 'ncurses::new_field', $P2
 dlfunc $P2, $P1, 'dup_field', 'ppii'
-store_global 'ncurses::dup_field', $P2
+set_global 'ncurses::dup_field', $P2
 dlfunc $P2, $P1, 'link_field', 'ppii'
-store_global 'ncurses::link_field', $P2
+set_global 'ncurses::link_field', $P2
 dlfunc $P2, $P1, 'free_field', 'ip'
-store_global 'ncurses::free_field', $P2
+set_global 'ncurses::free_field', $P2
 dlfunc $P2, $P1, 'field_info', 'ip333333'
-store_global 'ncurses::field_info', $P2
+set_global 'ncurses::field_info', $P2
 dlfunc $P2, $P1, 'dynamic_field_info', 'ip333'
-store_global 'ncurses::dynamic_field_info', $P2
+set_global 'ncurses::dynamic_field_info', $P2
 dlfunc $P2, $P1, 'set_max_field', 'ipi'
-store_global 'ncurses::set_max_field', $P2
+set_global 'ncurses::set_max_field', $P2
 dlfunc $P2, $P1, 'move_field', 'ipii'
-store_global 'ncurses::move_field', $P2
+set_global 'ncurses::move_field', $P2
 dlfunc $P2, $P1, 'set_new_page', 'ipl'
-store_global 'ncurses::set_new_page', $P2
+set_global 'ncurses::set_new_page', $P2
 dlfunc $P2, $P1, 'set_field_just', 'ipi'
-store_global 'ncurses::set_field_just', $P2
+set_global 'ncurses::set_field_just', $P2
 dlfunc $P2, $P1, 'field_just', 'ip'
-store_global 'ncurses::field_just', $P2
+set_global 'ncurses::field_just', $P2
 dlfunc $P2, $P1, 'set_field_fore', 'ipl'
-store_global 'ncurses::set_field_fore', $P2
+set_global 'ncurses::set_field_fore', $P2
 dlfunc $P2, $P1, 'set_field_back', 'ipl'
-store_global 'ncurses::set_field_back', $P2
+set_global 'ncurses::set_field_back', $P2
 dlfunc $P2, $P1, 'set_field_pad', 'ipi'
-store_global 'ncurses::set_field_pad', $P2
+set_global 'ncurses::set_field_pad', $P2
 dlfunc $P2, $P1, 'field_pad', 'ip'
-store_global 'ncurses::field_pad', $P2
+set_global 'ncurses::field_pad', $P2
 dlfunc $P2, $P1, 'set_field_buffer', 'ipit'
-store_global 'ncurses::set_field_buffer', $P2
+set_global 'ncurses::set_field_buffer', $P2
 dlfunc $P2, $P1, 'set_field_status', 'ipl'
-store_global 'ncurses::set_field_status', $P2
+set_global 'ncurses::set_field_status', $P2
 dlfunc $P2, $P1, 'set_field_userptr', 'ipp'
-store_global 'ncurses::set_field_userptr', $P2
+set_global 'ncurses::set_field_userptr', $P2
 dlfunc $P2, $P1, 'set_field_opts', 'ipi'
-store_global 'ncurses::set_field_opts', $P2
+set_global 'ncurses::set_field_opts', $P2
 dlfunc $P2, $P1, 'field_opts_on', 'ipi'
-store_global 'ncurses::field_opts_on', $P2
+set_global 'ncurses::field_opts_on', $P2
 dlfunc $P2, $P1, 'field_opts_off', 'ipi'
-store_global 'ncurses::field_opts_off', $P2
+set_global 'ncurses::field_opts_off', $P2
 dlfunc $P2, $P1, 'field_fore', 'lp'
-store_global 'ncurses::field_fore', $P2
+set_global 'ncurses::field_fore', $P2
 dlfunc $P2, $P1, 'field_back', 'ip'
-store_global 'ncurses::field_back', $P2
+set_global 'ncurses::field_back', $P2
 dlfunc $P2, $P1, 'new_page', 'lp'
-store_global 'ncurses::new_page', $P2
+set_global 'ncurses::new_page', $P2
 dlfunc $P2, $P1, 'field_status', 'lp'
-store_global 'ncurses::field_status', $P2
+set_global 'ncurses::field_status', $P2
 dlfunc $P2, $P1, 'field_arg', 'pp'
-store_global 'ncurses::field_arg', $P2
+set_global 'ncurses::field_arg', $P2
 dlfunc $P2, $P1, 'field_userptr', 'pp'
-store_global 'ncurses::field_userptr', $P2
+set_global 'ncurses::field_userptr', $P2
 dlfunc $P2, $P1, 'field_type', 'pp'
-store_global 'ncurses::field_type', $P2
+set_global 'ncurses::field_type', $P2
 dlfunc $P2, $P1, 'field_buffer', 'tpi'
-store_global 'ncurses::field_buffer', $P2
+set_global 'ncurses::field_buffer', $P2
 dlfunc $P2, $P1, 'field_opts', 'lp'
-store_global 'ncurses::field_opts', $P2
+set_global 'ncurses::field_opts', $P2
 dlfunc $P2, $P1, 'new_form', 'pb'
-store_global 'ncurses::new_form', $P2
+set_global 'ncurses::new_form', $P2
 dlfunc $P2, $P1, 'current_field', 'pp'
-store_global 'ncurses::current_field', $P2
+set_global 'ncurses::current_field', $P2
 dlfunc $P2, $P1, 'form_win', 'pp'
-store_global 'ncurses::form_win', $P2
+set_global 'ncurses::form_win', $P2
 dlfunc $P2, $P1, 'form_sub', 'pp'
-store_global 'ncurses::form_sub', $P2
+set_global 'ncurses::form_sub', $P2
 dlfunc $P2, $P1, 'free_form', 'ip'
-store_global 'ncurses::free_form', $P2
+set_global 'ncurses::free_form', $P2
 dlfunc $P2, $P1, 'set_form_fields', 'ipb'
-store_global 'ncurses::set_form_fields', $P2
+set_global 'ncurses::set_form_fields', $P2
 dlfunc $P2, $P1, 'field_count', 'ip'
-store_global 'ncurses::field_count', $P2
+set_global 'ncurses::field_count', $P2
 dlfunc $P2, $P1, 'set_form_win', 'ipp'
-store_global 'ncurses::set_form_win', $P2
+set_global 'ncurses::set_form_win', $P2
 dlfunc $P2, $P1, 'set_form_sub', 'ipp'
-store_global 'ncurses::set_form_sub', $P2
+set_global 'ncurses::set_form_sub', $P2
 dlfunc $P2, $P1, 'set_current_field', 'ipp'
-store_global 'ncurses::set_current_field', $P2
+set_global 'ncurses::set_current_field', $P2
 dlfunc $P2, $P1, 'field_index', 'ip'
-store_global 'ncurses::field_index', $P2
+set_global 'ncurses::field_index', $P2
 dlfunc $P2, $P1, 'set_form_page', 'ipi'
-store_global 'ncurses::set_form_page', $P2
+set_global 'ncurses::set_form_page', $P2
 dlfunc $P2, $P1, 'form_page', 'ip'
-store_global 'ncurses::form_page', $P2
+set_global 'ncurses::form_page', $P2
 dlfunc $P2, $P1, 'scale_form', 'ip33'
-store_global 'ncurses::scale_form', $P2
+set_global 'ncurses::scale_form', $P2
 dlfunc $P2, $P1, 'post_form', 'ip'
-store_global 'ncurses::post_form', $P2
+set_global 'ncurses::post_form', $P2
 dlfunc $P2, $P1, 'unpost_form', 'ip'
-store_global 'ncurses::unpost_form', $P2
+set_global 'ncurses::unpost_form', $P2
 dlfunc $P2, $P1, 'pos_form_cursor', 'ip'
-store_global 'ncurses::pos_form_cursor', $P2
+set_global 'ncurses::pos_form_cursor', $P2
 dlfunc $P2, $P1, 'form_driver', 'ipi'
-store_global 'ncurses::form_driver', $P2
+set_global 'ncurses::form_driver', $P2
 dlfunc $P2, $P1, 'set_form_userptr', 'ipp'
-store_global 'ncurses::set_form_userptr', $P2
+set_global 'ncurses::set_form_userptr', $P2
 dlfunc $P2, $P1, 'set_form_opts', 'ipi'
-store_global 'ncurses::set_form_opts', $P2
+set_global 'ncurses::set_form_opts', $P2
 dlfunc $P2, $P1, 'form_opts_on', 'ipi'
-store_global 'ncurses::form_opts_on', $P2
+set_global 'ncurses::form_opts_on', $P2
 dlfunc $P2, $P1, 'form_opts_off', 'ipi'
-store_global 'ncurses::form_opts_off', $P2
+set_global 'ncurses::form_opts_off', $P2
 dlfunc $P2, $P1, 'form_request_by_name', 'it'
-store_global 'ncurses::form_request_by_name', $P2
+set_global 'ncurses::form_request_by_name', $P2
 dlfunc $P2, $P1, 'form_request_name', 'ti'
-store_global 'ncurses::form_request_name', $P2
+set_global 'ncurses::form_request_name', $P2
 dlfunc $P2, $P1, 'form_userptr', 'pp'
-store_global 'ncurses::form_userptr', $P2
+set_global 'ncurses::form_userptr', $P2
 dlfunc $P2, $P1, 'form_opts', 'ip'
-store_global 'ncurses::form_opts', $P2
+set_global 'ncurses::form_opts', $P2
 dlfunc $P2, $P1, 'data_ahead', 'lp'
-store_global 'ncurses::data_ahead', $P2
+set_global 'ncurses::data_ahead', $P2
 dlfunc $P2, $P1, 'data_behind', 'lp'
-store_global 'ncurses::data_behind', $P2
+set_global 'ncurses::data_behind', $P2
 
 loadlib $P1, 'libncurses'
 if $P1 goto has_lib1
 loadlib $P1, 'cygncurses-8'
 has_lib1:
 dlfunc $P2, $P1, 'keybound', 'tii'
-store_global 'ncurses::keybound', $P2
+set_global 'ncurses::keybound', $P2
 
 dlfunc $P2, $P1, 'curses_version', 't'
-store_global 'ncurses::curses_version', $P2
+set_global 'ncurses::curses_version', $P2
 dlfunc $P2, $P1, 'assume_default_colors', 'iii'
-store_global 'ncurses::assume_default_colors', $P2
+set_global 'ncurses::assume_default_colors', $P2
 dlfunc $P2, $P1, 'define_key', 'iti'
-store_global 'ncurses::define_key', $P2
+set_global 'ncurses::define_key', $P2
 dlfunc $P2, $P1, 'keyok', 'iii'
-store_global 'ncurses::keyok', $P2
+set_global 'ncurses::keyok', $P2
 dlfunc $P2, $P1, 'resizeterm', 'iii'
-store_global 'ncurses::resizeterm', $P2
+set_global 'ncurses::resizeterm', $P2
 dlfunc $P2, $P1, 'use_default_colors', 'i'
-store_global 'ncurses::use_default_colors', $P2
+set_global 'ncurses::use_default_colors', $P2
 dlfunc $P2, $P1, 'use_extended_names', 'ii'
-store_global 'ncurses::use_extended_names', $P2
+set_global 'ncurses::use_extended_names', $P2
 dlfunc $P2, $P1, 'wresize', 'ipii'
-store_global 'ncurses::wresize', $P2
+set_global 'ncurses::wresize', $P2
 dlfunc $P2, $P1, 'addch', 'il'
-store_global 'ncurses::addch', $P2
+set_global 'ncurses::addch', $P2
 dlfunc $P2, $P1, 'addchnstr', 'i4i'
-store_global 'ncurses::addchnstr', $P2
+set_global 'ncurses::addchnstr', $P2
 dlfunc $P2, $P1, 'addchstr', 'i4'
-store_global 'ncurses::addchstr', $P2
+set_global 'ncurses::addchstr', $P2
 dlfunc $P2, $P1, 'addnstr', 'iti'
-store_global 'ncurses::addnstr', $P2
+set_global 'ncurses::addnstr', $P2
 dlfunc $P2, $P1, 'addstr', 'it'
-store_global 'ncurses::addstr', $P2
+set_global 'ncurses::addstr', $P2
 dlfunc $P2, $P1, 'attroff', 'il'
-store_global 'ncurses::attroff', $P2
+set_global 'ncurses::attroff', $P2
 dlfunc $P2, $P1, 'attron', 'il'
-store_global 'ncurses::attron', $P2
+set_global 'ncurses::attron', $P2
 dlfunc $P2, $P1, 'attrset', 'il'
-store_global 'ncurses::attrset', $P2
+set_global 'ncurses::attrset', $P2
 dlfunc $P2, $P1, 'attr_get', 'i42p'
-store_global 'ncurses::attr_get', $P2
+set_global 'ncurses::attr_get', $P2
 dlfunc $P2, $P1, 'attr_off', 'ilp'
-store_global 'ncurses::attr_off', $P2
+set_global 'ncurses::attr_off', $P2
 dlfunc $P2, $P1, 'attr_on', 'ilp'
-store_global 'ncurses::attr_on', $P2
+set_global 'ncurses::attr_on', $P2
 dlfunc $P2, $P1, 'attr_set', 'ilsp'
-store_global 'ncurses::attr_set', $P2
+set_global 'ncurses::attr_set', $P2
 dlfunc $P2, $P1, 'baudrate', 'i'
-store_global 'ncurses::baudrate', $P2
+set_global 'ncurses::baudrate', $P2
 dlfunc $P2, $P1, 'beep', 'i'
-store_global 'ncurses::beep', $P2
+set_global 'ncurses::beep', $P2
 dlfunc $P2, $P1, 'bkgd', 'il'
-store_global 'ncurses::bkgd', $P2
+set_global 'ncurses::bkgd', $P2
 dlfunc $P2, $P1, 'bkgdset', 'vl'
-store_global 'ncurses::bkgdset', $P2
+set_global 'ncurses::bkgdset', $P2
 dlfunc $P2, $P1, 'border', 'villllllll'
-store_global 'ncurses::border', $P2
+set_global 'ncurses::border', $P2
 dlfunc $P2, $P1, 'box', 'ipll'
-store_global 'ncurses::box', $P2
+set_global 'ncurses::box', $P2
 dlfunc $P2, $P1, 'can_change_color', 'l'
-store_global 'ncurses::can_change_color', $P2
+set_global 'ncurses::can_change_color', $P2
 dlfunc $P2, $P1, 'cbreak', 'i'
-store_global 'ncurses::cbreak', $P2
+set_global 'ncurses::cbreak', $P2
 dlfunc $P2, $P1, 'chgat', 'iilsp'
-store_global 'ncurses::chgat', $P2
+set_global 'ncurses::chgat', $P2
 dlfunc $P2, $P1, 'clear', 'i'
-store_global 'ncurses::clear', $P2
+set_global 'ncurses::clear', $P2
 dlfunc $P2, $P1, 'clearok', 'ipl'
-store_global 'ncurses::clearok', $P2
+set_global 'ncurses::clearok', $P2
 dlfunc $P2, $P1, 'clrtobot', 'i'
-store_global 'ncurses::clrtobot', $P2
+set_global 'ncurses::clrtobot', $P2
 dlfunc $P2, $P1, 'clrtoeol', 'i'
-store_global 'ncurses::clrtoeol', $P2
+set_global 'ncurses::clrtoeol', $P2
 dlfunc $P2, $P1, 'color_content', 'is222'
-store_global 'ncurses::color_content', $P2
+set_global 'ncurses::color_content', $P2
 dlfunc $P2, $P1, 'color_set', 'isp'
-store_global 'ncurses::color_set', $P2
+set_global 'ncurses::color_set', $P2
 dlfunc $P2, $P1, 'COLOR_PAIR', 'ii'
-store_global 'ncurses::COLOR_PAIR', $P2
+set_global 'ncurses::COLOR_PAIR', $P2
 dlfunc $P2, $P1, 'copywin', 'ippiiiiiiii'
-store_global 'ncurses::copywin', $P2
+set_global 'ncurses::copywin', $P2
 dlfunc $P2, $P1, 'curs_set', 'ii'
-store_global 'ncurses::curs_set', $P2
+set_global 'ncurses::curs_set', $P2
 dlfunc $P2, $P1, 'def_prog_mode', 'i'
-store_global 'ncurses::def_prog_mode', $P2
+set_global 'ncurses::def_prog_mode', $P2
 dlfunc $P2, $P1, 'def_shell_mode', 'i'
-store_global 'ncurses::def_shell_mode', $P2
+set_global 'ncurses::def_shell_mode', $P2
 dlfunc $P2, $P1, 'delay_output', 'ii'
-store_global 'ncurses::delay_output', $P2
+set_global 'ncurses::delay_output', $P2
 dlfunc $P2, $P1, 'delch', 'i'
-store_global 'ncurses::delch', $P2
+set_global 'ncurses::delch', $P2
 dlfunc $P2, $P1, 'delscreen', 'vp'
-store_global 'ncurses::delscreen', $P2
+set_global 'ncurses::delscreen', $P2
 dlfunc $P2, $P1, 'delwin', 'ip'
-store_global 'ncurses::delwin', $P2
+set_global 'ncurses::delwin', $P2
 dlfunc $P2, $P1, 'deleteln', 'i'
-store_global 'ncurses::deleteln', $P2
+set_global 'ncurses::deleteln', $P2
 dlfunc $P2, $P1, 'derwin', 'ppiiii'
-store_global 'ncurses::derwin', $P2
+set_global 'ncurses::derwin', $P2
 dlfunc $P2, $P1, 'doupdate', 'i'
-store_global 'ncurses::doupdate', $P2
+set_global 'ncurses::doupdate', $P2
 dlfunc $P2, $P1, 'dupwin', 'pp'
-store_global 'ncurses::dupwin', $P2
+set_global 'ncurses::dupwin', $P2
 dlfunc $P2, $P1, 'echo', 'i'
-store_global 'ncurses::echo', $P2
+set_global 'ncurses::echo', $P2
 dlfunc $P2, $P1, 'echochar', 'il'
-store_global 'ncurses::echochar', $P2
+set_global 'ncurses::echochar', $P2
 dlfunc $P2, $P1, 'erase', 'i'
-store_global 'ncurses::erase', $P2
+set_global 'ncurses::erase', $P2
 dlfunc $P2, $P1, 'endwin', 'i'
-store_global 'ncurses::endwin', $P2
+set_global 'ncurses::endwin', $P2
 dlfunc $P2, $P1, 'erasechar', 'c'
-store_global 'ncurses::erasechar', $P2
+set_global 'ncurses::erasechar', $P2
 dlfunc $P2, $P1, 'filter', 'v'
-store_global 'ncurses::filter', $P2
+set_global 'ncurses::filter', $P2
 dlfunc $P2, $P1, 'flash', 'i'
-store_global 'ncurses::flash', $P2
+set_global 'ncurses::flash', $P2
 dlfunc $P2, $P1, 'flushinp', 'i'
-store_global 'ncurses::flushinp', $P2
+set_global 'ncurses::flushinp', $P2
 dlfunc $P2, $P1, 'getbkgd', 'lp'
-store_global 'ncurses::getbkgd', $P2
+set_global 'ncurses::getbkgd', $P2
 dlfunc $P2, $P1, 'getch', 'i'
-store_global 'ncurses::getch', $P2
+set_global 'ncurses::getch', $P2
 dlfunc $P2, $P1, 'getnstr', 'iti'
-store_global 'ncurses::getnstr', $P2
+set_global 'ncurses::getnstr', $P2
 dlfunc $P2, $P1, 'getstr', 'it'
-store_global 'ncurses::getstr', $P2
+set_global 'ncurses::getstr', $P2
 dlfunc $P2, $P1, 'getwin', 'pp'
-store_global 'ncurses::getwin', $P2
+set_global 'ncurses::getwin', $P2
 dlfunc $P2, $P1, 'halfdelay', 'ii'
-store_global 'ncurses::halfdelay', $P2
+set_global 'ncurses::halfdelay', $P2
 dlfunc $P2, $P1, 'has_colors', 'i'
-store_global 'ncurses::has_colors', $P2
+set_global 'ncurses::has_colors', $P2
 dlfunc $P2, $P1, 'has_ic', 'i'
-store_global 'ncurses::has_ic', $P2
+set_global 'ncurses::has_ic', $P2
 dlfunc $P2, $P1, 'has_il', 'i'
-store_global 'ncurses::has_il', $P2
+set_global 'ncurses::has_il', $P2
 dlfunc $P2, $P1, 'hline', 'ili'
-store_global 'ncurses::hline', $P2
+set_global 'ncurses::hline', $P2
 dlfunc $P2, $P1, 'idcok', 'vpl'
-store_global 'ncurses::idcok', $P2
+set_global 'ncurses::idcok', $P2
 dlfunc $P2, $P1, 'idlok', 'ipl'
-store_global 'ncurses::idlok', $P2
+set_global 'ncurses::idlok', $P2
 dlfunc $P2, $P1, 'immedok', 'vpl'
-store_global 'ncurses::immedok', $P2
+set_global 'ncurses::immedok', $P2
 dlfunc $P2, $P1, 'inch', 'l'
-store_global 'ncurses::inch', $P2
+set_global 'ncurses::inch', $P2
 dlfunc $P2, $P1, 'inchnstr', 'i4i'
-store_global 'ncurses::inchnstr', $P2
+set_global 'ncurses::inchnstr', $P2
 dlfunc $P2, $P1, 'inchstr', 'i4'
-store_global 'ncurses::inchstr', $P2
+set_global 'ncurses::inchstr', $P2
 dlfunc $P2, $P1, 'initscr', 'p'
-store_global 'ncurses::initscr', $P2
+set_global 'ncurses::initscr', $P2
 dlfunc $P2, $P1, 'init_color', 'issss'
-store_global 'ncurses::init_color', $P2
+set_global 'ncurses::init_color', $P2
 dlfunc $P2, $P1, 'init_pair', 'isss'
-store_global 'ncurses::init_pair', $P2
+set_global 'ncurses::init_pair', $P2
 dlfunc $P2, $P1, 'innstr', 'iti'
-store_global 'ncurses::innstr', $P2
+set_global 'ncurses::innstr', $P2
 dlfunc $P2, $P1, 'insstr', 'it'
-store_global 'ncurses::insstr', $P2
+set_global 'ncurses::insstr', $P2
 dlfunc $P2, $P1, 'instr', 'it'
-store_global 'ncurses::instr', $P2
+set_global 'ncurses::instr', $P2
 dlfunc $P2, $P1, 'intrflush', 'ipl'
-store_global 'ncurses::intrflush', $P2
+set_global 'ncurses::intrflush', $P2
 dlfunc $P2, $P1, 'isendwin', 'l'
-store_global 'ncurses::isendwin', $P2
+set_global 'ncurses::isendwin', $P2
 dlfunc $P2, $P1, 'is_linetouched', 'lpi'
-store_global 'ncurses::is_linetouched', $P2
+set_global 'ncurses::is_linetouched', $P2
 dlfunc $P2, $P1, 'is_wintouched', 'lp'
-store_global 'ncurses::is_wintouched', $P2
+set_global 'ncurses::is_wintouched', $P2
 dlfunc $P2, $P1, 'keyname', 'ti'
-store_global 'ncurses::keyname', $P2
+set_global 'ncurses::keyname', $P2
 dlfunc $P2, $P1, 'keypad', 'ipl'
-store_global 'ncurses::keypad', $P2
+set_global 'ncurses::keypad', $P2
 dlfunc $P2, $P1, 'killchar', 'c'
-store_global 'ncurses::killchar', $P2
+set_global 'ncurses::killchar', $P2
 dlfunc $P2, $P1, 'leaveok', 'ipl'
-store_global 'ncurses::leaveok', $P2
+set_global 'ncurses::leaveok', $P2
 dlfunc $P2, $P1, 'longname', 't'
-store_global 'ncurses::longname', $P2
+set_global 'ncurses::longname', $P2
 dlfunc $P2, $P1, 'meta', 'ipl'
-store_global 'ncurses::meta', $P2
+set_global 'ncurses::meta', $P2
 dlfunc $P2, $P1, 'move', 'iii'
-store_global 'ncurses::move', $P2
+set_global 'ncurses::move', $P2
 dlfunc $P2, $P1, 'mvaddch', 'iiil'
-store_global 'ncurses::mvaddch', $P2
+set_global 'ncurses::mvaddch', $P2
 dlfunc $P2, $P1, 'mvaddchnstr', 'iii4i'
-store_global 'ncurses::mvaddchnstr', $P2
+set_global 'ncurses::mvaddchnstr', $P2
 dlfunc $P2, $P1, 'mvaddchstr', 'iii4'
-store_global 'ncurses::mvaddchstr', $P2
+set_global 'ncurses::mvaddchstr', $P2
 dlfunc $P2, $P1, 'mvaddnstr', 'iiiti'
-store_global 'ncurses::mvaddnstr', $P2
+set_global 'ncurses::mvaddnstr', $P2
 dlfunc $P2, $P1, 'mvaddstr', 'iiit'
-store_global 'ncurses::mvaddstr', $P2
+set_global 'ncurses::mvaddstr', $P2
 dlfunc $P2, $P1, 'mvchgat', 'iiiilsp'
-store_global 'ncurses::mvchgat', $P2
+set_global 'ncurses::mvchgat', $P2
 #dlfunc $P2, $P1, 'mvcur', 'iiiii'
-#store_global 'ncurses::mvcur', $P2
+#set_global 'ncurses::mvcur', $P2
 dlfunc $P2, $P1, 'mvdelch', 'iii'
-store_global 'ncurses::mvdelch', $P2
+set_global 'ncurses::mvdelch', $P2
 dlfunc $P2, $P1, 'mvderwin', 'ipii'
-store_global 'ncurses::mvderwin', $P2
+set_global 'ncurses::mvderwin', $P2
 dlfunc $P2, $P1, 'mvgetch', 'iii'
-store_global 'ncurses::mvgetch', $P2
+set_global 'ncurses::mvgetch', $P2
 dlfunc $P2, $P1, 'mvgetnstr', 'iiiti'
-store_global 'ncurses::mvgetnstr', $P2
+set_global 'ncurses::mvgetnstr', $P2
 dlfunc $P2, $P1, 'mvgetstr', 'iiit'
-store_global 'ncurses::mvgetstr', $P2
+set_global 'ncurses::mvgetstr', $P2
 dlfunc $P2, $P1, 'mvhline', 'iiili'
-store_global 'ncurses::mvhline', $P2
+set_global 'ncurses::mvhline', $P2
 dlfunc $P2, $P1, 'mvinch', 'lii'
-store_global 'ncurses::mvinch', $P2
+set_global 'ncurses::mvinch', $P2
 dlfunc $P2, $P1, 'mvinchnstr', 'iiiti'
-store_global 'ncurses::mvinchnstr', $P2
+set_global 'ncurses::mvinchnstr', $P2
 dlfunc $P2, $P1, 'mvinchstr', 'iii4'
-store_global 'ncurses::mvinchstr', $P2
+set_global 'ncurses::mvinchstr', $P2
 dlfunc $P2, $P1, 'mvinnstr', 'iiiti'
-store_global 'ncurses::mvinnstr', $P2
+set_global 'ncurses::mvinnstr', $P2
 dlfunc $P2, $P1, 'mvinsch', 'iiil'
-store_global 'ncurses::mvinsch', $P2
+set_global 'ncurses::mvinsch', $P2
 dlfunc $P2, $P1, 'mvinsnstr', 'iiiti'
-store_global 'ncurses::mvinsnstr', $P2
+set_global 'ncurses::mvinsnstr', $P2
 dlfunc $P2, $P1, 'mvinsstr', 'iiit'
-store_global 'ncurses::mvinsstr', $P2
+set_global 'ncurses::mvinsstr', $P2
 dlfunc $P2, $P1, 'mvvline', 'iiili'
-store_global 'ncurses::mvvline', $P2
+set_global 'ncurses::mvvline', $P2
 dlfunc $P2, $P1, 'mvwaddch', 'ipiil'
-store_global 'ncurses::mvwaddch', $P2
+set_global 'ncurses::mvwaddch', $P2
 dlfunc $P2, $P1, 'mvwaddchnstr', 'ipii4i'
-store_global 'ncurses::mvwaddchnstr', $P2
+set_global 'ncurses::mvwaddchnstr', $P2
 dlfunc $P2, $P1, 'mvwaddchstr', 'ipii4'
-store_global 'ncurses::mvwaddchstr', $P2
+set_global 'ncurses::mvwaddchstr', $P2
 dlfunc $P2, $P1, 'mvwaddnstr', 'ipiiti'
-store_global 'ncurses::mvwaddnstr', $P2
+set_global 'ncurses::mvwaddnstr', $P2
 dlfunc $P2, $P1, 'mvwaddstr', 'ipiit'
-store_global 'ncurses::mvwaddstr', $P2
+set_global 'ncurses::mvwaddstr', $P2
 dlfunc $P2, $P1, 'mvwchgat', 'ipiiilsp'
-store_global 'ncurses::mvwchgat', $P2
+set_global 'ncurses::mvwchgat', $P2
 dlfunc $P2, $P1, 'mvwdelch', 'ipii'
-store_global 'ncurses::mvwdelch', $P2
+set_global 'ncurses::mvwdelch', $P2
 dlfunc $P2, $P1, 'mvwgetch', 'ipii'
-store_global 'ncurses::mvwgetch', $P2
+set_global 'ncurses::mvwgetch', $P2
 dlfunc $P2, $P1, 'mvwgetnstr', 'ipiiti'
-store_global 'ncurses::mvwgetnstr', $P2
+set_global 'ncurses::mvwgetnstr', $P2
 dlfunc $P2, $P1, 'mvwgetstr', 'ipiit'
-store_global 'ncurses::mvwgetstr', $P2
+set_global 'ncurses::mvwgetstr', $P2
 dlfunc $P2, $P1, 'mvwhline', 'ipiili'
-store_global 'ncurses::mvwhline', $P2
+set_global 'ncurses::mvwhline', $P2
 dlfunc $P2, $P1, 'mvwin', 'ipii'
-store_global 'ncurses::mvwin', $P2
+set_global 'ncurses::mvwin', $P2
 dlfunc $P2, $P1, 'mvwinch', 'lpii'
-store_global 'ncurses::mvwinch', $P2
+set_global 'ncurses::mvwinch', $P2
 dlfunc $P2, $P1, 'mvwinchnstr', 'ipii4i'
-store_global 'ncurses::mvwinchnstr', $P2
+set_global 'ncurses::mvwinchnstr', $P2
 dlfunc $P2, $P1, 'mvwinchstr', 'ipii4'
-store_global 'ncurses::mvwinchstr', $P2
+set_global 'ncurses::mvwinchstr', $P2
 dlfunc $P2, $P1, 'mvwinnstr', 'ipiiti'
-store_global 'ncurses::mvwinnstr', $P2
+set_global 'ncurses::mvwinnstr', $P2
 dlfunc $P2, $P1, 'mvwinsch', 'ipiil'
-store_global 'ncurses::mvwinsch', $P2
+set_global 'ncurses::mvwinsch', $P2
 dlfunc $P2, $P1, 'mvwinsnstr', 'ipiiti'
-store_global 'ncurses::mvwinsnstr', $P2
+set_global 'ncurses::mvwinsnstr', $P2
 dlfunc $P2, $P1, 'mvwinsstr', 'ipiit'
-store_global 'ncurses::mvwinsstr', $P2
+set_global 'ncurses::mvwinsstr', $P2
 dlfunc $P2, $P1, 'mvwinstr', 'ipiit'
-store_global 'ncurses::mvwinstr', $P2
+set_global 'ncurses::mvwinstr', $P2
 dlfunc $P2, $P1, 'mvwvline', 'ipiili'
-store_global 'ncurses::mvwvline', $P2
+set_global 'ncurses::mvwvline', $P2
 dlfunc $P2, $P1, 'napms', 'ii'
-store_global 'ncurses::napms', $P2
+set_global 'ncurses::napms', $P2
 dlfunc $P2, $P1, 'newpad', 'pii'
-store_global 'ncurses::newpad', $P2
+set_global 'ncurses::newpad', $P2
 dlfunc $P2, $P1, 'newterm', 'ptpp'
-store_global 'ncurses::newterm', $P2
+set_global 'ncurses::newterm', $P2
 dlfunc $P2, $P1, 'newwin', 'piiii'
-store_global 'ncurses::newwin', $P2
+set_global 'ncurses::newwin', $P2
 dlfunc $P2, $P1, 'nl', 'i'
-store_global 'ncurses::nl', $P2
+set_global 'ncurses::nl', $P2
 dlfunc $P2, $P1, 'nocbreak', 'i'
-store_global 'ncurses::nocbreak', $P2
+set_global 'ncurses::nocbreak', $P2
 dlfunc $P2, $P1, 'nodelay', 'ipl'
-store_global 'ncurses::nodelay', $P2
+set_global 'ncurses::nodelay', $P2
 dlfunc $P2, $P1, 'noecho', 'i'
-store_global 'ncurses::noecho', $P2
+set_global 'ncurses::noecho', $P2
 dlfunc $P2, $P1, 'nonl', 'i'
-store_global 'ncurses::nonl', $P2
+set_global 'ncurses::nonl', $P2
 dlfunc $P2, $P1, 'noqiflush', 'v'
-store_global 'ncurses::noqiflush', $P2
+set_global 'ncurses::noqiflush', $P2
 dlfunc $P2, $P1, 'noraw', 'i'
-store_global 'ncurses::noraw', $P2
+set_global 'ncurses::noraw', $P2
 dlfunc $P2, $P1, 'notimeout', 'ipl'
-store_global 'ncurses::notimeout', $P2
+set_global 'ncurses::notimeout', $P2
 dlfunc $P2, $P1, 'overlay', 'ipp'
-store_global 'ncurses::overlay', $P2
+set_global 'ncurses::overlay', $P2
 dlfunc $P2, $P1, 'overwrite', 'ipp'
-store_global 'ncurses::overwrite', $P2
+set_global 'ncurses::overwrite', $P2
 dlfunc $P2, $P1, 'pair_content', 'is22'
-store_global 'ncurses::pair_content', $P2
+set_global 'ncurses::pair_content', $P2
 dlfunc $P2, $P1, 'PAIR_NUMBER', 'ii'
-store_global 'ncurses::PAIR_NUMBER', $P2
+set_global 'ncurses::PAIR_NUMBER', $P2
 dlfunc $P2, $P1, 'pechochar', 'ipl'
-store_global 'ncurses::pechochar', $P2
+set_global 'ncurses::pechochar', $P2
 dlfunc $P2, $P1, 'pnoutrefresh', 'ipiiiiii'
-store_global 'ncurses::pnoutrefresh', $P2
+set_global 'ncurses::pnoutrefresh', $P2
 dlfunc $P2, $P1, 'prefresh', 'ipiiiiii'
-store_global 'ncurses::prefresh', $P2
+set_global 'ncurses::prefresh', $P2
 dlfunc $P2, $P1, 'putp', 'it'
-store_global 'ncurses::putp', $P2
+set_global 'ncurses::putp', $P2
 dlfunc $P2, $P1, 'putwin', 'ipp'
-store_global 'ncurses::putwin', $P2
+set_global 'ncurses::putwin', $P2
 dlfunc $P2, $P1, 'qiflush', 'v'
-store_global 'ncurses::qiflush', $P2
+set_global 'ncurses::qiflush', $P2
 dlfunc $P2, $P1, 'raw', 'i'
-store_global 'ncurses::raw', $P2
+set_global 'ncurses::raw', $P2
 dlfunc $P2, $P1, 'redrawwin', 'ip'
-store_global 'ncurses::redrawwin', $P2
+set_global 'ncurses::redrawwin', $P2
 dlfunc $P2, $P1, 'refresh', 'i'
-store_global 'ncurses::refresh', $P2
+set_global 'ncurses::refresh', $P2
 dlfunc $P2, $P1, 'resetty', 'i'
-store_global 'ncurses::resetty', $P2
+set_global 'ncurses::resetty', $P2
 dlfunc $P2, $P1, 'reset_prog_mode', 'i'
-store_global 'ncurses::reset_prog_mode', $P2
+set_global 'ncurses::reset_prog_mode', $P2
 dlfunc $P2, $P1, 'reset_shell_mode', 'i'
-store_global 'ncurses::reset_shell_mode', $P2
+set_global 'ncurses::reset_shell_mode', $P2
 dlfunc $P2, $P1, 'ripoffline', 'iiip'
-store_global 'ncurses::ripoffline', $P2
+set_global 'ncurses::ripoffline', $P2
 dlfunc $P2, $P1, 'savetty', 'i'
-store_global 'ncurses::savetty', $P2
+set_global 'ncurses::savetty', $P2
 dlfunc $P2, $P1, 'scr_dump', 'it'
-store_global 'ncurses::scr_dump', $P2
+set_global 'ncurses::scr_dump', $P2
 dlfunc $P2, $P1, 'scr_init', 'it'
-store_global 'ncurses::scr_init', $P2
+set_global 'ncurses::scr_init', $P2
 dlfunc $P2, $P1, 'scrl', 'ii'
-store_global 'ncurses::scrl', $P2
+set_global 'ncurses::scrl', $P2
 dlfunc $P2, $P1, 'scroll', 'ip'
-store_global 'ncurses::scroll', $P2
+set_global 'ncurses::scroll', $P2
 dlfunc $P2, $P1, 'scrollok', 'ipl'
-store_global 'ncurses::scrollok', $P2
+set_global 'ncurses::scrollok', $P2
 dlfunc $P2, $P1, 'scr_restore', 'it'
-store_global 'ncurses::scr_restore', $P2
+set_global 'ncurses::scr_restore', $P2
 dlfunc $P2, $P1, 'scr_set', 'it'
-store_global 'ncurses::scr_set', $P2
+set_global 'ncurses::scr_set', $P2
 dlfunc $P2, $P1, 'setscrreg', 'iii'
-store_global 'ncurses::setscrreg', $P2
+set_global 'ncurses::setscrreg', $P2
 dlfunc $P2, $P1, 'set_term', 'pp'
-store_global 'ncurses::set_term', $P2
+set_global 'ncurses::set_term', $P2
 dlfunc $P2, $P1, 'slk_attroff', 'il'
-store_global 'ncurses::slk_attroff', $P2
+set_global 'ncurses::slk_attroff', $P2
 dlfunc $P2, $P1, 'slk_attron', 'il'
-store_global 'ncurses::slk_attron', $P2
+set_global 'ncurses::slk_attron', $P2
 dlfunc $P2, $P1, 'slk_attrset', 'il'
-store_global 'ncurses::slk_attrset', $P2
+set_global 'ncurses::slk_attrset', $P2
 dlfunc $P2, $P1, 'slk_attr', 'l'
-store_global 'ncurses::slk_attr', $P2
+set_global 'ncurses::slk_attr', $P2
 dlfunc $P2, $P1, 'slk_attr_set', 'ilsp'
-store_global 'ncurses::slk_attr_set', $P2
+set_global 'ncurses::slk_attr_set', $P2
 dlfunc $P2, $P1, 'slk_clear', 'i'
-store_global 'ncurses::slk_clear', $P2
+set_global 'ncurses::slk_clear', $P2
 dlfunc $P2, $P1, 'slk_color', 'is'
-store_global 'ncurses::slk_color', $P2
+set_global 'ncurses::slk_color', $P2
 dlfunc $P2, $P1, 'slk_init', 'ii'
-store_global 'ncurses::slk_init', $P2
+set_global 'ncurses::slk_init', $P2
 dlfunc $P2, $P1, 'slk_label', 'ti'
-store_global 'ncurses::slk_label', $P2
+set_global 'ncurses::slk_label', $P2
 dlfunc $P2, $P1, 'slk_noutrefresh', 'i'
-store_global 'ncurses::slk_noutrefresh', $P2
+set_global 'ncurses::slk_noutrefresh', $P2
 dlfunc $P2, $P1, 'slk_refresh', 'i'
-store_global 'ncurses::slk_refresh', $P2
+set_global 'ncurses::slk_refresh', $P2
 dlfunc $P2, $P1, 'slk_restore', 'i'
-store_global 'ncurses::slk_restore', $P2
+set_global 'ncurses::slk_restore', $P2
 dlfunc $P2, $P1, 'slk_set', 'iiti'
-store_global 'ncurses::slk_set', $P2
+set_global 'ncurses::slk_set', $P2
 dlfunc $P2, $P1, 'slk_touch', 'i'
-store_global 'ncurses::slk_touch', $P2
+set_global 'ncurses::slk_touch', $P2
 dlfunc $P2, $P1, 'standout', 'i'
-store_global 'ncurses::standout', $P2
+set_global 'ncurses::standout', $P2
 dlfunc $P2, $P1, 'standend', 'i'
-store_global 'ncurses::standend', $P2
+set_global 'ncurses::standend', $P2
 dlfunc $P2, $P1, 'start_color', 'i'
-store_global 'ncurses::start_color', $P2
+set_global 'ncurses::start_color', $P2
 dlfunc $P2, $P1, 'subpad', 'ppiiii'
-store_global 'ncurses::subpad', $P2
+set_global 'ncurses::subpad', $P2
 dlfunc $P2, $P1, 'subwin', 'ppiiii'
-store_global 'ncurses::subwin', $P2
+set_global 'ncurses::subwin', $P2
 dlfunc $P2, $P1, 'syncok', 'ipl'
-store_global 'ncurses::syncok', $P2
+set_global 'ncurses::syncok', $P2
 dlfunc $P2, $P1, 'termattrs', 'l'
-store_global 'ncurses::termattrs', $P2
+set_global 'ncurses::termattrs', $P2
 dlfunc $P2, $P1, 'termname', 't'
-store_global 'ncurses::termname', $P2
+set_global 'ncurses::termname', $P2
 dlfunc $P2, $P1, 'tigetflag', 'it'
-store_global 'ncurses::tigetflag', $P2
+set_global 'ncurses::tigetflag', $P2
 dlfunc $P2, $P1, 'tigetnum', 'it'
-store_global 'ncurses::tigetnum', $P2
+set_global 'ncurses::tigetnum', $P2
 dlfunc $P2, $P1, 'tigetstr', 'tt'
-store_global 'ncurses::tigetstr', $P2
+set_global 'ncurses::tigetstr', $P2
 dlfunc $P2, $P1, 'timeout', 'vi'
-store_global 'ncurses::timeout', $P2
+set_global 'ncurses::timeout', $P2
 dlfunc $P2, $P1, 'typeahead', 'ii'
-store_global 'ncurses::typeahead', $P2
+set_global 'ncurses::typeahead', $P2
 dlfunc $P2, $P1, 'ungetch', 'ii'
-store_global 'ncurses::ungetch', $P2
+set_global 'ncurses::ungetch', $P2
 dlfunc $P2, $P1, 'untouchwin', 'ip'
-store_global 'ncurses::untouchwin', $P2
+set_global 'ncurses::untouchwin', $P2
 dlfunc $P2, $P1, 'use_env', 'vl'
-store_global 'ncurses::use_env', $P2
+set_global 'ncurses::use_env', $P2
 dlfunc $P2, $P1, 'vidattr', 'il'
-store_global 'ncurses::vidattr', $P2
+set_global 'ncurses::vidattr', $P2
 dlfunc $P2, $P1, 'vidputs', 'ilp'
-store_global 'ncurses::vidputs', $P2
+set_global 'ncurses::vidputs', $P2
 dlfunc $P2, $P1, 'vline', 'ili'
-store_global 'ncurses::vline', $P2
+set_global 'ncurses::vline', $P2
 dlfunc $P2, $P1, 'waddch', 'ipl'
-store_global 'ncurses::waddch', $P2
+set_global 'ncurses::waddch', $P2
 dlfunc $P2, $P1, 'waddchnstr', 'ip4i'
-store_global 'ncurses::waddchnstr', $P2
+set_global 'ncurses::waddchnstr', $P2
 dlfunc $P2, $P1, 'waddchstr', 'ip4'
-store_global 'ncurses::waddchstr', $P2
+set_global 'ncurses::waddchstr', $P2
 dlfunc $P2, $P1, 'waddnstr', 'ipti'
-store_global 'ncurses::waddnstr', $P2
+set_global 'ncurses::waddnstr', $P2
 dlfunc $P2, $P1, 'waddstr', 'ipt'
-store_global 'ncurses::waddstr', $P2
+set_global 'ncurses::waddstr', $P2
 dlfunc $P2, $P1, 'wattron', 'ipi'
-store_global 'ncurses::wattron', $P2
+set_global 'ncurses::wattron', $P2
 dlfunc $P2, $P1, 'wattroff', 'ipi'
-store_global 'ncurses::wattroff', $P2
+set_global 'ncurses::wattroff', $P2
 dlfunc $P2, $P1, 'wattrset', 'ipi'
-store_global 'ncurses::wattrset', $P2
+set_global 'ncurses::wattrset', $P2
 dlfunc $P2, $P1, 'wattr_get', 'ip42p'
-store_global 'ncurses::wattr_get', $P2
+set_global 'ncurses::wattr_get', $P2
 dlfunc $P2, $P1, 'wattr_on', 'iplp'
-store_global 'ncurses::wattr_on', $P2
+set_global 'ncurses::wattr_on', $P2
 dlfunc $P2, $P1, 'wattr_off', 'iplp'
-store_global 'ncurses::wattr_off', $P2
+set_global 'ncurses::wattr_off', $P2
 dlfunc $P2, $P1, 'wattr_set', 'iplsp'
-store_global 'ncurses::wattr_set', $P2
+set_global 'ncurses::wattr_set', $P2
 dlfunc $P2, $P1, 'wbkgd', 'ipl'
-store_global 'ncurses::wbkgd', $P2
+set_global 'ncurses::wbkgd', $P2
 dlfunc $P2, $P1, 'wbkgdset', 'vpl'
-store_global 'ncurses::wbkgdset', $P2
+set_global 'ncurses::wbkgdset', $P2
 dlfunc $P2, $P1, 'wborder', 'ipllllllll'
-store_global 'ncurses::wborder', $P2
+set_global 'ncurses::wborder', $P2
 dlfunc $P2, $P1, 'wchgat', 'ipilsp'
-store_global 'ncurses::wchgat', $P2
+set_global 'ncurses::wchgat', $P2
 dlfunc $P2, $P1, 'wclear', 'ip'
-store_global 'ncurses::wclear', $P2
+set_global 'ncurses::wclear', $P2
 dlfunc $P2, $P1, 'wclrtobot', 'ip'
-store_global 'ncurses::wclrtobot', $P2
+set_global 'ncurses::wclrtobot', $P2
 dlfunc $P2, $P1, 'wclrtoeol', 'ip'
-store_global 'ncurses::wclrtoeol', $P2
+set_global 'ncurses::wclrtoeol', $P2
 dlfunc $P2, $P1, 'wcolor_set', 'ipsp'
-store_global 'ncurses::wcolor_set', $P2
+set_global 'ncurses::wcolor_set', $P2
 dlfunc $P2, $P1, 'wcursyncup', 'vp'
-store_global 'ncurses::wcursyncup', $P2
+set_global 'ncurses::wcursyncup', $P2
 dlfunc $P2, $P1, 'wdelch', 'ip'
-store_global 'ncurses::wdelch', $P2
+set_global 'ncurses::wdelch', $P2
 dlfunc $P2, $P1, 'wdeleteln', 'ip'
-store_global 'ncurses::wdeleteln', $P2
+set_global 'ncurses::wdeleteln', $P2
 dlfunc $P2, $P1, 'wechochar', 'ipl'
-store_global 'ncurses::wechochar', $P2
+set_global 'ncurses::wechochar', $P2
 dlfunc $P2, $P1, 'werase', 'ip'
-store_global 'ncurses::werase', $P2
+set_global 'ncurses::werase', $P2
 dlfunc $P2, $P1, 'wgetch', 'ip'
-store_global 'ncurses::wgetch', $P2
+set_global 'ncurses::wgetch', $P2
 dlfunc $P2, $P1, 'wgetnstr', 'ipti'
-store_global 'ncurses::wgetnstr', $P2
+set_global 'ncurses::wgetnstr', $P2
 dlfunc $P2, $P1, 'wgetstr', 'ipt'
-store_global 'ncurses::wgetstr', $P2
+set_global 'ncurses::wgetstr', $P2
 dlfunc $P2, $P1, 'whline', 'ipli'
-store_global 'ncurses::whline', $P2
+set_global 'ncurses::whline', $P2
 dlfunc $P2, $P1, 'winch', 'lp'
-store_global 'ncurses::winch', $P2
+set_global 'ncurses::winch', $P2
 dlfunc $P2, $P1, 'winchnstr', 'ip4i'
-store_global 'ncurses::winchnstr', $P2
+set_global 'ncurses::winchnstr', $P2
 dlfunc $P2, $P1, 'winnstr', 'ipti'
-store_global 'ncurses::winnstr', $P2
+set_global 'ncurses::winnstr', $P2
 dlfunc $P2, $P1, 'winsch', 'ipl'
-store_global 'ncurses::winsch', $P2
+set_global 'ncurses::winsch', $P2
 dlfunc $P2, $P1, 'winsdelln', 'ipi'
-store_global 'ncurses::winsdelln', $P2
+set_global 'ncurses::winsdelln', $P2
 dlfunc $P2, $P1, 'winsertln', 'ip'
-store_global 'ncurses::winsertln', $P2
+set_global 'ncurses::winsertln', $P2
 dlfunc $P2, $P1, 'winsnstr', 'ipti'
-store_global 'ncurses::winsnstr', $P2
+set_global 'ncurses::winsnstr', $P2
 dlfunc $P2, $P1, 'winsstr', 'ipt'
-store_global 'ncurses::winsstr', $P2
+set_global 'ncurses::winsstr', $P2
 dlfunc $P2, $P1, 'winstr', 'ipt'
-store_global 'ncurses::winstr', $P2
+set_global 'ncurses::winstr', $P2
 dlfunc $P2, $P1, 'wmove', 'ipii'
-store_global 'ncurses::wmove', $P2
+set_global 'ncurses::wmove', $P2
 dlfunc $P2, $P1, 'wnoutrefresh', 'ip'
-store_global 'ncurses::wnoutrefresh', $P2
+set_global 'ncurses::wnoutrefresh', $P2
 dlfunc $P2, $P1, 'wredrawln', 'ipii'
-store_global 'ncurses::wredrawln', $P2
+set_global 'ncurses::wredrawln', $P2
 dlfunc $P2, $P1, 'wrefresh', 'ip'
-store_global 'ncurses::wrefresh', $P2
+set_global 'ncurses::wrefresh', $P2
 dlfunc $P2, $P1, 'wscrl', 'ipi'
-store_global 'ncurses::wscrl', $P2
+set_global 'ncurses::wscrl', $P2
 dlfunc $P2, $P1, 'wsetscrreg', 'ipii'
-store_global 'ncurses::wsetscrreg', $P2
+set_global 'ncurses::wsetscrreg', $P2
 dlfunc $P2, $P1, 'wstandout', 'ip'
-store_global 'ncurses::wstandout', $P2
+set_global 'ncurses::wstandout', $P2
 dlfunc $P2, $P1, 'wstandend', 'ip'
-store_global 'ncurses::wstandend', $P2
+set_global 'ncurses::wstandend', $P2
 dlfunc $P2, $P1, 'wsyncdown', 'vp'
-store_global 'ncurses::wsyncdown', $P2
+set_global 'ncurses::wsyncdown', $P2
 dlfunc $P2, $P1, 'wsyncup', 'vp'
-store_global 'ncurses::wsyncup', $P2
+set_global 'ncurses::wsyncup', $P2
 dlfunc $P2, $P1, 'wtimeout', 'vpi'
-store_global 'ncurses::wtimeout', $P2
+set_global 'ncurses::wtimeout', $P2
 dlfunc $P2, $P1, 'wtouchln', 'ipiii'
-store_global 'ncurses::wtouchln', $P2
+set_global 'ncurses::wtouchln', $P2
 dlfunc $P2, $P1, 'wvline', 'ipli'
-store_global 'ncurses::wvline', $P2
+set_global 'ncurses::wvline', $P2
 dlfunc $P2, $P1, 'getmouse', 'ip'
-store_global 'ncurses::getmouse', $P2
+set_global 'ncurses::getmouse', $P2
 dlfunc $P2, $P1, 'ungetmouse', 'ip'
-store_global 'ncurses::ungetmouse', $P2
+set_global 'ncurses::ungetmouse', $P2
 dlfunc $P2, $P1, 'mousemask', 'll4'
-store_global 'ncurses::mousemask', $P2
+set_global 'ncurses::mousemask', $P2
 dlfunc $P2, $P1, 'wenclose', 'lpii'
-store_global 'ncurses::wenclose', $P2
+set_global 'ncurses::wenclose', $P2
 dlfunc $P2, $P1, 'mouseinterval', 'ii'
-store_global 'ncurses::mouseinterval', $P2
+set_global 'ncurses::mouseinterval', $P2
 dlfunc $P2, $P1, 'wmouse_trafo', 'lp33l'
-store_global 'ncurses::wmouse_trafo', $P2
+set_global 'ncurses::wmouse_trafo', $P2
 dlfunc $P2, $P1, 'mouse_trafo', 'l33l'
-store_global 'ncurses::mouse_trafo', $P2
+set_global 'ncurses::mouse_trafo', $P2
 dlfunc $P2, $P1, 'mcprint', 'iti'
-store_global 'ncurses::mcprint', $P2
+set_global 'ncurses::mcprint', $P2
 dlfunc $P2, $P1, 'has_key', 'ii'
-store_global 'ncurses::has_key', $P2
+set_global 'ncurses::has_key', $P2
 
 .begin_return
 .end_return

Modified: branches/global_cleanup/runtime/parrot/library/parrotlib.pir
==============================================================================
--- branches/global_cleanup/runtime/parrot/library/parrotlib.pir	(original)
+++ branches/global_cleanup/runtime/parrot/library/parrotlib.pir	Sun Dec 28 20:56:30 2008
@@ -45,10 +45,10 @@
 
     # create includes array
     includes = new 'ResizablePMCArray'
-    store_global "_parrotlib", "include_paths", includes
+    set_root_global ['_parrotlib'], 'include_paths', includes
 
     # get the directory handler
-    $P0 = find_global "_parrotlib", "handle_directory"
+    $P0 = get_root_global ['_parrotlib'], 'handle_directory'
 
     # fill the includes array
 LOOP:
@@ -73,9 +73,9 @@
 
     $P1 = new 'String'
     $P1 = sig
-    find_global $P0, "_parrotlib", name
+    get_root_global $P0, ['_parrotlib'], name
     setprop $P0, "signature", $P1
-    store_global "_parrotlib", name, $P0
+    set_root_global ['_parrotlib'], name, $P0
 .end
 
 =item STRING = include_file_location( STRING )
@@ -90,7 +90,7 @@
 .sub include_file_location
     .param string name
 
-    find_global $P0, "_parrotlib", "include_paths"
+    get_root_global $P0, ['_parrotlib'], 'include_paths'
     $S0 = find_file_path( name, $P0 )
 
     .begin_return
@@ -110,7 +110,7 @@
 .sub imcc_compile_file_location
     .param string name
 
-    find_global $P0, "_parrotlib", "include_paths"
+    get_root_global $P1, ['_parrotlib'], 'include_paths'
     $S0 = find_file_path( name, $P0 )
 
     .begin_return

Modified: branches/global_cleanup/runtime/parrot/library/pcre.pir
==============================================================================
--- branches/global_cleanup/runtime/parrot/library/pcre.pir	(original)
+++ branches/global_cleanup/runtime/parrot/library/pcre.pir	Sun Dec 28 20:56:30 2008
@@ -79,7 +79,7 @@
     branch LIB_FAILED
 
 LIB_LOADED:
-    store_global 'PCRE', 'lib', libpcre
+    set_root_global ['PCRE'], 'lib', libpcre
 
     load_bytecode 'library/libpcre.pir'
 
@@ -87,23 +87,23 @@
     #            const char **errptr, int *erroffset,
     #            const unsigned char *tableptr
     dlfunc pcre_function, libpcre, 'pcre_compile', 'ptiB3P'
-    store_global 'PCRE::NCI', 'PCRE_compile', pcre_function
+    set_root_global ['PCRE::NCI'], 'PCRE_compile', pcre_function
 
     #int pcre_exec(const pcre *code, const pcre_extra *extra,
     #        const char *subject, int length, int startoffset,
     #        int options, int *ovector, int ovecsize);
     dlfunc pcre_function, libpcre, 'pcre_exec', 'ipPtiiipi'
-    store_global 'PCRE::NCI', 'PCRE_exec', pcre_function
+    set_root_global ['PCRE::NCI'], 'PCRE_exec', pcre_function
 
     #int pcre_copy_substring(const char *subject, int *ovector,
     #        int stringcount, int stringnumber, char *buffer,
     #        int buffersize);
     dlfunc pcre_function, libpcre, 'pcre_copy_substring', 'itpiibi'
-    store_global 'PCRE::NCI', 'PCRE_copy_substring', pcre_function
+    set_root_global ['PCRE::NCI'], 'PCRE_copy_substring', pcre_function
 
     # const char *pcre_version(void);
     dlfunc pcre_function, libpcre, 'pcre_version', 't'
-    store_global 'PCRE::NCI', 'PCRE_version', pcre_function
+    set_root_global ['PCRE::NCI'], 'PCRE_version', pcre_function
 
     .return( libpcre )
 
@@ -124,7 +124,7 @@
     .param int options
     .local pmc pcre_function
 
-    pcre_function= find_global 'PCRE::NCI', 'compile'
+    pcre_function = get_root_global ['PCRE::NCI'], 'compile'
 
     .local pmc regex
     .local string error
@@ -152,7 +152,7 @@
     .param int options
     .local pmc pcre_function
 
-    pcre_function= find_global 'PCRE::NCI', 'exec'
+    pcre_function = get_root_global ['PCRE::NCI'], 'exec'
 
     .local int ok
     .local pmc res
@@ -177,7 +177,7 @@
     .param int n
     .local pmc pcre_function
 
-    pcre_function= find_global 'PCRE::NCI', 'result'
+    pcre_function = get_root_global ['PCRE::NCI'], 'result'
 
     .local string matched
 
@@ -194,7 +194,7 @@
 .sub version
     .local pmc pcre_function
 
-    pcre_function= find_global 'PCRE::NCI', 'PCRE_version'
+    pcre_function = get_root_global ['PCRE::NCI'], 'PCRE_version'
 
     .local string ver
 

Modified: branches/global_cleanup/runtime/parrot/library/postgres.pir
==============================================================================
--- branches/global_cleanup/runtime/parrot/library/postgres.pir	(original)
+++ branches/global_cleanup/runtime/parrot/library/postgres.pir	Sun Dec 28 20:56:30 2008
@@ -12,192 +12,192 @@
 throw $P2
 has_lib:
 dlfunc $P2, $P1, 'PQconnectStart', 'pt'
-store_global 'PQconnectStart', $P2
+set_global 'PQconnectStart', $P2
 dlfunc $P2, $P1, 'PQconnectPoll', 'ip'
-store_global 'PQconnectPoll', $P2
+set_global 'PQconnectPoll', $P2
 dlfunc $P2, $P1, 'PQconnectdb', 'pt'
-store_global 'PQconnectdb', $P2
+set_global 'PQconnectdb', $P2
 dlfunc $P2, $P1, 'PQsetdbLogin', 'pttttttt'
-store_global 'PQsetdbLogin', $P2
+set_global 'PQsetdbLogin', $P2
 dlfunc $P2, $P1, 'PQfinish', 'vp'
-store_global 'PQfinish', $P2
+set_global 'PQfinish', $P2
 dlfunc $P2, $P1, 'PQconndefaults', 'p'
-store_global 'PQconndefaults', $P2
+set_global 'PQconndefaults', $P2
 dlfunc $P2, $P1, 'PQconninfoFree', 'vp'
-store_global 'PQconninfoFree', $P2
+set_global 'PQconninfoFree', $P2
 dlfunc $P2, $P1, 'PQresetStart', 'ip'
-store_global 'PQresetStart', $P2
+set_global 'PQresetStart', $P2
 dlfunc $P2, $P1, 'PQresetPoll', 'ip'
-store_global 'PQresetPoll', $P2
+set_global 'PQresetPoll', $P2
 dlfunc $P2, $P1, 'PQreset', 'vp'
-store_global 'PQreset', $P2
+set_global 'PQreset', $P2
 dlfunc $P2, $P1, 'PQrequestCancel', 'ip'
-store_global 'PQrequestCancel', $P2
+set_global 'PQrequestCancel', $P2
 dlfunc $P2, $P1, 'PQdb', 'tp'
-store_global 'PQdb', $P2
+set_global 'PQdb', $P2
 dlfunc $P2, $P1, 'PQuser', 'tp'
-store_global 'PQuser', $P2
+set_global 'PQuser', $P2
 dlfunc $P2, $P1, 'PQpass', 'tp'
-store_global 'PQpass', $P2
+set_global 'PQpass', $P2
 dlfunc $P2, $P1, 'PQhost', 'tp'
-store_global 'PQhost', $P2
+set_global 'PQhost', $P2
 dlfunc $P2, $P1, 'PQport', 'tp'
-store_global 'PQport', $P2
+set_global 'PQport', $P2
 dlfunc $P2, $P1, 'PQtty', 'tp'
-store_global 'PQtty', $P2
+set_global 'PQtty', $P2
 dlfunc $P2, $P1, 'PQoptions', 'tp'
-store_global 'PQoptions', $P2
+set_global 'PQoptions', $P2
 dlfunc $P2, $P1, 'PQstatus', 'ip'
-store_global 'PQstatus', $P2
+set_global 'PQstatus', $P2
 dlfunc $P2, $P1, 'PQtransactionStatus', 'ip'
-store_global 'PQtransactionStatus', $P2
+set_global 'PQtransactionStatus', $P2
 dlfunc $P2, $P1, 'PQparameterStatus', 'tpt'
-store_global 'PQparameterStatus', $P2
+set_global 'PQparameterStatus', $P2
 dlfunc $P2, $P1, 'PQprotocolVersion', 'ip'
-store_global 'PQprotocolVersion', $P2
+set_global 'PQprotocolVersion', $P2
 dlfunc $P2, $P1, 'PQerrorMessage', 'tp'
-store_global 'PQerrorMessage', $P2
+set_global 'PQerrorMessage', $P2
 dlfunc $P2, $P1, 'PQsocket', 'ip'
-store_global 'PQsocket', $P2
+set_global 'PQsocket', $P2
 dlfunc $P2, $P1, 'PQbackendPID', 'ip'
-store_global 'PQbackendPID', $P2
+set_global 'PQbackendPID', $P2
 dlfunc $P2, $P1, 'PQclientEncoding', 'ip'
-store_global 'PQclientEncoding', $P2
+set_global 'PQclientEncoding', $P2
 dlfunc $P2, $P1, 'PQsetClientEncoding', 'ipt'
-store_global 'PQsetClientEncoding', $P2
+set_global 'PQsetClientEncoding', $P2
 dlfunc $P2, $P1, 'PQsetErrorVerbosity', 'ipi'
-store_global 'PQsetErrorVerbosity', $P2
+set_global 'PQsetErrorVerbosity', $P2
 dlfunc $P2, $P1, 'PQtrace', 'vpp'
-store_global 'PQtrace', $P2
+set_global 'PQtrace', $P2
 dlfunc $P2, $P1, 'PQuntrace', 'vp'
-store_global 'PQuntrace', $P2
+set_global 'PQuntrace', $P2
 dlfunc $P2, $P1, 'PQexec', 'ppt'
-store_global 'PQexec', $P2
+set_global 'PQexec', $P2
 dlfunc $P2, $P1, 'PQexecParams', 'pptippppi'
-store_global 'PQexecParams', $P2
+set_global 'PQexecParams', $P2
 dlfunc $P2, $P1, 'PQprepare', 'ppttip'
-store_global 'PQprepare', $P2
+set_global 'PQprepare', $P2
 dlfunc $P2, $P1, 'PQexecPrepared', 'pptipppi'
-store_global 'PQexecPrepared', $P2
+set_global 'PQexecPrepared', $P2
 dlfunc $P2, $P1, 'PQsendQuery', 'ipt'
-store_global 'PQsendQuery', $P2
+set_global 'PQsendQuery', $P2
 # TODO dlfunc $P2, $P1, 'PQsendQueryParams', 'iptiit33i'
-# TODO store_global 'PQsendQueryParams', $P2
+# TODO set_global 'PQsendQueryParams', $P2
 # TODO dlfunc $P2, $P1, 'PQsendQueryPrepared', 'iptit33i'
-# TODO store_global 'PQsendQueryPrepared', $P2
+# TODO set_global 'PQsendQueryPrepared', $P2
 dlfunc $P2, $P1, 'PQgetResult', 'pp'
-store_global 'PQgetResult', $P2
+set_global 'PQgetResult', $P2
 dlfunc $P2, $P1, 'PQisBusy', 'ip'
-store_global 'PQisBusy', $P2
+set_global 'PQisBusy', $P2
 dlfunc $P2, $P1, 'PQconsumeInput', 'ip'
-store_global 'PQconsumeInput', $P2
+set_global 'PQconsumeInput', $P2
 dlfunc $P2, $P1, 'PQnotifies', 'pp'
-store_global 'PQnotifies', $P2
+set_global 'PQnotifies', $P2
 dlfunc $P2, $P1, 'PQputCopyData', 'ipti'
-store_global 'PQputCopyData', $P2
+set_global 'PQputCopyData', $P2
 dlfunc $P2, $P1, 'PQputCopyEnd', 'ipt'
-store_global 'PQputCopyEnd', $P2
+set_global 'PQputCopyEnd', $P2
 dlfunc $P2, $P1, 'PQgetCopyData', 'ipti'
-store_global 'PQgetCopyData', $P2
+set_global 'PQgetCopyData', $P2
 dlfunc $P2, $P1, 'PQgetline', 'ipti'
-store_global 'PQgetline', $P2
+set_global 'PQgetline', $P2
 dlfunc $P2, $P1, 'PQputline', 'ipt'
-store_global 'PQputline', $P2
+set_global 'PQputline', $P2
 dlfunc $P2, $P1, 'PQgetlineAsync', 'ipti'
-store_global 'PQgetlineAsync', $P2
+set_global 'PQgetlineAsync', $P2
 dlfunc $P2, $P1, 'PQputnbytes', 'ipti'
-store_global 'PQputnbytes', $P2
+set_global 'PQputnbytes', $P2
 dlfunc $P2, $P1, 'PQendcopy', 'ip'
-store_global 'PQendcopy', $P2
+set_global 'PQendcopy', $P2
 dlfunc $P2, $P1, 'PQsetnonblocking', 'ipi'
-store_global 'PQsetnonblocking', $P2
+set_global 'PQsetnonblocking', $P2
 dlfunc $P2, $P1, 'PQisnonblocking', 'ip'
-store_global 'PQisnonblocking', $P2
+set_global 'PQisnonblocking', $P2
 dlfunc $P2, $P1, 'PQflush', 'ip'
-store_global 'PQflush', $P2
+set_global 'PQflush', $P2
 dlfunc $P2, $P1, 'PQfn', 'ppi33ipi'
-store_global 'PQfn', $P2
+set_global 'PQfn', $P2
 dlfunc $P2, $P1, 'PQresultStatus', 'ip'
-store_global 'PQresultStatus', $P2
+set_global 'PQresultStatus', $P2
 dlfunc $P2, $P1, 'PQresStatus', 'ti'
-store_global 'PQresStatus', $P2
+set_global 'PQresStatus', $P2
 dlfunc $P2, $P1, 'PQresultErrorMessage', 'tp'
-store_global 'PQresultErrorMessage', $P2
+set_global 'PQresultErrorMessage', $P2
 dlfunc $P2, $P1, 'PQresultErrorField', 'cpi'
-store_global 'PQresultErrorField', $P2
+set_global 'PQresultErrorField', $P2
 dlfunc $P2, $P1, 'PQntuples', 'ip'
-store_global 'PQntuples', $P2
+set_global 'PQntuples', $P2
 dlfunc $P2, $P1, 'PQnfields', 'ip'
-store_global 'PQnfields', $P2
+set_global 'PQnfields', $P2
 dlfunc $P2, $P1, 'PQbinaryTuples', 'ip'
-store_global 'PQbinaryTuples', $P2
+set_global 'PQbinaryTuples', $P2
 dlfunc $P2, $P1, 'PQfname', 'tpi'
-store_global 'PQfname', $P2
+set_global 'PQfname', $P2
 dlfunc $P2, $P1, 'PQfnumber', 'ipt'
-store_global 'PQfnumber', $P2
+set_global 'PQfnumber', $P2
 dlfunc $P2, $P1, 'PQftable', 'ipi'
-store_global 'PQftable', $P2
+set_global 'PQftable', $P2
 dlfunc $P2, $P1, 'PQftablecol', 'ipi'
-store_global 'PQftablecol', $P2
+set_global 'PQftablecol', $P2
 dlfunc $P2, $P1, 'PQfformat', 'ipi'
-store_global 'PQfformat', $P2
+set_global 'PQfformat', $P2
 dlfunc $P2, $P1, 'PQftype', 'ipi'
-store_global 'PQftype', $P2
+set_global 'PQftype', $P2
 dlfunc $P2, $P1, 'PQfsize', 'ipi'
-store_global 'PQfsize', $P2
+set_global 'PQfsize', $P2
 dlfunc $P2, $P1, 'PQfmod', 'ipi'
-store_global 'PQfmod', $P2
+set_global 'PQfmod', $P2
 dlfunc $P2, $P1, 'PQcmdStatus', 'tp'
-store_global 'PQcmdStatus', $P2
+set_global 'PQcmdStatus', $P2
 dlfunc $P2, $P1, 'PQoidStatus', 'tp'
-store_global 'PQoidStatus', $P2
+set_global 'PQoidStatus', $P2
 dlfunc $P2, $P1, 'PQoidValue', 'ip'
-store_global 'PQoidValue', $P2
+set_global 'PQoidValue', $P2
 dlfunc $P2, $P1, 'PQcmdTuples', 'tp'
-store_global 'PQcmdTuples', $P2
+set_global 'PQcmdTuples', $P2
 dlfunc $P2, $P1, 'PQgetvalue', 'tpii'
-store_global 'PQgetvalue', $P2
+set_global 'PQgetvalue', $P2
 dlfunc $P2, $P1, 'PQgetlength', 'ipii'
-store_global 'PQgetlength', $P2
+set_global 'PQgetlength', $P2
 dlfunc $P2, $P1, 'PQgetisnull', 'ipii'
-store_global 'PQgetisnull', $P2
+set_global 'PQgetisnull', $P2
 dlfunc $P2, $P1, 'PQclear', 'vp'
-store_global 'PQclear', $P2
+set_global 'PQclear', $P2
 dlfunc $P2, $P1, 'PQfreemem', 'vp'
-store_global 'PQfreemem', $P2
+set_global 'PQfreemem', $P2
 dlfunc $P2, $P1, 'PQescapeBytea', 'ttl4'
-store_global 'PQescapeBytea', $P2
+set_global 'PQescapeBytea', $P2
 dlfunc $P2, $P1, 'PQunescapeBytea', 'tt4'
-store_global 'PQunescapeBytea', $P2
+set_global 'PQunescapeBytea', $P2
 dlfunc $P2, $P1, 'PQmakeEmptyPGresult', 'ppi'
-store_global 'PQmakeEmptyPGresult', $P2
+set_global 'PQmakeEmptyPGresult', $P2
 dlfunc $P2, $P1, 'lo_open', 'ipii'
-store_global 'lo_open', $P2
+set_global 'lo_open', $P2
 dlfunc $P2, $P1, 'lo_close', 'ipi'
-store_global 'lo_close', $P2
+set_global 'lo_close', $P2
 dlfunc $P2, $P1, 'lo_read', 'ipitl'
-store_global 'lo_read', $P2
+set_global 'lo_read', $P2
 dlfunc $P2, $P1, 'lo_write', 'ipitl'
-store_global 'lo_write', $P2
+set_global 'lo_write', $P2
 dlfunc $P2, $P1, 'lo_lseek', 'ipiii'
-store_global 'lo_lseek', $P2
+set_global 'lo_lseek', $P2
 dlfunc $P2, $P1, 'lo_creat', 'ipi'
-store_global 'lo_creat', $P2
+set_global 'lo_creat', $P2
 dlfunc $P2, $P1, 'lo_tell', 'ipi'
-store_global 'lo_tell', $P2
+set_global 'lo_tell', $P2
 dlfunc $P2, $P1, 'lo_unlink', 'ipi'
-store_global 'lo_unlink', $P2
+set_global 'lo_unlink', $P2
 dlfunc $P2, $P1, 'lo_import', 'ipt'
-store_global 'lo_import', $P2
+set_global 'lo_import', $P2
 dlfunc $P2, $P1, 'lo_export', 'ipit'
-store_global 'lo_export', $P2
+set_global 'lo_export', $P2
 dlfunc $P2, $P1, 'PQmblen', 'iti'
-store_global 'PQmblen', $P2
+set_global 'PQmblen', $P2
 dlfunc $P2, $P1, 'PQenv2encoding', 'i'
-store_global 'PQenv2encoding', $P2
+set_global 'PQenv2encoding', $P2
 
 dlfunc $P2, $P1, 'PQsetNoticeReceiver', 'pppP'
-store_global 'PQsetNoticeReceiver', $P2
+set_global 'PQsetNoticeReceiver', $P2
 .end
 
 

Modified: branches/global_cleanup/runtime/parrot/library/yaml_dumper.pir
==============================================================================
--- branches/global_cleanup/runtime/parrot/library/yaml_dumper.pir	(original)
+++ branches/global_cleanup/runtime/parrot/library/yaml_dumper.pir	Sun Dec 28 20:56:30 2008
@@ -162,13 +162,13 @@
 TYPE_OK:
 
     errorsoff .PARROT_ERRORS_GLOBALS_FLAG
-    find_global self, "YAML::Dumper", "global"
+    self = get_root_global ['YAML::Dumper'], 'global'
     errorson .PARROT_ERRORS_GLOBALS_FLAG
     if null self goto create_type
 
 create_type:
     new self, "YAML::Dumper"
-    store_global "YAML::Dumper", "global", self
+    set_root_global ['YAML::Dumper'], 'global', self
 
 END:
     .return( self )



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