diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-05 05:33:43 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-05 05:33:43 +0000 |
| commit | 7accc089c4644f7a60f6877ea3a436c5f3cc9651 (patch) | |
| tree | 486442465c54bfc5d61770a0ba2dc8d31e434a22 /embed.h | |
| parent | 9ac9d38683a830b1bc1c0e8c4b81a5d3144cbff0 (diff) | |
| download | perl-7accc089c4644f7a60f6877ea3a436c5f3cc9651.tar.gz | |
pack/unpack fixes from Wolfgang Laun:
- fix bug in UNICOS (where SIZE16 != sizeof(short))
- introduce and use new internal pack/unpack API
(packlist, unpackstring)
that does away with the unused arguments in the old API
(pack_cat, unpack_str).
p4raw-id: //depot/perl@19416
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -808,6 +808,7 @@ #define set_numeric_standard Perl_set_numeric_standard #define require_pv Perl_require_pv #define pack_cat Perl_pack_cat +#define packlist Perl_packlist #ifdef PERL_CORE #define pidgone Perl_pidgone #endif @@ -1069,6 +1070,7 @@ #define unlnk Perl_unlnk #endif #define unpack_str Perl_unpack_str +#define unpackstring Perl_unpackstring #define unsharepvn Perl_unsharepvn #ifdef PERL_CORE #define unshare_hek Perl_unshare_hek @@ -3286,6 +3288,7 @@ #define set_numeric_standard() Perl_set_numeric_standard(aTHX) #define require_pv(a) Perl_require_pv(aTHX_ a) #define pack_cat(a,b,c,d,e,f,g) Perl_pack_cat(aTHX_ a,b,c,d,e,f,g) +#define packlist(a,b,c,d,e) Perl_packlist(aTHX_ a,b,c,d,e) #ifdef PERL_CORE #define pidgone(a,b) Perl_pidgone(aTHX_ a,b) #endif @@ -3547,6 +3550,7 @@ #define unlnk(a) Perl_unlnk(aTHX_ a) #endif #define unpack_str(a,b,c,d,e,f,g,h) Perl_unpack_str(aTHX_ a,b,c,d,e,f,g,h) +#define unpackstring(a,b,c,d,e) Perl_unpackstring(aTHX_ a,b,c,d,e) #define unsharepvn(a,b,c) Perl_unsharepvn(aTHX_ a,b,c) #ifdef PERL_CORE #define unshare_hek(a) Perl_unshare_hek(aTHX_ a) |