Change 11760 by sky@sky-borderline on 2001/08/27 18:21:27
Regen headers
Affected files ...
... //depot/perl/embed.h#280 edit
... //depot/perl/embedvar.h#120 edit
... //depot/perl/objXSUB.h#179 edit
... //depot/perl/opcode.h#74 edit
... //depot/perl/opnames.h#9 edit
... //depot/perl/perlapi.c#121 edit
... //depot/perl/perlapi.h#42 edit
... //depot/perl/proto.h#325 edit
Differences ...
==== //depot/perl/embed.h#280 (text+w) ====
Index: perl/embed.h
--- perl/embed.h.~1~ Mon Aug 27 12:30:05 2001
+++ perl/embed.h Mon Aug 27 12:30:05 2001
@@ -873,6 +873,18 @@
#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_CUSTOM_OPS)
+#define custom_op_name Perl_custom_op_name
+#define custom_op_desc Perl_custom_op_desc
+#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_OBJECT)
#else
#endif
@@ -2388,6 +2400,18 @@
#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_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_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_OBJECT)
#else
#endif
@@ -4697,6 +4721,24 @@
#define Perl_sys_intern_init CPerlObj::Perl_sys_intern_init
#define sys_intern_init Perl_sys_intern_init
#endif
+#if defined(PERL_CUSTOM_OPS)
+#define Perl_custom_op_name CPerlObj::Perl_custom_op_name
+#define custom_op_name Perl_custom_op_name
+#define Perl_custom_op_desc CPerlObj::Perl_custom_op_desc
+#define custom_op_desc Perl_custom_op_desc
+#endif
+#if defined(PERL_CUSTOM_OPS)
+#define Perl_custom_op_name CPerlObj::Perl_custom_op_name
+#define custom_op_name Perl_custom_op_name
+#define Perl_custom_op_desc CPerlObj::Perl_custom_op_desc
+#define custom_op_desc Perl_custom_op_desc
+#endif
+#if defined(PERL_CUSTOM_OPS)
+#define Perl_custom_op_name CPerlObj::Perl_custom_op_name
+#define custom_op_name Perl_custom_op_name
+#define Perl_custom_op_desc CPerlObj::Perl_custom_op_desc
+#define custom_op_desc Perl_custom_op_desc
+#endif
#if defined(PERL_OBJECT)
#else
#endif
==== //depot/perl/embedvar.h#120 (text+w) ====
Index: perl/embedvar.h
--- perl/embedvar.h.~1~ Mon Aug 27 12:30:05 2001
+++ perl/embedvar.h Mon Aug 27 12:30:05 2001
@@ -223,6 +223,8 @@
#define PL_curcopdb (PERL_GET_INTERP->Icurcopdb)
#define PL_curstname (PERL_GET_INTERP->Icurstname)
#define PL_curthr (PERL_GET_INTERP->Icurthr)
+#define PL_custom_op_descs (PERL_GET_INTERP->Icustom_op_descs)
+#define PL_custom_op_names (PERL_GET_INTERP->Icustom_op_names)
#define PL_dbargs (PERL_GET_INTERP->Idbargs)
#define PL_debstash (PERL_GET_INTERP->Idebstash)
#define PL_debug (PERL_GET_INTERP->Idebug)
@@ -509,6 +511,8 @@
#define PL_curcopdb (vTHX->Icurcopdb)
#define PL_curstname (vTHX->Icurstname)
#define PL_curthr (vTHX->Icurthr)
+#define PL_custom_op_descs (vTHX->Icustom_op_descs)
+#define PL_custom_op_names (vTHX->Icustom_op_names)
#define PL_dbargs (vTHX->Idbargs)
#define PL_debstash (vTHX->Idebstash)
#define PL_debug (vTHX->Idebug)
@@ -934,6 +938,8 @@
#define PL_curcopdb (aTHXo->interp.Icurcopdb)
#define PL_curstname (aTHXo->interp.Icurstname)
#define PL_curthr (aTHXo->interp.Icurthr)
+#define PL_custom_op_descs (aTHXo->interp.Icustom_op_descs)
+#define PL_custom_op_names (aTHXo->interp.Icustom_op_names)
#define PL_dbargs (aTHXo->interp.Idbargs)
#define PL_debstash (aTHXo->interp.Idebstash)
#define PL_debug (aTHXo->interp.Idebug)
@@ -1221,6 +1227,8 @@
#define PL_Icurcopdb PL_curcopdb
#define PL_Icurstname PL_curstname
#define PL_Icurthr PL_curthr
+#define PL_Icustom_op_descs PL_custom_op_descs
+#define PL_Icustom_op_names PL_custom_op_names
#define PL_Idbargs PL_dbargs
#define PL_Idebstash PL_debstash
#define PL_Idebug PL_debug
==== //depot/perl/objXSUB.h#179 (text+w) ====
Index: perl/objXSUB.h
--- perl/objXSUB.h.~1~ Mon Aug 27 12:30:05 2001
+++ perl/objXSUB.h Mon Aug 27 12:30:05 2001
@@ -2339,6 +2339,36 @@
#undef sys_intern_init
#define sys_intern_init Perl_sys_intern_init
#endif
+#if defined(PERL_CUSTOM_OPS)
+#undef Perl_custom_op_name
+#define Perl_custom_op_name pPerl->Perl_custom_op_name
+#undef custom_op_name
+#define custom_op_name Perl_custom_op_name
+#undef Perl_custom_op_desc
+#define Perl_custom_op_desc pPerl->Perl_custom_op_desc
+#undef custom_op_desc
+#define custom_op_desc Perl_custom_op_desc
+#endif
+#if defined(PERL_CUSTOM_OPS)
+#undef Perl_custom_op_name
+#define Perl_custom_op_name pPerl->Perl_custom_op_name
+#undef custom_op_name
+#define custom_op_name Perl_custom_op_name
+#undef Perl_custom_op_desc
+#define Perl_custom_op_desc pPerl->Perl_custom_op_desc
+#undef custom_op_desc
+#define custom_op_desc Perl_custom_op_desc
+#endif
+#if defined(PERL_CUSTOM_OPS)
+#undef Perl_custom_op_name
+#define Perl_custom_op_name pPerl->Perl_custom_op_name
+#undef custom_op_name
+#define custom_op_name Perl_custom_op_name
+#undef Perl_custom_op_desc
+#define Perl_custom_op_desc pPerl->Perl_custom_op_desc
+#undef custom_op_desc
+#define custom_op_desc Perl_custom_op_desc
+#endif
#if defined(PERL_OBJECT)
#else
#endif
==== //depot/perl/opcode.h#74 (text+w) ====
Index: perl/opcode.h
--- perl/opcode.h.~1~ Mon Aug 27 12:30:05 2001
+++ perl/opcode.h Mon Aug 27 12:30:05 2001
@@ -11,6 +11,16 @@
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[];
#else
@@ -366,6 +376,7 @@
"threadsv",
"setstate",
"method_named",
+ "custom",
};
#endif
@@ -724,6 +735,7 @@
"per-thread value",
"set statement info",
"method with known name",
+ "unknown custom operator",
};
#endif
@@ -1445,6 +1457,7 @@
MEMBER_TO_FPTR(Perl_ck_null), /* threadsv */
MEMBER_TO_FPTR(Perl_ck_null), /* setstate */
MEMBER_TO_FPTR(Perl_ck_null), /* method_named */
+ MEMBER_TO_FPTR(Perl_ck_null), /* custom */
};
#endif
@@ -1803,6 +1816,7 @@
0x00000044, /* threadsv */
0x00001404, /* setstate */
0x00000c40, /* method_named */
+ 0x00000000, /* custom */
};
#endif
==== //depot/perl/opnames.h#9 (text) ====
Index: perl/opnames.h
--- perl/opnames.h.~1~ Mon Aug 27 12:30:05 2001
+++ perl/opnames.h Mon Aug 27 12:30:05 2001
@@ -355,10 +355,11 @@
OP_THREADSV, /* 348 */
OP_SETSTATE, /* 349 */
OP_METHOD_NAMED,/* 350 */
+ OP_CUSTOM, /* 351 */
OP_max
} opcode;
-#define MAXO 351
+#define MAXO 352
#define OP_phoney_INPUT_ONLY -1
#define OP_phoney_OUTPUT_ONLY -2
==== //depot/perl/perlapi.c#121 (text+w) ====
Index: perl/perlapi.c
--- perl/perlapi.c.~1~ Mon Aug 27 12:30:05 2001
+++ perl/perlapi.c Mon Aug 27 12:30:05 2001
@@ -4213,6 +4213,54 @@
((CPerlObj*)pPerl)->Perl_sys_intern_init();
}
#endif
+#if defined(PERL_CUSTOM_OPS)
+
+#undef Perl_custom_op_name
+char *
+Perl_custom_op_name(pTHXo_ OP* op)
+{
+ return ((CPerlObj*)pPerl)->Perl_custom_op_name(op);
+}
+
+#undef Perl_custom_op_desc
+char *
+Perl_custom_op_desc(pTHXo_ OP* op)
+{
+ return ((CPerlObj*)pPerl)->Perl_custom_op_desc(op);
+}
+#endif
+#if defined(PERL_CUSTOM_OPS)
+
+#undef Perl_custom_op_name
+char *
+Perl_custom_op_name(pTHXo_ OP* op)
+{
+ return ((CPerlObj*)pPerl)->Perl_custom_op_name(op);
+}
+
+#undef Perl_custom_op_desc
+char *
+Perl_custom_op_desc(pTHXo_ OP* op)
+{
+ return ((CPerlObj*)pPerl)->Perl_custom_op_desc(op);
+}
+#endif
+#if defined(PERL_CUSTOM_OPS)
+
+#undef Perl_custom_op_name
+char *
+Perl_custom_op_name(pTHXo_ OP* op)
+{
+ return ((CPerlObj*)pPerl)->Perl_custom_op_name(op);
+}
+
+#undef Perl_custom_op_desc
+char *
+Perl_custom_op_desc(pTHXo_ OP* op)
+{
+ return ((CPerlObj*)pPerl)->Perl_custom_op_desc(op);
+}
+#endif
#if defined(PERL_OBJECT)
#else
#endif
==== //depot/perl/perlapi.h#42 (text+w) ====
Index: perl/perlapi.h
--- perl/perlapi.h.~1~ Mon Aug 27 12:30:05 2001
+++ perl/perlapi.h Mon Aug 27 12:30:05 2001
@@ -180,6 +180,10 @@
#define PL_curstname (*Perl_Icurstname_ptr(aTHXo))
#undef PL_curthr
#define PL_curthr (*Perl_Icurthr_ptr(aTHXo))
+#undef PL_custom_op_descs
+#define PL_custom_op_descs (*Perl_Icustom_op_descs_ptr(aTHXo))
+#undef PL_custom_op_names
+#define PL_custom_op_names (*Perl_Icustom_op_names_ptr(aTHXo))
#undef PL_dbargs
#define PL_dbargs (*Perl_Idbargs_ptr(aTHXo))
#undef PL_debstash
==== //depot/perl/proto.h#325 (text+w) ====
Index: perl/proto.h
--- perl/proto.h.~1~ Mon Aug 27 12:30:05 2001
+++ perl/proto.h Mon Aug 27 12:30:05 2001
@@ -984,6 +984,18 @@
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
+#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
+#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
#if defined(PERL_OBJECT)
protected:
End of Patch.
