Recent searches
Search options
@barubary @Perl
Hm, I am not using these SV as strings, I am allocating a space of sufficient size to hold a C struct, and lie to perl that it has a terminal zero to avoid copying the buffer to a new area in memory and have its size extended by 1 to hold the terminal '\0'
It is easy to see that memory does not leak by creating an example in which the SV is mortalized. Code in alt text. Upon execution there is a warning about the freeing of the area allocated in C when the program terminates.
![use strict;
use warnings;
use v5.38;
use Inline ( C => 'DATA' );
my $buffer_size = 1024;
my $mortal_sv = mortal_FAFO_alloc($buffer_size);
say "Mortal SV address : ", \$mortal_sv;
__DATA__
__C__
// macro for the creation of a new SV buffer of a given size w/o resizing
#define NEW_SV_BUFFER(sv, buf , buffer_size) \
SV *sv = newSV(0); \
char *buf; \
Newxz(buf,buffer_size,char); \
sv_usepvn_flags(sv, buf, buffer_size,SV_HAS_TRAILING_NUL|SV_SMAGIC)
SV* mortal_FAFO_alloc(size_t buffer_size) {
SV *sv = newSV(0);
char *buf;
Newxz(buf,buffer_size,char);
sv_usepvn_flags(sv, buf, buffer_size,SV_HAS_TRAILING_NUL|SV_SMAGIC);
sv_2mortal(sv);
printf("Mortal SV address : %p in C\n",sv);
return sv;
}](https://static.mstdn.science/media_attachments/files/112/609/472/048/897/940/original/d275876cdaa0fbf6.png "use strict;
use warnings;
use v5.38;
use Inline ( C => 'DATA' );
my $buffer_size = 1024;
my $mortal_sv = mortal_FAFO_alloc($buffer_size);
say \"Mortal SV address : \", \$mortal_sv;
__DATA__
__C__
// macro for the creation of a new SV buffer of a given size w/o resizing
#define NEW_SV_BUFFER(sv, buf , buffer_size) \
SV *sv = newSV(0); \
char *buf; \
Newxz(buf,buffer_size,char); \
sv_usepvn_flags(sv, buf, buffer_size,SV_HAS_TRAILING_NUL|SV_SMAGIC)
SV* mortal_FAFO_alloc(size_t buffer_size) {
SV *sv = newSV(0);
char *buf;
Newxz(buf,buffer_size,char);
sv_usepvn_flags(sv, buf, buffer_size,SV_HAS_TRAILING_NUL|SV_SMAGIC);
sv_2mortal(sv);
printf(\"Mortal SV address : %p in C\n\",sv);
return sv;
}")
