diff options
| -rw-r--r-- | generator/perl.ml | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/generator/perl.ml b/generator/perl.ml index f1a790f7..d98028a1 100644 --- a/generator/perl.ml +++ b/generator/perl.ml @@ -37,16 +37,14 @@ let rec generate_perl_xs () = pr "\ #include <config.h> +#include <inttypes.h> + #include \"EXTERN.h\" #include \"perl.h\" #include \"XSUB.h\" #include <guestfs.h> -#ifndef PRId64 -#define PRId64 \"lld\" -#endif - static SV * my_newSVll(long long val) { #ifdef USE_64_BIT_ALL @@ -59,10 +57,6 @@ my_newSVll(long long val) { #endif } -#ifndef PRIu64 -#define PRIu64 \"llu\" -#endif - static SV * my_newSVull(unsigned long long val) { #ifdef USE_64_BIT_ALL |