Ticket #158: remove-add_method-parameters

File remove-add_method-parameters, 2.5 KB (added by kraai, 6 years ago)

Patch

Line 
1Index: DEPRECATED.pod
2===================================================================
3--- DEPRECATED.pod      (revision 37815)
4+++ DEPRECATED.pod      (working copy)
5@@ -112,14 +112,6 @@
6 
7 L<http://rt.perl.org/rt3/Ticket/Display.html?id=48014>
8 
9-=item :anon and :vtable named parameters to add_method [eligible in 1.1]
10-
11-If you want to override a vtable method/function when building a Class, then
12-use the method C<add_vtable_override> instead of calling C<add_method> with
13-one or both of these flags.
14-
15-L<https://trac.parrot.org/parrot/ticket/158>
16-
17 =back
18 
19 =head1 PIR syntax
20Index: src/pmc/class.pmc
21===================================================================
22--- src/pmc/class.pmc   (revision 37815)
23+++ src/pmc/class.pmc   (working copy)
24@@ -1766,19 +1766,9 @@
25 =cut
26 
27 */
28-    METHOD add_method(STRING *name, PMC *sub,
29-                              int vtable     :optional :named("vtable"),
30-                              int has_vtable :opt_flag,
31-                              int anon       :optional :named("anon"),
32-                              int has_anon   :opt_flag)
33+    METHOD add_method(STRING *name, PMC *sub)
34     {
35-        /* If it's a vtable method... */
36-        if (has_vtable && vtable)
37-            VTABLE_add_vtable_override(interp, SELF, name, sub);
38-
39-        /* Provided it's not anonymous, add it to the methods list. */
40-        if (!has_anon || !anon)
41-            SELF.add_method(name, sub);
42+        SELF.add_method(name, sub);
43     }
44 
45 /*
46Index: t/pmc/pmcproxy.t
47===================================================================
48--- t/pmc/pmcproxy.t    (revision 37815)
49+++ t/pmc/pmcproxy.t    (working copy)
50@@ -146,7 +146,7 @@
51 
52     #We will override the add_role vtable method.
53     $P2 = get_global 'no_add_role'
54-    $P0.'add_method'('add_role', $P2, 'vtable' => 1)
55+    $P0.'add_vtable_override'('add_role', $P2)
56     ok(1, 'overrode a vtable method')
57 
58     $P2 = $P0.'new'()
59@@ -180,7 +180,7 @@
60 
61     #We will override the inspect_str vtable method.
62     $P2 = get_global 'always42'
63-    $P0.'add_method'('inspect_str', $P2, 'vtable' => 1)
64+    $P0.'add_vtable_override'('inspect_str', $P2)
65     ok(1, 'overrode inspect_str method')
66 
67     $P2 = $P0.'new'()
68Index: t/pmc/object-meths.t
69===================================================================
70--- t/pmc/object-meths.t        (revision 37815)
71+++ t/pmc/object-meths.t        (working copy)
72@@ -728,7 +728,7 @@
73     o = new ['Bar']
74     print o
75     $P0 = get_global "ok2"
76-    cl.'add_method'('get_string', $P0, 'vtable' => 1)
77+    cl.'add_vtable_override'('get_string', $P0)
78     print o
79 .end
80 .sub ok2