add missing infnan context under thread/quadmath builds
authorLukas Mai <l.mai@web.de>
Sat, 21 Feb 2015 10:29:45 +0000 (11:29 +0100)
committerLukas Mai <l.mai@web.de>
Sat, 21 Feb 2015 10:29:45 +0000 (11:29 +0100)
numeric.c

index a6f6018..388f363 100644 (file)
--- a/numeric.c
+++ b/numeric.c
@@ -1381,7 +1381,7 @@ Perl_my_atof2(pTHX_ const char* orig, NV* value)
 #ifdef USE_QUADMATH
     {
         char* endp;
-        if ((endp = S_my_atof_infnan(s, negative, send, value)))
+        if ((endp = S_my_atof_infnan(aTHX_ s, negative, send, value)))
             return endp;
         result[2] = strtoflt128(s, &endp);
         if (s != endp) {