summaryrefslogtreecommitdiff
path: root/warnings.pl
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2009-10-13 13:01:52 +0100
committerNicholas Clark <nick@ccl4.org>2009-10-13 13:01:52 +0100
commit98fe6610b077571e54be1d655e66e1ad657a8910 (patch)
tree532bceb1ec03d62f050fe0aaa10aae2addb9f312 /warnings.pl
parent26c7b074d5d3f0a79fab5f1c4eb28f38e81b88d2 (diff)
downloadperl-98fe6610b077571e54be1d655e66e1ad657a8910.tar.gz
Change S_ckwarn_common() to looping over the packed warning value.
The core never uses WARN3() or WARN4(), and rarely uses WARN2(), so the previous code, effectively an unwrapped loop, wasn't a speed up. Functionally equivalent smaller code fits better into CPU caches.
Diffstat (limited to 'warnings.pl')
-rw-r--r--warnings.pl2
1 files changed, 2 insertions, 0 deletions
diff --git a/warnings.pl b/warnings.pl
index 6bd611b604..dabc97d63a 100644
--- a/warnings.pl
+++ b/warnings.pl
@@ -353,6 +353,8 @@ print $warn <<'EOM';
#define ckWARN3_d(w1,w2,w3) Perl_ckwarn_d(aTHX_ packWARN3(w1,w2,w3))
#define ckWARN4_d(w1,w2,w3,w4) Perl_ckwarn_d(aTHX_ packWARN4(w1,w2,w3,w4))
+#define WARNshift 8
+
#define packWARN(a) (a )
#define packWARN2(a,b) ((a) | ((b)<<8) )
#define packWARN3(a,b,c) ((a) | ((b)<<8) | ((c)<<16) )