diff options
| author | Paul "LeoNerd" Evans <leonerd@leonerd.org.uk> | 2020-06-27 18:10:47 +0100 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2020-12-09 12:00:56 +1100 |
| commit | 8462890b4373d480bea3ff2c274614e9a78cbdc4 (patch) | |
| tree | cdc6b9140665fcb04be0c3c45a31a929f0d125b0 /sv.c | |
| parent | c07463d862e4832cc6a94200a77a3170ef2dca18 (diff) | |
| download | perl-8462890b4373d480bea3ff2c274614e9a78cbdc4.tar.gz | |
Implement SAVEt_STRLEN_SMALL
Most uses of SAVEt_STRLEN actually store small values; often zero.
Rather than using an entire U64-sized element for these values, it saves
space to use the same "SMALL" mechanism as other numerical values, like
SAVEt_INT_SMALL.
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -14850,6 +14850,7 @@ Perl_ss_dup(pTHX_ PerlInterpreter *proto_perl, CLONE_PARAMS* param) ptr = POPPTR(ss,ix); TOPPTR(nss,ix) = any_dup(ptr, proto_perl); /* FALLTHROUGH */ + case SAVEt_STRLEN_SMALL: case SAVEt_INT_SMALL: case SAVEt_I32_SMALL: case SAVEt_I16: /* I16 reference */ |