diff options
| author | Nicholas Clark <nick@ccl4.org> | 2013-05-06 14:40:04 +0200 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2013-05-20 21:19:43 +0200 |
| commit | 691a44df41bbec11b634fc7bbf78a6eeb1f768a3 (patch) | |
| tree | c36b99baa0e5faf7139ef0b22efe36f60d1d24ec /embed.h | |
| parent | 66bb80e4324617840aa70c8af410bf76eedcbea1 (diff) | |
| download | perl-691a44df41bbec11b634fc7bbf78a6eeb1f768a3.tar.gz | |
Eliminate the conditionally-compiled fallback functions for htonl etc.
These are now only being used for mixed-endian platforms which do not
provide their own htnol (etc) functions. Given that the fallbacks have been
buggy since they were added in Perl 3.0, it's safe to conclude that no
mixed-endian platforms were ever using these functions.
It's also unclear why these functions were ever marked as 'A', part of the
API. XS code can't call them directly, as it can't rely on them being
compiled. Unsurprisingly, no code on CPAN references them.
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 5 |
1 files changed, 0 insertions, 5 deletions
@@ -774,11 +774,6 @@ #define dump_mstats(a) Perl_dump_mstats(aTHX_ a) #define get_mstats(a,b,c) Perl_get_mstats(aTHX_ a,b,c) #endif -#if defined(MYSWAP) -#define my_htonl(a) Perl_my_htonl(aTHX_ a) -#define my_ntohl(a) Perl_my_ntohl(aTHX_ a) -#define my_swap(a) Perl_my_swap(aTHX_ a) -#endif #if defined(PERL_GLOBAL_STRUCT) #define GetVars() Perl_GetVars(aTHX) #define free_global_struct(a) Perl_free_global_struct(aTHX_ a) |