try to stop _ci() from getting random bit-patterns in rest of union v…

…alue
PDLPorters · Mar 27, 2024 · f3c782d · f3c782d
1 parent 9abc2a9
commit f3c782d
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/Basic/Core/pdlperl.h.PL b/Basic/Core/pdlperl.h.PL
@@ -19,7 +19,8 @@ print OUT <<'EOF';
 #define __PDLPERL_H
 
 #define PDL_XS_SCALAR(type, ppsym, val) \
-  PDL_Anyval av = {type, {.ppsym=val}}; \
+  PDL_Anyval av = {PDL_CLD, {.H=0 + 1I}}; /* guarantee all bits set */ \
+  av = (PDL_Anyval){type, {.ppsym=val}}; \
   pdl *b = pdl_scalar(av); \
   if (!b) XSRETURN_UNDEF; \
   SV *b_SV = sv_newmortal(); \