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

[svn:parrot] r35099 - in trunk: . src/ops

From:
coke
Date:
January 6, 2009 23:40
Subject:
[svn:parrot] r35099 - in trunk: . src/ops
Message ID:
20090107074051.E60CECB9F9@x12.develooper.com
Author: coke
Date: Tue Jan  6 23:40:51 2009
New Revision: 35099

Modified:
   trunk/PBC_COMPAT
   trunk/src/ops/ops.num
   trunk/src/ops/var.ops

Log:
Remove [DEPRECATED] opcode: find_global_p_s



Modified: trunk/PBC_COMPAT
==============================================================================
--- trunk/PBC_COMPAT	(original)
+++ trunk/PBC_COMPAT	Tue Jan  6 23:40:51 2009
@@ -27,7 +27,7 @@
 
 # please insert tab separated entries at the top of the list
 
-3.27	2008.01.07	coke	removed find_global_p_p_s
+3.27	2008.01.07	coke	removed find_global_p_p_s, find_global_p_s
 3.26	2008.12.30	chromatic	removed deprecated infix, n_infix, get_mro opcodes
 3.25	2008.11.15	tewk	changed size of Parrot_sub structure which effects frozen sub pmc size
 3.24	2008.11.24	pmichaud	added capture_lex opcode

Modified: trunk/src/ops/ops.num
==============================================================================
--- trunk/src/ops/ops.num	(original)
+++ trunk/src/ops/ops.num	Tue Jan  6 23:40:51 2009
@@ -1275,11 +1275,9 @@
 store_global_pc_s_p            1245
 store_global_p_sc_p            1246
 store_global_pc_sc_p           1247
-find_global_p_s                1248
-find_global_p_sc               1249
-find_global_p_s_s              1250
-find_global_p_sc_s             1251
-find_global_p_s_sc             1252
-find_global_p_sc_sc            1253
-find_name_p_s                  1254
-find_name_p_sc                 1255
+find_global_p_s_s              1248
+find_global_p_sc_s             1249
+find_global_p_s_sc             1250
+find_global_p_sc_sc            1251
+find_name_p_s                  1252
+find_name_p_sc                 1253

Modified: trunk/src/ops/var.ops
==============================================================================
--- trunk/src/ops/var.ops	(original)
+++ trunk/src/ops/var.ops	Tue Jan  6 23:40:51 2009
@@ -398,13 +398,6 @@
 
 ########################################
 
-=item B<find_global>(out PMC, in STR)
-
-Find the global named $2 in the current namespace 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>.
-
 =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.
@@ -414,11 +407,6 @@
 
 =cut
 
-op find_global(out PMC, in STR) :deprecated {
-    PMC * const cur_ns = CONTEXT(interp)->current_namespace;
-    $1 = Parrot_find_global_op(interp, cur_ns, $2, expr NEXT());
-}
-
 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),



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