>>>>> On Mon, 29 Apr 2002 18:58:18 -0400, Jeff <[EMAIL PROTECTED]> said:
J> Ilya Martynov wrote:
>>
>> Index: core.ops
>> [..snip..]
J> Applied, thanks.
I've just found other POD bugs in core.ops
Index: core.ops
===================================================================
RCS file: /cvs/public/parrot/core.ops,v
retrieving revision 1.131
diff -u -d -u -r1.131 core.ops
--- core.ops 29 Apr 2002 23:01:08 -0000 1.131
+++ core.ops 29 Apr 2002 23:15:54 -0000
@@ -457,6 +457,8 @@
Make a clone of $2, and put it in $1. Doesn't affect what was in
$1. Removes the constant flag on the copy, if there was one.
+=cut
+
inline op clone(out STR, in STR) {
$1 = string_copy(interpreter, $2);
goto NEXT();
@@ -469,6 +471,8 @@
Sets register $1 to the current address plus the offset $2
+=cut
+
inline op set_addr(out INT, in INT) {
$1 = (INTVAL) (CUR_OPCODE + $2);
goto NEXT();
--
Ilya Martynov (http://martynov.org/)
