X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl.h;h=d9dcbba26fd4fb45041ed5f7cd53bd40ab3480f6;hb=e4783991709775389a3fc70c841522b0165cd076;hp=f601e1479de4ddfb646583acde5e5f53609efba6;hpb=dbfb3851273f540a52f51be6c8b73f6f5c290d8b;p=p5sagit%2Fp5-mst-13.2.git diff --git a/perl.h b/perl.h index f601e14..d9dcbba 100644 --- a/perl.h +++ b/perl.h @@ -3076,10 +3076,10 @@ typedef struct am_table_short AMTS; #endif /* !USE_LOCALE_NUMERIC */ #if !defined(Atol) && defined(IV_IS_QUAD) && QUADKIND == QUAD_IS_LONG_LONG -# if !defined(Atol) && defined(HAS_STRTOLL) # ifdef __hpux -# define strtoll __strtoll /* secret handshake */ +# define strtoll __strtoll /* secret handshake */ # endif +# if !defined(Atol) && defined(HAS_STRTOLL) # define Atol(s) strtoll(s, (char**)NULL, 10) # endif # if !defined(Atol) && defined(HAS_ATOLL) @@ -3093,7 +3093,7 @@ typedef struct am_table_short AMTS; #if !defined(Strtoul) && defined(UV_IS_QUAD) && QUADKIND == QUAD_IS_LONG_LONG # ifdef __hpux -# define strtoull __strtoull /* secret handshake */ +# define strtoull __strtoull /* secret handshake */ # endif # if !defined(Strtoul) && defined(HAS_STRTOULL) # define Strtoul strtoull