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
-
[svn:parrot] r35355 - in trunk: . runtime/parrot/library runtime/parrot/library/Data src/ops
by coke