mirrors/treebird
0
0
Fork 1
Code Issues Pull requests Projects Releases Wiki Activity

Memory optimizations

Browse source 
FossilOrigin-Name: e62800fb343eb8ea0c8e0f1215c7c055bd8a50eac706d74d56ac934415de656d
This commit is contained in:
nekobit 2022-10-15 21:30:02 +00:00
parent 8fdb143303
commit e36f9e05ca
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/global_perl.h
View file

@ -22,11 +22,11 @@
#include <perl.h>
#include <pthread.h>
/* 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) { \