This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
thread.h: White space only
authorKarl Williamson <khw@cpan.org>
Thu, 29 Sep 2022 16:17:51 +0000 (10:17 -0600)
committerKarl Williamson <khw@cpan.org>
Fri, 30 Sep 2022 13:03:48 +0000 (07:03 -0600)
thread.h

index fdc4e8d..54d9866 100644 (file)
--- a/thread.h
+++ b/thread.h
@@ -397,12 +397,13 @@ extern PERL_THREAD_LOCAL void *PL_current_context;
 /* We must also call pthread_setspecific() always, as C++ code has to read it
  * with pthreads (the #else side just below) */
 
-#  define PERL_SET_CONTEXT(t)                                           \
-    STMT_START {                                                        \
-        int _eC_;                                                       \
-        if ((_eC_ = pthread_setspecific(PL_thr_key, PL_current_context = (void *)(t)))) \
+#  define PERL_SET_CONTEXT(t)                                               \
+    STMT_START {                                                            \
+        int _eC_;                                                           \
+        if ((_eC_ = pthread_setspecific(PL_thr_key,                         \
+                                        PL_current_context = (void *)(t)))) \
             Perl_croak_nocontext("panic: pthread_setspecific (%d) [%s:%d]", \
-                                 _eC_, __FILE__, __LINE__);             \
+                                 _eC_, __FILE__, __LINE__);                 \
     } STMT_END
 
 #else