diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-12-15 19:17:06 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-12-15 19:17:06 +0000 |
| commit | 28e5dec85047e189010079efa89eed07bc9eddc8 (patch) | |
| tree | dd941df355c40cba395e514551ea847e8d07edfd /embed.h | |
| parent | c11ecd62a73b5b39df29fd460e1c4451c6e0e8af (diff) | |
| download | perl-28e5dec85047e189010079efa89eed07bc9eddc8.tar.gz | |
Return of the IVUV-preservation, now seems to be happy even
in Digital UNIX (the broken strtoul brokenness detection
seems to have been the fly in the ointment).
p4raw-id: //depot/perl@8138
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 14 |
1 files changed, 14 insertions, 0 deletions
@@ -1088,6 +1088,10 @@ # if defined(DEBUGGING) #define del_sv S_del_sv # endif +# if !defined(NV_PRESERVES_UV) +#define sv_2inuv_non_preserve S_sv_2inuv_non_preserve +#define sv_2iuv_non_preserve S_sv_2iuv_non_preserve +# endif #endif #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT) #define check_uni S_check_uni @@ -2547,6 +2551,10 @@ # if defined(DEBUGGING) #define del_sv(a) S_del_sv(aTHX_ a) # endif +# if !defined(NV_PRESERVES_UV) +#define sv_2inuv_non_preserve(a,b) S_sv_2inuv_non_preserve(aTHX_ a,b) +#define sv_2iuv_non_preserve(a,b) S_sv_2iuv_non_preserve(aTHX_ a,b) +# endif #endif #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT) #define check_uni() S_check_uni(aTHX) @@ -4955,6 +4963,12 @@ #define S_del_sv CPerlObj::S_del_sv #define del_sv S_del_sv # endif +# if !defined(NV_PRESERVES_UV) +#define S_sv_2inuv_non_preserve CPerlObj::S_sv_2inuv_non_preserve +#define sv_2inuv_non_preserve S_sv_2inuv_non_preserve +#define S_sv_2iuv_non_preserve CPerlObj::S_sv_2iuv_non_preserve +#define sv_2iuv_non_preserve S_sv_2iuv_non_preserve +# endif #endif #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT) #define S_check_uni CPerlObj::S_check_uni |