make it non-void

FGasper · Mar 2, 2022 · 0fa1cd5 · 0fa1cd5
1 parent ef60b92
commit 0fa1cd5
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/XS.xs b/XS.xs
@@ -1221,13 +1221,17 @@ _TOPMARK()
     OUTPUT:
         RETVAL
 
-void
+I32
 _SHOW_STACK(const char* msg=__func__)
     PREINIT:
         PerlIO_printf(Perl_debug_log, "%s PREINIT TOPMARK=%d\n", __func__, (int) TOPMARK);
     CODE:
         PerlIO_printf(Perl_debug_log, "CODE TOPMARK=%d\n", (int) TOPMARK);
         //MY_debug_showstack(msg);
+        RETVAL = newSViv(0);
+
+    OUTPUT:
+        RETVAL
 
 # In some old thread-multi perls sv_dup_inc() wasn’t defined.