fix threaded NO_TAINT_SUPPORT build errors

NO_TAINT_SUPPORT incorrectly called Perl_croak without aTHX_.

To fix this, change Perl_croak to Perl_croak_nocontext, since it is
slightly more efficient in instruction size than Perl_croak.

diff --git a/perl.c b/perl.c
index 80b3bdd..0f8d4f7 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -1883,7 +1883,7 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
 #if SILENT_NO_TAINT_SUPPORT
             /* silently ignore */
 #elif NO_TAINT_SUPPORT
-            Perl_croak("This perl was compiled without taint support. "
+            Perl_croak_nocontext("This perl was compiled without taint support. "
                        "Cowardly refusing to run with -t or -T flags");
 #else
            CHECK_MALLOC_TOO_LATE_FOR('t');
@@ -1898,7 +1898,7 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
 #if SILENT_NO_TAINT_SUPPORT
             /* silently ignore */
 #elif NO_TAINT_SUPPORT
-            Perl_croak("This perl was compiled without taint support. "
+            Perl_croak_nocontext("This perl was compiled without taint support. "
                        "Cowardly refusing to run with -t or -T flags");
 #else
            CHECK_MALLOC_TOO_LATE_FOR('T');
@@ -2015,7 +2015,7 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
 #if SILENT_NO_TAINT_SUPPORT
             /* silently ignore */
 #elif NO_TAINT_SUPPORT
-            Perl_croak("This perl was compiled without taint support. "
+            Perl_croak_nocontext("This perl was compiled without taint support. "
                        "Cowardly refusing to run with -t or -T flags");
 #else
            CHECK_MALLOC_TOO_LATE_FOR('T');
@@ -2054,7 +2054,7 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
 #if SILENT_NO_TAINT_SUPPORT
             /* silently ignore */
 #elif NO_TAINT_SUPPORT
-                    Perl_croak("This perl was compiled without taint support. "
+                    Perl_croak_nocontext("This perl was compiled without taint support. "
                                "Cowardly refusing to run with -t or -T flags");
 #else
                    if( !TAINTING_get) {
@@ -3383,7 +3383,7 @@ Perl_moreswitches(pTHX_ const char *s)
 #if SILENT_NO_TAINT_SUPPORT
             /* silently ignore */
 #elif NO_TAINT_SUPPORT
-        Perl_croak("This perl was compiled without taint support. "
+        Perl_croak_nocontext("This perl was compiled without taint support. "
                    "Cowardly refusing to run with -t or -T flags");
 #else
         if (!TAINTING_get)