From e36f9e05ca734803d986ff90fb56be1eba8eb1d3 Mon Sep 17 00:00:00 2001 From: nekobit Date: Sat, 15 Oct 2022 21:30:02 +0000 Subject: [PATCH] Memory optimizations FossilOrigin-Name: e62800fb343eb8ea0c8e0f1215c7c055bd8a50eac706d74d56ac934415de656d --- src/global_perl.h | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/global_perl.h b/src/global_perl.h index 5cef801..2a3431e 100644 --- a/src/global_perl.h +++ b/src/global_perl.h @@ -22,11 +22,11 @@ #include #include + /* SV* tmpsv = newSV(0); \ */ + /* sv_usepvn_flags(tmpsv, val, strlen(val), SV_HAS_TRAILING_NUL); \ */ // Note: val MUST be a pointer to a value, and must end with a \0 (hence SvSETMAGIC) -#define hvstores_str(hv, key, val) if (val) { \ - SV* tmpsv = newSV(0); \ - sv_usepvn_flags(tmpsv, val, strlen(val), SvSETMAGIC); \ - hv_stores((hv), key, tmpsv); \ +#define hvstores_str(hv, key, val) if (val) { \ + hv_stores((hv), key, newSVpvn_share(val, strlen(val), 0)); \ } #define hvstores_int(hv, key, val) hv_stores((hv), key, newSViv((val))) #define hvstores_ref(hv, key, val) if (1) { \