# New Ticket Created by Stephane Payrard
# Please include the string: [perl #31938]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org:80/rt3/Ticket/Display.html?id=31938 >
The get_repr was present in vtable but missing as an op.
I added it and added a test in t/pmc/bigint.t
Note that you need to compile with the gmp library if
you want to do the test/
Patch attached
--
stef
--- ./t/pmc/bigint.t.old 2004-08-22 11:15:52.000000000 +0200
+++ ./t/pmc/bigint.t 2004-10-11 21:53:32.690558368 +0200
@@ -84,10 +84,14 @@
set I1, P0
print I1
print "\n"
+ get_repr S0, P0
+ print S0
+ print "\n"
end
CODE
999999
+999999L
OUT
output_is(<<"CODE", <<'OUT', "set int, get double");
--- ./ops/pmc.ops.old 2004-09-06 01:52:23.000000000 +0200
+++ ./ops/pmc.ops 2004-10-11 22:30:10.819391992 +0200
@@ -203,6 +203,18 @@
goto NEXT();
}
+
+=item B<get_repr>(out STR, in PMC)
+
+Set $1 to a string reprentation of $2
+
+=cut
+
+op get_repr(out STR, in PMC) {
+ $1 = $2->vtable->get_repr(interpreter, $2);
+ goto NEXT();
+}
+
=back
=cut
