This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
S_regcurly needs thread context.
authorCraig A. Berry <craigberry@mac.com>
Sun, 30 Jan 2011 04:29:53 +0000 (22:29 -0600)
committerCraig A. Berry <craigberry@mac.com>
Sun, 30 Jan 2011 04:29:53 +0000 (22:29 -0600)
Actually I can't see any reason it actually *needs* thread context,
but 881ffab65cdbee2f146ada660e5593bad2e71472 added thread context
to the prototype without adding it to the function definition, thus
breaking builds with -Dusethreads.

dquote_static.c

index 5321221..4cc276f 100644 (file)
@@ -16,7 +16,7 @@
     Pulled from regcomp.c.
  */
 PERL_STATIC_INLINE I32
     Pulled from regcomp.c.
  */
 PERL_STATIC_INLINE I32
-S_regcurly(register const char *s)
+S_regcurly(pTHX_ register const char *s)
 {
     PERL_ARGS_ASSERT_REGCURLY;
 
 {
     PERL_ARGS_ASSERT_REGCURLY;