This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Allow formats with lines >64K
authorDavid Mitchell <davem@iabyn.com>
Sun, 29 May 2011 18:54:58 +0000 (19:54 +0100)
committerDavid Mitchell <davem@iabyn.com>
Sun, 29 May 2011 19:21:54 +0000 (20:21 +0100)
commit76912796531d6c0d25da0a8a285be9c7ba45b1bf
tree3c6a31dd34bd82e168f4b7dd6f8bbaa2b21ca377
parent26e935cfa6e70de1bd5258e0cb0f22ee976909f3
Allow formats with lines >64K

Back in 2003, the format bytecode was changed to allow 32-bit offsets,
but all the stored offsets were still being cast to U16. So for example
only the first char of a 65537 char literal would be output.

This commit removes all the U16 casts.
pp_ctl.c
t/op/write.t