Change 12009 by jhi@alpha on 2001/09/13 12:01:56
Regen headers.
Affected files ...
... //depot/perl/embed.h#286 edit
... //depot/perl/opcode.h#75 edit
... //depot/perl/pod/perlapi.pod#93 edit
... //depot/perl/proto.h#331 edit
Differences ...
==== //depot/perl/embed.h#286 (text+w) ====
Index: perl/embed.h
--- perl/embed.h.~1~ Thu Sep 13 06:15:05 2001
+++ perl/embed.h Thu Sep 13 06:15:05 2001
@@ -871,10 +871,8 @@
#define sys_intern_clear Perl_sys_intern_clear
#define sys_intern_init Perl_sys_intern_init
#endif
-#if defined(PERL_CUSTOM_OPS)
#define custom_op_name Perl_custom_op_name
#define custom_op_desc Perl_custom_op_desc
-#endif
#if defined(PERL_IN_AV_C) || defined(PERL_DECL_PROT)
#define avhv_index_sv S_avhv_index_sv
#define avhv_index S_avhv_index
@@ -2384,10 +2382,8 @@
#define sys_intern_clear() Perl_sys_intern_clear(aTHX)
#define sys_intern_init() Perl_sys_intern_init(aTHX)
#endif
-#if defined(PERL_CUSTOM_OPS)
#define custom_op_name(a) Perl_custom_op_name(aTHX_ a)
#define custom_op_desc(a) Perl_custom_op_desc(aTHX_ a)
-#endif
#if defined(PERL_IN_AV_C) || defined(PERL_DECL_PROT)
#define avhv_index_sv(a) S_avhv_index_sv(aTHX_ a)
#define avhv_index(a,b,c) S_avhv_index(aTHX_ a,b,c)
==== //depot/perl/opcode.h#75 (text+w) ====
Index: perl/opcode.h
--- perl/opcode.h.~1~ Thu Sep 13 06:15:05 2001
+++ perl/opcode.h Thu Sep 13 06:15:05 2001
@@ -11,15 +11,11 @@
START_EXTERN_C
-#ifdef PERL_CUSTOM_OPS
+
#define OP_NAME(o) (o->op_type == OP_CUSTOM ? custom_op_name(o) : \
PL_op_name[o->op_type])
#define OP_DESC(o) (o->op_type == OP_CUSTOM ? custom_op_desc(o) : \
PL_op_desc[o->op_type])
-#else
-#define OP_NAME(o) PL_op_name[o->op_type]
-#define OP_DESC(o) PL_op_desc[o->op_type]
-#endif
#ifndef DOINIT
EXT char *PL_op_name[];
==== //depot/perl/pod/perlapi.pod#93 (text+w) ====
Index: perl/pod/perlapi.pod
--- perl/pod/perlapi.pod.~1~ Thu Sep 13 06:15:05 2001
+++ perl/pod/perlapi.pod Thu Sep 13 06:15:05 2001
@@ -575,8 +575,9 @@
and writes the value to I<*result> (or the value is discarded if I<result>
is NULL).
-The hex number may optinally be prefixed with "0b" or "b". If
-C<PERL_SCAN_ALLOW_UNDERSCORES> is set in I<*flags> on entry then the binary
+The hex number may optinally be prefixed with "0b" or "b" unless
+C<PERL_SCAN_DISALLOW_PREFIX> is set in I<*flags> on entry. If
+C<PERL_SCAN_ALLOW_UNDERSCORES> is set in I<*flags> then the binary
number may use '_' characters to separate digits.
UV grok_bin(char* start, STRLEN* len, I32* flags, NV *result)
@@ -600,8 +601,9 @@
and writes the value to I<*result> (or the value is discarded if I<result>
is NULL).
-The hex number may optinally be prefixed with "0x" or "x". If
-C<PERL_SCAN_ALLOW_UNDERSCORES> is set in I<*flags> on entry then the hex
+The hex number may optinally be prefixed with "0x" or "x" unless
+C<PERL_SCAN_DISALLOW_PREFIX> is set in I<*flags> on entry. If
+C<PERL_SCAN_ALLOW_UNDERSCORES> is set in I<*flags> then the hex
number may use '_' characters to separate digits.
UV grok_hex(char* start, STRLEN* len, I32* flags, NV *result)
==== //depot/perl/proto.h#331 (text+w) ====
Index: perl/proto.h
--- perl/proto.h.~1~ Thu Sep 13 06:15:05 2001
+++ perl/proto.h Thu Sep 13 06:15:05 2001
@@ -963,10 +963,10 @@
PERL_CALLCONV void Perl_sys_intern_clear(pTHX);
PERL_CALLCONV void Perl_sys_intern_init(pTHX);
#endif
-#if defined(PERL_CUSTOM_OPS)
+
PERL_CALLCONV char * Perl_custom_op_name(pTHX_ OP* op);
PERL_CALLCONV char * Perl_custom_op_desc(pTHX_ OP* op);
-#endif
+
END_EXTERN_C
End of Patch.
