diff options
author | Nicholas Clark <nick@ccl4.org> | 2010-07-12 13:39:19 +0100 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2010-07-12 13:46:23 +0100 |
commit | 9df83ffded21f5c1d01d1ef847c3447b6553810f (patch) | |
tree | 1991f07e53136227c824cb719a2c14fdd74a4a27 /embed.fnc | |
parent | 6ef2ab89d2567e144b289574a2e087dd7eec7894 (diff) | |
download | perl-9df83ffded21f5c1d01d1ef847c3447b6553810f.tar.gz |
Create S_assert_uft8_cache_coherent() with one copy of the cache panic code.
Replacing 4 copies of this debugging-only routine with 1 reduces source and
object code size.
Diffstat (limited to 'embed.fnc')
-rw-r--r-- | embed.fnc | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -1897,6 +1897,8 @@ s |void |utf8_mg_pos_cache_update|NN SV *const sv|NN MAGIC **const mgp \ |const STRLEN byte|const STRLEN utf8|const STRLEN blen s |STRLEN |sv_pos_b2u_midway|NN const U8 *const s|NN const U8 *const target \ |NN const U8 *end|STRLEN endu +s |void |assert_uft8_cache_coherent|NN const char *const func \ + |STRLEN from_cache|STRLEN real|NN SV *const sv sn |char * |F0convert |NV nv|NN char *const endbuf|NN STRLEN *const len # if defined(PERL_OLD_COPY_ON_WRITE) sM |void |sv_release_COW |NN SV *sv|NN const char *pvx|NN SV *after |