debug thread

Perl · Nov 22, 2023 · f9f198f · f9f198f
1 parent 4c2af04
commit f9f198f
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 0 deletions.
diff --git a/perl.h b/perl.h
@@ -4974,6 +4974,23 @@ Gid_t getegid (void);
  * compiled in; they will be executed only for the DEBUG statements whose flags
  * are turned on.
  */
+#if ! defined(DEBUG_PRE_STMTS) && ! defined(PERL_IN_REGEX_ENGINE)
+#ifdef DEBUGGING
+#  if defined(USE_ITHREADS) && ! defined(NO_LOCALE_THREADS)
+#    define DEBUG_PRE_STMTS                                                     \
+     dSAVE_ERRNO; dTHX; PerlIO_printf(Perl_debug_log,"\n%s: %" LINE_Tf ": 0x%p: ",\
+                                      __FILE__, (line_t)__LINE__, aTHX);
+#  else
+#    define DEBUG_PRE_STMTS                                                     \
+     dSAVE_ERRNO; dTHX; PerlIO_printf(Perl_debug_log, "\n%s: %" LINE_Tf ": ",   \
+                                      __FILE__, (line_t)__LINE__);
+#  endif
+#  define DEBUG_POST_STMTS  RESTORE_ERRNO;
+#else
+#  define DEBUG_PRE_STMTS
+#  define DEBUG_POST_STMTS
+#endif
+#endif
 #ifndef DEBUG_PRE_STMTS
 #  define DEBUG_PRE_STMTS
 #endif

diff --git a/t/run/switchDx.t b/t/run/switchDx.t
@@ -4,6 +4,7 @@ BEGIN {
     @INC = '../lib';
     require './test.pl';
     skip_all_if_miniperl();
+    skip_all("because of special debug");
 }
 
 use Config;