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 /proto.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 'proto.h')
| -rw-r--r-- | proto.h | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -623,6 +623,7 @@ PERL_CALLCONV void Perl_set_numeric_radix(pTHX); PERL_CALLCONV void Perl_set_numeric_standard(pTHX); PERL_CALLCONV void Perl_require_pv(pTHX_ const char* pv); PERL_CALLCONV void Perl_pack_cat(pTHX_ SV *cat, char *pat, char *patend, SV **beglist, SV **endlist, SV ***next_in_list, U32 flags); +PERL_CALLCONV void Perl_packlist(pTHX_ SV *cat, char *pat, char *patend, SV **beglist, SV **endlist); PERL_CALLCONV void Perl_pidgone(pTHX_ Pid_t pid, int status); PERL_CALLCONV void Perl_pmflag(pTHX_ U32* pmfl, int ch); PERL_CALLCONV OP* Perl_pmruntime(pTHX_ OP* pm, OP* expr, OP* repl); @@ -834,6 +835,7 @@ PERL_CALLCONV UV Perl_to_utf8_fold(pTHX_ U8 *p, U8* ustrp, STRLEN *lenp); PERL_CALLCONV I32 Perl_unlnk(pTHX_ char* f); #endif PERL_CALLCONV I32 Perl_unpack_str(pTHX_ char *pat, char *patend, char *s, char *strbeg, char *strend, char **new_s, I32 ocnt, U32 flags); +PERL_CALLCONV I32 Perl_unpackstring(pTHX_ char *pat, char *patend, char *s, char *strend, U32 flags); PERL_CALLCONV void Perl_unsharepvn(pTHX_ const char* sv, I32 len, U32 hash); PERL_CALLCONV void Perl_unshare_hek(pTHX_ HEK* hek); PERL_CALLCONV void Perl_utilize(pTHX_ int aver, I32 floor, OP* version, OP* idop, OP* arg); |