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

[svn:parrot] r34544 - in branches/global_cleanup: . src/ops

From:
coke
Date:
December 28, 2008 20:29
Subject:
[svn:parrot] r34544 - in branches/global_cleanup: . src/ops
Message ID:
20081229042938.38D1DCB9FA@x12.develooper.com
Author: coke
Date: Sun Dec 28 20:29:37 2008
New Revision: 34544

Modified:
   branches/global_cleanup/DEPRECATED.pod
   branches/global_cleanup/PBC_COMPAT
   branches/global_cleanup/src/ops/ops.num
   branches/global_cleanup/src/ops/var.ops

Log:
Remove the opcodes themselves.



Modified: branches/global_cleanup/DEPRECATED.pod
==============================================================================
--- branches/global_cleanup/DEPRECATED.pod	(original)
+++ branches/global_cleanup/DEPRECATED.pod	Sun Dec 28 20:29:37 2008
@@ -35,14 +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<find_global> [post 0.5.0]
-
-See RT #48018. Replace usage with get_[hll,root]_global variants.
-
 =item * C<get_mro> [post 0.5.0]
 
 See RT #47976.

Modified: branches/global_cleanup/PBC_COMPAT
==============================================================================
--- branches/global_cleanup/PBC_COMPAT	(original)
+++ branches/global_cleanup/PBC_COMPAT	Sun Dec 28 20:29:37 2008
@@ -26,7 +26,8 @@
 # Also, if you're removing an opcode, be sure to run "make opsrenumber"
 
 # please insert tab separated entries at the top of the list
- 
+
+3.26	2008.12.28	coke	removed find_global, store_global 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
 3.23	2008.11.15	chromatic	added box opcodes

Modified: branches/global_cleanup/src/ops/ops.num
==============================================================================
--- branches/global_cleanup/src/ops/ops.num	(original)
+++ branches/global_cleanup/src/ops/ops.num	Sun Dec 28 20:29:37 2008
@@ -1287,25 +1287,5 @@
 set_root_global_pc_s_p         1257
 set_root_global_p_sc_p         1258
 set_root_global_pc_sc_p        1259
-store_global_s_p               1260
-store_global_sc_p              1261
-store_global_s_s_p             1262
-store_global_sc_s_p            1263
-store_global_s_sc_p            1264
-store_global_sc_sc_p           1265
-store_global_p_s_p             1266
-store_global_pc_s_p            1267
-store_global_p_sc_p            1268
-store_global_pc_sc_p           1269
-find_global_p_s                1270
-find_global_p_sc               1271
-find_global_p_s_s              1272
-find_global_p_sc_s             1273
-find_global_p_s_sc             1274
-find_global_p_sc_sc            1275
-find_global_p_p_s              1276
-find_global_p_pc_s             1277
-find_global_p_p_sc             1278
-find_global_p_pc_sc            1279
-find_name_p_s                  1280
-find_name_p_sc                 1281
+find_name_p_s                  1260
+find_name_p_sc                 1261

Modified: branches/global_cleanup/src/ops/var.ops
==============================================================================
--- branches/global_cleanup/src/ops/var.ops	(original)
+++ branches/global_cleanup/src/ops/var.ops	Sun Dec 28 20:29:37 2008
@@ -370,77 +370,6 @@
 
 ########################################
 
-=item B<store_global>(in STR, invar PMC)
-
-Store value $2 as global symbol $1 in the current namespace.
-
-=item B<store_global>(in STR, in STR, invar PMC)
-
-=item B<store_global>(in PMC, 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, invar PMC) :deprecated {
-    Parrot_store_global_cur(interp, $1, $2);
-}
-
-op store_global(in STR, in STR, invar PMC) :deprecated {
-    Parrot_store_global_s(interp, $1, $2, $3);
-}
-
-op store_global(in PMC, in STR, invar PMC) :deprecated {
-    Parrot_store_global_k(interp, $1, $2, $3);
-}
-
-########################################
-
-=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.
-
-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 PMC, in STR)
-
-Find the global named $3 in the namespace designated by $2 and store it in
-$1.  $2 may be a key, a string, or an array of strings.
-
-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) :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),
-                                                    $2);
-    $1 = Parrot_find_global_op(interp, ns, $3, expr NEXT());
-}
-
-op find_global(out PMC, in PMC, in STR) :deprecated {
-    PMC * const ns = Parrot_get_namespace_keyed(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