diff options
| author | LAUN Wolfgang <wolfgang.laun@alcatel.at> | 2003-03-17 14:55:37 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-03-17 17:16:44 +0000 |
| commit | 497043642ba2050cd87b28b50f6a01a0f50d0e90 (patch) | |
| tree | 6e6216b18b1dc8976aebbf1154176b1d094accf7 /embed.h | |
| parent | 1ba7855cf16acea00cbf0cf8bbc7fbe37b8ac919 (diff) | |
| download | perl-497043642ba2050cd87b28b50f6a01a0f50d0e90.tar.gz | |
pack changes and related fixes
Message-ID: <75A46BF1A9D8D311863A00508B6259A405F17EB8@ATTMSX4>
p4raw-id: //depot/perl@19010
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 38 |
1 files changed, 25 insertions, 13 deletions
@@ -1469,28 +1469,34 @@ #endif #if defined(PERL_IN_PP_PACK_C) || defined(PERL_DECL_PROT) #ifdef PERL_CORE -#define doencodes S_doencodes +#define unpack_rec S_unpack_rec +#endif +#ifdef PERL_CORE +#define pack_rec S_pack_rec #endif #ifdef PERL_CORE #define mul128 S_mul128 #endif #ifdef PERL_CORE -#define is_an_int S_is_an_int +#define measure_struct S_measure_struct #endif #ifdef PERL_CORE -#define div128 S_div128 +#define group_end S_group_end +#endif +#ifdef PERL_CORE +#define get_num S_get_num #endif #ifdef PERL_CORE #define next_symbol S_next_symbol #endif #ifdef PERL_CORE -#define find_count S_find_count +#define doencodes S_doencodes #endif #ifdef PERL_CORE -#define group_end S_group_end +#define is_an_int S_is_an_int #endif #ifdef PERL_CORE -#define measure_struct S_measure_struct +#define div128 S_div128 #endif #endif #if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT) @@ -3927,28 +3933,34 @@ #endif #if defined(PERL_IN_PP_PACK_C) || defined(PERL_DECL_PROT) #ifdef PERL_CORE -#define doencodes(a,b,c) S_doencodes(aTHX_ a,b,c) +#define unpack_rec(a,b,c,d,e) S_unpack_rec(aTHX_ a,b,c,d,e) +#endif +#ifdef PERL_CORE +#define pack_rec(a,b,c,d) S_pack_rec(aTHX_ a,b,c,d) #endif #ifdef PERL_CORE #define mul128(a,b) S_mul128(aTHX_ a,b) #endif #ifdef PERL_CORE -#define is_an_int(a,b) S_is_an_int(aTHX_ a,b) +#define measure_struct(a) S_measure_struct(aTHX_ a) #endif #ifdef PERL_CORE -#define div128(a,b) S_div128(aTHX_ a,b) +#define group_end(a,b,c) S_group_end(aTHX_ a,b,c) #endif #ifdef PERL_CORE -#define next_symbol(a,b) S_next_symbol(aTHX_ a,b) +#define get_num(a,b) S_get_num(aTHX_ a,b) #endif #ifdef PERL_CORE -#define find_count(a,b,c) S_find_count(aTHX_ a,b,c) +#define next_symbol(a) S_next_symbol(aTHX_ a) #endif #ifdef PERL_CORE -#define group_end(a,b,c) S_group_end(aTHX_ a,b,c) +#define doencodes(a,b,c) S_doencodes(aTHX_ a,b,c) +#endif +#ifdef PERL_CORE +#define is_an_int(a,b) S_is_an_int(aTHX_ a,b) #endif #ifdef PERL_CORE -#define measure_struct(a,b) S_measure_struct(aTHX_ a,b) +#define div128(a,b) S_div128(aTHX_ a,b) #endif #endif #if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT) |