Add new getprop variant and deprecate old one. Part of #351

parrot · Mar 4, 2012 · 4a482c7 · 4a482c7
1 parent c7f99d7
commit 4a482c7
Showing 1 changed file with 12 additions and 1 deletion.
diff --git a/src/ops/pmc.ops b/src/ops/pmc.ops
@@ -493,12 +493,23 @@ op setprop(invar PMC, in STR, invar PMC) {
 
 Get property $2 of PMC $3 and put it in $1.
 
+Deprecated.
+
+=item B<getprop>(out PMC, invar PMC, in STR)
+
+Get property $3 of PMC $2 and put it in $1.
+
 =cut
 
-op getprop(out PMC, in STR, invar PMC) {
+op getprop(out PMC, in STR, invar PMC) :deprecated {
+    Parrot_warn_deprecated(interp, "getprop_p_s_p is deprecated. Use getprop_p_p_s instead");
     $1 = Parrot_pmc_getprop(interp, $3, $2);
 }
 
+op getprop(out PMC, invar PMC, in STR) {
+    $1 = Parrot_pmc_getprop(interp, $2, $3);
+}
+
 ########################################
 
 =item B<delprop>(invar PMC, in STR)