From dbfb3851273f540a52f51be6c8b73f6f5c290d8b Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Sat, 4 Mar 2000 05:31:19 +0000 Subject: [PATCH] In HP-UX there is a secret handshake to get strtoll and strtoull. p4raw-id: //depot/cfgperl@5508 --- perl.h | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/perl.h b/perl.h index aeaaa45..f601e14 100644 --- a/perl.h +++ b/perl.h @@ -3077,6 +3077,9 @@ typedef struct am_table_short AMTS; #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 */ +# endif # define Atol(s) strtoll(s, (char**)NULL, 10) # endif # if !defined(Atol) && defined(HAS_ATOLL) @@ -3089,6 +3092,9 @@ typedef struct am_table_short AMTS; #endif #if !defined(Strtoul) && defined(UV_IS_QUAD) && QUADKIND == QUAD_IS_LONG_LONG +# ifdef __hpux +# define strtoull __strtoull /* secret handshake */ +# endif # if !defined(Strtoul) && defined(HAS_STRTOULL) # define Strtoul strtoull # endif -- 2.7.4