add bvalflag reporting to pdlutil and pdump_trans - #517

PDLPorters · Jan 8, 2025 · ce237c4 · ce237c4
1 parent 6b3e780
commit ce237c4
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 0 deletions.
diff --git a/lib/PDL/Core.pm b/lib/PDL/Core.pm
@@ -2230,6 +2230,7 @@ sub pdump_trans {
   my $vtable = $trans->vtable;
   my @lines = (
     "State: ${\join '|', $trans->flags}",
+    "bvalflag: ${\$trans->bvalflag}",
     "vtable flags: ${\join '|', $vtable->flags}",
   );
   my @ins = $trans->parents;

diff --git a/lib/PDL/Core.xs b/lib/PDL/Core.xs
@@ -610,6 +610,14 @@ address(self)
   OUTPUT:
     RETVAL
 
+IV
+bvalflag(x)
+  pdl_trans *x
+  CODE:
+    RETVAL = x->bvalflag;
+  OUTPUT:
+    RETVAL
+
 void
 flags(x)
   pdl_trans *x

diff --git a/lib/PDL/Core/pdlutil.c b/lib/PDL/Core/pdlutil.c
@@ -383,6 +383,7 @@ void pdl_dump_trans_fixspace (pdl_trans *it, int nspac) {
 	SET_SPACE(spaces, nspac);
 	printf("%sDUMPTRANS %p (%s)\n%s   Flags: ",spaces,it,it->vtable->name,spaces);
 	pdl_dump_flags_fixspace(it->flags,nspac+3, PDL_FLAGS_TRANS);
+	printf("%s   bvalflag: %d\n",spaces,it->bvalflag);
 	printf("%s   vtable flags ",spaces);
 	pdl_dump_flags_fixspace(it->vtable->flags,nspac+3,PDL_FLAGS_VTABLE);
 	if(it->flags & PDL_ITRANS_ISAFFINE) {