This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
annotate S_ithread_count_inc mutex use
authorJarkko Hietaniemi <jhi@iki.fi>
Sat, 14 Nov 2015 14:09:38 +0000 (09:09 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 23 Nov 2015 11:55:12 +0000 (06:55 -0500)
No warnings issued, but a clear case for annotations.

dist/threads/threads.xs

index 10b0d9f..6c337ac 100644 (file)
@@ -327,6 +327,7 @@ S_ithread_free(pTHX_ ithread *thread)
 
 static void
 S_ithread_count_inc(pTHX_ ithread *thread)
+  PERL_TSA_EXCLUDES(thread->mutex)
 {
     MUTEX_LOCK(&thread->mutex);
     thread->count++;