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

[svn:parrot] r35354 - in trunk: . runtime/parrot/library runtime/parrot/library/Data runtime/parrot/library/Digest runtime/parrot/library/Stream runtime/parrot/library/Test/Builder src/ops

From:
coke
Date:
January 10, 2009 13:27
Subject:
[svn:parrot] r35354 - in trunk: . runtime/parrot/library runtime/parrot/library/Data runtime/parrot/library/Digest runtime/parrot/library/Stream runtime/parrot/library/Test/Builder src/ops
Message ID:
20090110212723.BD539CB9FA@x12.develooper.com
Author: coke
Date: Sat Jan 10 13:27:22 2009
New Revision: 35354

Modified:
   trunk/DEPRECATED.pod
   trunk/PBC_COMPAT
   trunk/runtime/parrot/library/Data/Replace.pir
   trunk/runtime/parrot/library/Digest/MD5.pir
   trunk/runtime/parrot/library/Stream/Base.pir
   trunk/runtime/parrot/library/Stream/Writer.pir
   trunk/runtime/parrot/library/Test/Builder/Test.pir
   trunk/runtime/parrot/library/dumper.pir
   trunk/runtime/parrot/library/libpcre.pir
   trunk/runtime/parrot/library/parrotlib.pir
   trunk/runtime/parrot/library/pcre.pir
   trunk/src/ops/ops.num
   trunk/src/ops/var.ops

Log:
Remove last [DEPRECATED] find_global opcode. 

"make test" passes, but it seems that many things that use this (in library, e.g.) might not even be compiled.



Modified: trunk/DEPRECATED.pod
==============================================================================
--- trunk/DEPRECATED.pod	(original)
+++ trunk/DEPRECATED.pod	Sat Jan 10 13:27:22 2009
@@ -39,10 +39,6 @@
 
 See RT #48016. Replace usage with set_[hll,root]_global variants.
 
-=item * C<find_global> [post 0.5.0]
-
-See RT #48018. Replace usage with get_[hll,root]_global variants.
-
 =item * C<n_*> math opcode variants [post 0.7.1]
 
 See RT #58410.

Modified: trunk/PBC_COMPAT
==============================================================================
--- trunk/PBC_COMPAT	(original)
+++ trunk/PBC_COMPAT	Sat Jan 10 13:27:22 2009
@@ -27,6 +27,7 @@
 
 # please insert tab separated entries at the top of the list
 
+3.30	2009.01.10	coke	removed find_global_p_s_s
 3.29	2009.01.07	coke	removed store_global_p_s_p
 3.28	2009.01.07	jonathan	changes for bytecode annoations (packfile and ops)
 3.27	2008.01.07	coke	removed find_global_p_p_s, find_global_p_s, store_global_p_s

Modified: trunk/runtime/parrot/library/Data/Replace.pir
==============================================================================
--- trunk/runtime/parrot/library/Data/Replace.pir	(original)
+++ trunk/runtime/parrot/library/Data/Replace.pir	Sat Jan 10 13:27:22 2009
@@ -12,7 +12,7 @@
 
     .local pmc replace
 
-    replace = find_global "Data::Replace", "replace"
+    replace = get_hll_global ['Data::Replace'], 'replace'
 
     replace( array, old, new )
 
@@ -95,7 +95,7 @@
     typeof name, where
     .include 'errors.pasm'
     errorsoff .PARROT_ERRORS_GLOBALS_FLAG
-    find_global temp, "Data::Replace", name
+    temp = get_hll_global ['"Data::Replace'], name
     errorson .PARROT_ERRORS_GLOBALS_FLAG
     # invoke it if found
     $I0 = defined temp
@@ -111,7 +111,7 @@
 .end
 
 .sub __onload :load
-    $P0 = find_global "Data::Replace", "ResizablePMCArray"
+    $P0 = get_hll_global ['Data::Replace'], 'ResizablePMCArray'
     store_global "Data::Replace", "PMCArray", $P0
     store_global "Data::Replace", "StringArray", $P0
 .end

Modified: trunk/runtime/parrot/library/Digest/MD5.pir
==============================================================================
--- trunk/runtime/parrot/library/Digest/MD5.pir	(original)
+++ trunk/runtime/parrot/library/Digest/MD5.pir	Sat Jan 10 13:27:22 2009
@@ -54,11 +54,11 @@
 .sub onload :load
 
     .local pmc f
-    f = find_global "Digest", "_md5sum"
+    f = get_hll_global ['Digest'], '_md5sum'
     set_global "_md5sum", f
-    f = find_global "Digest", "_md5_hex"
+    f = get_hll_global ['Digest'], '_md5_hex'
     set_global "_md5_hex", f
-    f = find_global "Digest", "_md5_print"
+    f = get_hll_global ['Digest'], '_md5_print'
     set_global "_md5_print", f
 .end
 

Modified: trunk/runtime/parrot/library/Stream/Base.pir
==============================================================================
--- trunk/runtime/parrot/library/Stream/Base.pir	(original)
+++ trunk/runtime/parrot/library/Stream/Base.pir	Sat Jan 10 13:27:22 2009
@@ -40,7 +40,7 @@
     .local pmc close
 
     # call our own close
-    close = find_global "Stream::Base", "close"
+    close = get_hll_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_hll_global ['Data::Escape'], 'String'
 LOOP:
     i = self."connected"()
     unless i goto END

Modified: trunk/runtime/parrot/library/Stream/Writer.pir
==============================================================================
--- trunk/runtime/parrot/library/Stream/Writer.pir	(original)
+++ trunk/runtime/parrot/library/Stream/Writer.pir	Sat Jan 10 13:27:22 2009
@@ -64,7 +64,7 @@
     source()
 
     # close the source
-    source = find_global "Stream::Base", "close"
+    source = get_hll_global ['Stream::Base'], 'close'
     self."setSource"()
 
     # mark it as closed

Modified: trunk/runtime/parrot/library/Test/Builder/Test.pir
==============================================================================
--- trunk/runtime/parrot/library/Test/Builder/Test.pir	(original)
+++ trunk/runtime/parrot/library/Test/Builder/Test.pir	Sat Jan 10 13:27:22 2009
@@ -280,7 +280,7 @@
     .local pmc status
     .local pmc parent_status
 
-    parent_status = find_global 'Test::Builder::Test::WithReason', 'status'
+    parent_status = get_hll_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_hll_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_hll_global ['Test::Builder::Test::WithReason'], 'status'
     status        = parent_status()
     passed        = self.'passed'()
 

Modified: trunk/runtime/parrot/library/dumper.pir
==============================================================================
--- trunk/runtime/parrot/library/dumper.pir	(original)
+++ trunk/runtime/parrot/library/dumper.pir	Sat Jan 10 13:27:22 2009
@@ -161,7 +161,7 @@
 TYPE_OK:
 
     errorsoff .PARROT_ERRORS_GLOBALS_FLAG
-    find_global self, "Data::Dumper", "global"
+    self = get_hll_global ['Data::Dumper'], 'global'
     errorson .PARROT_ERRORS_GLOBALS_FLAG
     if null self goto create_type
 

Modified: trunk/runtime/parrot/library/libpcre.pir
==============================================================================
--- trunk/runtime/parrot/library/libpcre.pir	(original)
+++ trunk/runtime/parrot/library/libpcre.pir	Sat Jan 10 13:27:22 2009
@@ -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_hll_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_hll_global ['PCRE::NCI'], 'PCRE_exec'
 
     .local int ok
 

Modified: trunk/runtime/parrot/library/parrotlib.pir
==============================================================================
--- trunk/runtime/parrot/library/parrotlib.pir	(original)
+++ trunk/runtime/parrot/library/parrotlib.pir	Sat Jan 10 13:27:22 2009
@@ -48,7 +48,7 @@
     store_global "_parrotlib", "include_paths", includes
 
     # get the directory handler
-    $P0 = find_global "_parrotlib", "handle_directory"
+    $P0 = get_hll_global ['_parrotlib'], 'handle_directory'
 
     # fill the includes array
 LOOP:
@@ -73,7 +73,7 @@
 
     $P1 = new 'String'
     $P1 = sig
-    find_global $P0, "_parrotlib", name
+    $P0 = get_hll_global ['_parrotlib'], name
     setprop $P0, "signature", $P1
     store_global "_parrotlib", name, $P0
 .end
@@ -90,7 +90,7 @@
 .sub include_file_location
     .param string name
 
-    find_global $P0, "_parrotlib", "include_paths"
+    $P0 = get_hll_global ['_parrotlib'], 'include_paths'
     $S0 = find_file_path( name, $P0 )
 
     .begin_return
@@ -110,7 +110,8 @@
 .sub imcc_compile_file_location
     .param string name
 
-    find_global $P0, "_parrotlib", "include_paths"
+    $P0 = get_hll_global ['_parrotlib'], 'include_paths'
+
     $S0 = find_file_path( name, $P0 )
 
     .begin_return

Modified: trunk/runtime/parrot/library/pcre.pir
==============================================================================
--- trunk/runtime/parrot/library/pcre.pir	(original)
+++ trunk/runtime/parrot/library/pcre.pir	Sat Jan 10 13:27:22 2009
@@ -10,13 +10,13 @@
     load_bytecode 'library/pcre.pir'
     lib = pcre_init()
 
-    func = find_global 'PCRE', 'compile'
+    func = get_hll_global ['PCRE'], 'compile'
     ( regex, error, errptr )= func( pat, options )
 
-    func = find_global 'PCRE', 'match'
+    func = get_hll_global ['PCRE'], 'match'
     ( ok, result )= func( regex, string, start, options )
 
-    func = find_global 'PCRE', 'dollar'
+    func = get_hll_global ['PCRE'], 'dollar'
     match = func( string, ok, result, i )
 
 =head1 DESCRIPTION
@@ -124,7 +124,7 @@
     .param int options
     .local pmc pcre_function
 
-    pcre_function= find_global 'PCRE::NCI', 'compile'
+    pcre_function= get_hll_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_hll_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_hll_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_hll_global ['PCRE::NCI'], 'PCRE_version'
 
     .local string ver
 

Modified: trunk/src/ops/ops.num
==============================================================================
--- trunk/src/ops/ops.num	(original)
+++ trunk/src/ops/ops.num	Sat Jan 10 13:27:22 2009
@@ -1272,9 +1272,5 @@
 store_global_sc_s_p            1242
 store_global_s_sc_p            1243
 store_global_sc_sc_p           1244
-find_global_p_s_s              1245
-find_global_p_sc_s             1246
-find_global_p_s_sc             1247
-find_global_p_sc_sc            1248
-find_name_p_s                  1249
-find_name_p_sc                 1250
+find_name_p_s                  1245
+find_name_p_sc                 1246

Modified: trunk/src/ops/var.ops
==============================================================================
--- trunk/src/ops/var.ops	(original)
+++ trunk/src/ops/var.ops	Sat Jan 10 13:27:22 2009
@@ -384,22 +384,6 @@
 
 ########################################
 
-=item B<find_global>(out PMC, in STR, in STR)
-
-Find the global named $3 in the namespace named $2 and store it in $1.
-
-If the global doesn't exist either throws an exception or sets $1 to the
-Null PMC, depending on current errors settings. See B<errorson>.
-
-=cut
-
-op find_global(out PMC, in STR, in STR) :deprecated {
-    PMC * const ns = Parrot_get_namespace_keyed_str(interp,
-                                                    Parrot_get_ctx_HLL_namespace(interp),
-                                                    $2);
-    $1 = Parrot_find_global_op(interp, ns, $3, expr NEXT());
-}
-
 =item B<find_name>(out PMC, in STR)
 
 Find the name $2 in lexical, current, global, or builtin namespace and



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