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

[svn:parrot] r35355 - in trunk: . runtime/parrot/library runtime/parrot/library/Data src/ops

From:
coke
Date:
January 10, 2009 13:44
Subject:
[svn:parrot] r35355 - in trunk: . runtime/parrot/library runtime/parrot/library/Data src/ops
Message ID:
20090110214407.6D6F2CB9F9@x12.develooper.com
Author: coke
Date: Sat Jan 10 13:44:06 2009
New Revision: 35355

Modified:
   trunk/DEPRECATED.pod
   trunk/PBC_COMPAT
   trunk/runtime/parrot/library/Data/Replace.pir
   trunk/runtime/parrot/library/STM.pir
   trunk/runtime/parrot/library/dumper.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 variant of [DEPRECATED] store_global opcode; make test passes.



Modified: trunk/DEPRECATED.pod
==============================================================================
--- trunk/DEPRECATED.pod	(original)
+++ trunk/DEPRECATED.pod	Sat Jan 10 13:44:06 2009
@@ -35,10 +35,6 @@
 
 =over 4
 
-=item * C<store_global> [post 0.5.0]
-
-See RT #48016. Replace usage with set_[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:44:06 2009
@@ -27,7 +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.30	2009.01.10	coke	removed find_global_p_s_s and store_global_s_s_p 
 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:44:06 2009
@@ -112,8 +112,8 @@
 
 .sub __onload :load
     $P0 = get_hll_global ['Data::Replace'], 'ResizablePMCArray'
-    store_global "Data::Replace", "PMCArray", $P0
-    store_global "Data::Replace", "StringArray", $P0
+    set_hll_global ['Data::Replace'], 'PMCArray', $P0
+    set_hll_global ['Data::Replace'], 'StringArray', $P0
 .end
 
 .sub ResizablePMCArray

Modified: trunk/runtime/parrot/library/STM.pir
==============================================================================
--- trunk/runtime/parrot/library/STM.pir	(original)
+++ trunk/runtime/parrot/library/STM.pir	Sat Jan 10 13:44:06 2009
@@ -4,9 +4,9 @@
     # print "loaded STM runtime library\n"
     # Create globals
     $P0 = new 'ResizablePMCArray'
-    store_global 'STM', 'ends', $P0
+    set_hll_global ['STM'], 'ends', $P0
     $P0 = new 'ResizableIntegerArray'
-    store_global 'STM', 'statuses', $P0
+    set_hll_global ['STM'], 'statuses', $P0
 .end
 
 .const int STATUS_COMMIT = 0

Modified: trunk/runtime/parrot/library/dumper.pir
==============================================================================
--- trunk/runtime/parrot/library/dumper.pir	(original)
+++ trunk/runtime/parrot/library/dumper.pir	Sat Jan 10 13:44:06 2009
@@ -167,7 +167,7 @@
 
 create_type:
     new self, "Data::Dumper"
-    store_global "Data::Dumper", "global", self
+    set_hll_global ['Data::Dumper'], 'global', self
 
 END:
     .return( self )

Modified: trunk/runtime/parrot/library/parrotlib.pir
==============================================================================
--- trunk/runtime/parrot/library/parrotlib.pir	(original)
+++ trunk/runtime/parrot/library/parrotlib.pir	Sat Jan 10 13:44:06 2009
@@ -45,7 +45,7 @@
 
     # create includes array
     includes = new 'ResizablePMCArray'
-    store_global "_parrotlib", "include_paths", includes
+    set_hll_global ['_parrotlib'], 'include_paths', includes
 
     # get the directory handler
     $P0 = get_hll_global ['_parrotlib'], 'handle_directory'
@@ -75,7 +75,7 @@
     $P1 = sig
     $P0 = get_hll_global ['_parrotlib'], name
     setprop $P0, "signature", $P1
-    store_global "_parrotlib", name, $P0
+    set_hll_global ['_parrotlib'], name, $P0
 .end
 
 =item STRING = include_file_location( STRING )

Modified: trunk/runtime/parrot/library/pcre.pir
==============================================================================
--- trunk/runtime/parrot/library/pcre.pir	(original)
+++ trunk/runtime/parrot/library/pcre.pir	Sat Jan 10 13:44:06 2009
@@ -79,7 +79,7 @@
     branch LIB_FAILED
 
 LIB_LOADED:
-    store_global 'PCRE', 'lib', libpcre
+    set_hll_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_hll_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_hll_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_hll_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_hll_global ['PCRE::NCI'], 'PCRE_version', pcre_function
 
     .return( libpcre )
 

Modified: trunk/src/ops/ops.num
==============================================================================
--- trunk/src/ops/ops.num	(original)
+++ trunk/src/ops/ops.num	Sat Jan 10 13:44:06 2009
@@ -1268,9 +1268,5 @@
 set_root_global_pc_s_p         1238
 set_root_global_p_sc_p         1239
 set_root_global_pc_sc_p        1240
-store_global_s_s_p             1241
-store_global_sc_s_p            1242
-store_global_s_sc_p            1243
-store_global_sc_sc_p           1244
-find_name_p_s                  1245
-find_name_p_sc                 1246
+find_name_p_s                  1241
+find_name_p_sc                 1242

Modified: trunk/src/ops/var.ops
==============================================================================
--- trunk/src/ops/var.ops	(original)
+++ trunk/src/ops/var.ops	Sat Jan 10 13:44:06 2009
@@ -370,20 +370,6 @@
 
 ########################################
 
-=item B<store_global>(in STR, in STR, invar PMC)
-
-Store global $3 as global symbol $2 in namespace designated by $1.  If
-namespace does not exist, create it.  $1 may be a key, a string, or an array
-of strings.
-
-=cut
-
-op store_global(in STR, in STR, invar PMC) :deprecated {
-    Parrot_store_global_s(interp, $1, $2, $3);
-}
-
-########################################
-
 =item B<find_name>(out PMC, in STR)
 
 Find the name $2 in lexical, current, global, or builtin namespace and
@@ -408,7 +394,7 @@
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001-2008, The Perl Foundation.
+Copyright (C) 2001-2009, The Perl Foundation.
 
 =head1 LICENSE
 



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