diff options
author | Tony Cook <tony@develop-help.com> | 2019-10-25 05:26:53 +1100 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2019-10-30 20:09:37 +0100 |
commit | 9f601cf3bbfa6be3e2ab3468e77a7b79c80ff5cf (patch) | |
tree | cfb97c690e5e69e19f3e73fe532606008a1cd5ab /cop.h | |
parent | 698f6cc7d55bb6b96940a610be050d2c6331ae04 (diff) | |
download | perl-9f601cf3bbfa6be3e2ab3468e77a7b79c80ff5cf.tar.gz |
Faster feature checks
Perform only a bit check instead of a much more expensive hash
lookup to test features.
For now I've just added a U32 to the cop structure to store the bits,
if we need more we could either add more bits directly, or make it a
pointer.
We don't have the immediate need for a pointer that warning do since
we don't dynamically add new features during compilation/runtime.
The changes to %^H are retained so that caller() can be used from perl
code to check the features enabled at a given caller's scope.
Diffstat (limited to 'cop.h')
-rw-r--r-- | cop.h | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -413,6 +413,12 @@ struct cop { /* compile time state of %^H. See the comment in op.c for how this is used to recreate a hash to return from caller. */ COPHH * cop_hints_hash; + /* for now just a bitmask stored here. + If we get sufficient features this may become a pointer. + How these flags are stored is subject to change without + notice. Use the macros to test for features. + */ + U32 cop_features; }; #ifdef USE_ITHREADS |