Re: [perl #23252] [PATCH] IO seek/tell refactoring

[Juergen Boemmels]

Index: io.ops
===================================================================
RCS file: /cvs/public/parrot/io.ops,v
retrieving revision 1.31
diff -u -r1.31 io.ops
--- io.ops	9 Aug 2003 07:22:20 -0000	1.31
+++ io.ops	11 Aug 2003 12:32:00 -0000
@@ -422,7 +422,7 @@
 
 64bit tell:
 Get the current file positon of stream $3 in two parts of 32-bit each
-($1 = pos >> 32, $2 = pos & 0xffff).
+($1 = pos >> 32, $2 = pos & 0xffffffff).
 
 =cut
 
@@ -438,7 +438,7 @@
     PIOOFF_T pos;
     pos = PIO_tell(interpreter, $3);
     $1 = (INTVAL)(pos >> 32);
-    $2 = (INTVAL)(pos & 0xffff);
+    $2 = (INTVAL)(pos & 0xffffffff);
   }
   goto NEXT();
 }