From: Jarkko Hietaniemi Date: Tue, 3 Oct 2000 00:30:07 +0000 (+0000) Subject: Regen headers. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=444155da6cc74bc317db82ecaa4272f5cf6d3c9b;p=p5sagit%2Fp5-mst-13.2.git Regen headers. p4raw-id: //depot/perl@7123 --- diff --git a/embed.h b/embed.h index 404acfa..50a9d9e 100644 --- a/embed.h +++ b/embed.h @@ -1177,6 +1177,7 @@ #define ck_spair Perl_ck_spair #define ck_split Perl_ck_split #define ck_subr Perl_ck_subr +#define ck_substr Perl_ck_substr #define ck_svconst Perl_ck_svconst #define ck_trunc Perl_ck_trunc #define pp_aassign Perl_pp_aassign @@ -2628,6 +2629,7 @@ #define ck_spair(a) Perl_ck_spair(aTHX_ a) #define ck_split(a) Perl_ck_split(aTHX_ a) #define ck_subr(a) Perl_ck_subr(aTHX_ a) +#define ck_substr(a) Perl_ck_substr(aTHX_ a) #define ck_svconst(a) Perl_ck_svconst(aTHX_ a) #define ck_trunc(a) Perl_ck_trunc(aTHX_ a) #define pp_aassign() Perl_pp_aassign(aTHX) @@ -5098,6 +5100,8 @@ #define ck_split Perl_ck_split #define Perl_ck_subr CPerlObj::Perl_ck_subr #define ck_subr Perl_ck_subr +#define Perl_ck_substr CPerlObj::Perl_ck_substr +#define ck_substr Perl_ck_substr #define Perl_ck_svconst CPerlObj::Perl_ck_svconst #define ck_svconst Perl_ck_svconst #define Perl_ck_trunc CPerlObj::Perl_ck_trunc diff --git a/opcode.h b/opcode.h index 513343a..8dc8b7a 100644 --- a/opcode.h +++ b/opcode.h @@ -1205,7 +1205,7 @@ EXT OP * (CPERLscope(*PL_check)[]) (pTHX_ OP *op) = { MEMBER_TO_FPTR(Perl_ck_fun), /* oct */ MEMBER_TO_FPTR(Perl_ck_fun), /* abs */ MEMBER_TO_FPTR(Perl_ck_lengthconst), /* length */ - MEMBER_TO_FPTR(Perl_ck_fun), /* substr */ + MEMBER_TO_FPTR(Perl_ck_substr), /* substr */ MEMBER_TO_FPTR(Perl_ck_fun), /* vec */ MEMBER_TO_FPTR(Perl_ck_index), /* index */ MEMBER_TO_FPTR(Perl_ck_index), /* rindex */ diff --git a/pod/perlapi.pod b/pod/perlapi.pod index 78d6fa4..98abdc1 100644 --- a/pod/perlapi.pod +++ b/pod/perlapi.pod @@ -1201,7 +1201,7 @@ Found in file sv.c Creates a new SV. A non-zero C parameter indicates the number of bytes of preallocated string space the SV should have. An extra byte for a tailing NUL is also reserved. (SvPOK is not set for the SV even if string -space is allocated.) The reference count for the new SV is set to 1. +space is allocated.) The reference count for the new SV is set to 1. C is an integer id between 0 and 1299 (used to identify leaks). SV* NEWSV(int id, STRLEN len) @@ -2355,19 +2355,19 @@ false, defined or undefined. Does not handle 'get' magic. =for hackers Found in file sv.h -=item SvTYPE - -Returns the type of the SV. See C. +=item svtype - svtype SvTYPE(SV* sv) +An enum of flags for Perl types. These are found in the file B +in the C enum. Test these flags with the C macro. =for hackers Found in file sv.h -=item svtype +=item SvTYPE -An enum of flags for Perl types. These are found in the file B -in the C enum. Test these flags with the C macro. +Returns the type of the SV. See C. + + svtype SvTYPE(SV* sv) =for hackers Found in file sv.h @@ -3209,13 +3209,28 @@ which is assumed to be in UTF8 encoding; C will be set to the length, in bytes, of that character, and the pointer C will be advanced to the end of the character. +If C does not point to a well-formed UTF8 character, an optional UTF8 +warning is produced. + + U8* s utf8_to_uv(I32 *retlen) + +=for hackers +Found in file utf8.c + +=item utf8_to_uv_chk + +Returns the character value of the first character in the string C +which is assumed to be in UTF8 encoding; C will be set to the +length, in bytes, of that character, and the pointer C will be +advanced to the end of the character. + If C does not point to a well-formed UTF8 character, the behaviour is dependent on the value of C: if this is true, it is assumed that the caller will raise a warning, and this function will set C to C<-1> and return. If C is not true, an optional UTF8 warning is produced. - U8* s utf8_to_uv(I32 *retlen, I32 checking) + U8* s utf8_to_uv_chk(I32 *retlen, I32 checking) =for hackers Found in file utf8.c diff --git a/pp.sym b/pp.sym index 0e6c056..42b29f6 100644 --- a/pp.sym +++ b/pp.sym @@ -40,6 +40,7 @@ Perl_ck_sort Perl_ck_spair Perl_ck_split Perl_ck_subr +Perl_ck_substr Perl_ck_svconst Perl_ck_trunc Perl_pp_null diff --git a/pp_proto.h b/pp_proto.h index 4ce9d74..c249ecb 100644 --- a/pp_proto.h +++ b/pp_proto.h @@ -39,6 +39,7 @@ PERL_CKDEF(Perl_ck_sort) PERL_CKDEF(Perl_ck_spair) PERL_CKDEF(Perl_ck_split) PERL_CKDEF(Perl_ck_subr) +PERL_CKDEF(Perl_ck_substr) PERL_CKDEF(Perl_ck_svconst) PERL_CKDEF(Perl_ck_trunc)