This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mask VMS hints bits in COPs
authorDavid Mitchell <davem@iabyn.com>
Fri, 5 Sep 2014 16:06:47 +0000 (17:06 +0100)
committerDavid Mitchell <davem@iabyn.com>
Wed, 10 Sep 2014 13:25:05 +0000 (14:25 +0100)
commit0ef96805f64e8a30fc79019cea63b653fd0a61e9
treef3874d347761eb3def677d5e8ddd7be15f8e20c4
parentf3574cc66412a684ced323c9c3183b20381c3f58
mask VMS hints bits in COPs

A couple of VMS-specific hints bits are stored in op_private on COPs.
Currently these are added using NATIVE_HINTS, which is defined as
PL_hints >> 24.
Since other hints have started using the top byte of PL_hints, this
has the possibility of inadvertently setting other bits in cop->op_private.
So mask out the bits we don't want. We need this before the next commit,
which will assert valid bits on debugging builds.

(This is VMS-specific, and has been applied blind)
op.h
vms/vmsish.h