proxmox-mirrors/perlmod
1
0
Fork 0
mirror of https://git.proxmox.com/git/perlmod synced 2025-10-04 15:07:15 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

macro: ensure bootstrap functions happen only once

Browse Source 
Signed-off-by: Wolfgang Bumiller <w.bumiller@proxmox.com>
This commit is contained in:
Wolfgang Bumiller 2023-07-25 13:31:34 +02:00
parent 7b22916567
commit b94cbb8f16
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
perlmod-macro/src/package.rs
View File

@ -104,8 +104,7 @@ impl Package {
});
}
let bootstrap_name =
format!("boot_{}", self.attrs.package_name).replace("::", "__");
let bootstrap_name = format!("boot_{}", self.attrs.package_name).replace("::", "__");
let bootstrap_ident = Ident::new(&bootstrap_name, Span::call_site());
quote! {
@ -113,14 +112,17 @@ impl Package {
pub extern "C" fn #bootstrap_ident(
_cv: &::perlmod::ffi::CV,
) {
unsafe {
use ::perlmod::ffi::RSPL_newXS_flags;
static ONCE: ::std::sync::Once = ::std::sync::Once::new();
ONCE.call_once(|| {
unsafe {
use ::perlmod::ffi::RSPL_newXS_flags;
let argmark = ::perlmod::ffi::pop_arg_mark();
argmark.set_stack();
let argmark = ::perlmod::ffi::pop_arg_mark();
argmark.set_stack();
#newxs
}
#newxs
}
});
}
}
}