Change 33679 by [EMAIL PROTECTED] on 2008/04/14 15:55:28
Subject: [PATCH] Re: Solaris build warnings
From: Andy Dougherty <[EMAIL PROTECTED]>
Date: Wed, 26 Mar 2008 13:42:06 -0400 (EDT)
Message-ID: <[EMAIL PROTECTED]>
Rename the "optype" typedef to "Optype"
Affected files ...
... //depot/perl/op.c#999 edit
... //depot/perl/op.h#210 edit
Differences ...
==== //depot/perl/op.c#999 (text) ====
Index: perl/op.c
--- perl/op.c#998~33657~ 2008-04-07 07:45:33.000000000 -0700
+++ perl/op.c 2008-04-14 08:55:28.000000000 -0700
@@ -548,7 +548,7 @@
switch (o->op_type) {
case OP_NULL: /* Was holding old type, if any. */
if (PL_madskills && o->op_targ != OP_NULL) {
- o->op_type = (optype)o->op_targ;
+ o->op_type = (Optype)o->op_targ;
o->op_targ = 0;
goto retry;
}
@@ -5057,7 +5057,7 @@
PERL_ARGS_ASSERT_NEWGIVWHENOP;
NewOp(1101, enterop, 1, LOGOP);
- enterop->op_type = (optype)enter_opcode;
+ enterop->op_type = (Optype)enter_opcode;
enterop->op_ppaddr = PL_ppaddr[enter_opcode];
enterop->op_flags = (U8) OPf_KIDS;
enterop->op_targ = ((entertarg == NOT_IN_PAD) ? 0 : entertarg);
==== //depot/perl/op.h#210 (text) ====
Index: perl/op.h
--- perl/op.h#209~33364~ 2008-02-25 00:02:50.000000000 -0800
+++ perl/op.h 2008-04-14 08:55:28.000000000 -0700
@@ -45,7 +45,7 @@
# define MADPROP_IN_BASEOP
#endif
-typedef PERL_BITFIELD16 optype;
+typedef PERL_BITFIELD16 Optype;
#ifdef BASEOP_DEFINITION
#define BASEOP BASEOP_DEFINITION
End of Patch.
