Change 18311 by [EMAIL PROTECTED] on 2002/12/17 00:52:05
Subject: [PATCH] Re: [[EMAIL PROTECTED]: enums are not nums]
From: Dave Mitchell <[EMAIL PROTECTED]>
Date: Sat, 14 Dec 2002 19:16:49 +0000
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/embed.fnc#59 edit
... //depot/perl/pad.c#8 edit
... //depot/perl/pad.h#5 edit
... //depot/perl/pod/perlintern.pod#28 edit
... //depot/perl/proto.h#417 edit
Differences ...
==== //depot/perl/embed.fnc#59 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#58~18307~ Mon Dec 16 14:01:14 2002
+++ perl/embed.fnc Mon Dec 16 16:52:05 2002
@@ -1328,7 +1328,7 @@
|I32 stack_max|I32 mark_min|I32 mark_max
#endif
-pd |PADLIST*|pad_new |padnew_flags flags
+pd |PADLIST*|pad_new |int flags
pd |void |pad_undef |CV* cv
pd |PADOFFSET|pad_add_name |char *name\
|HV* typestash|HV* ourstash \
==== //depot/perl/pad.c#8 (text) ====
Index: perl/pad.c
--- perl/pad.c#7~18302~ Sat Dec 14 14:34:25 2002
+++ perl/pad.c Mon Dec 16 16:52:05 2002
@@ -111,7 +111,7 @@
*/
PADLIST *
-Perl_pad_new(pTHX_ padnew_flags flags)
+Perl_pad_new(pTHX_ int flags)
{
AV *padlist, *padname, *pad, *a0;
==== //depot/perl/pad.h#5 (text) ====
Index: perl/pad.h
--- perl/pad.h#4~18142~ Tue Nov 12 14:09:39 2002
+++ perl/pad.h Mon Dec 16 16:52:05 2002
@@ -34,11 +34,9 @@
/* flags for the pad_new() function */
-typedef enum {
- padnew_CLONE = 1, /* this pad is for a cloned CV */
- padnew_SAVE = 2, /* save old globals */
- padnew_SAVESUB = 4 /* also save extra stuff for start of sub */
-} padnew_flags;
+#define padnew_CLONE 1 /* this pad is for a cloned CV */
+#define padnew_SAVE 2 /* save old globals */
+#define padnew_SAVESUB 4 /* also save extra stuff for start of sub */
/* values for the pad_tidy() function */
==== //depot/perl/pod/perlintern.pod#28 (text+w) ====
Index: perl/pod/perlintern.pod
--- perl/pod/perlintern.pod#27~18307~ Mon Dec 16 14:01:14 2002
+++ perl/pod/perlintern.pod Mon Dec 16 16:52:05 2002
@@ -652,7 +652,7 @@
padnew_SAVE save old globals
padnew_SAVESUB also save extra stuff for start of sub
- PADLIST* pad_new(padnew_flags flags)
+ PADLIST* pad_new(int flags)
=for hackers
Found in file pad.c
==== //depot/perl/proto.h#417 (text+w) ====
Index: perl/proto.h
--- perl/proto.h#416~18307~ Mon Dec 16 14:01:14 2002
+++ perl/proto.h Mon Dec 16 16:52:05 2002
@@ -1359,7 +1359,7 @@
STATIC void S_deb_stack_n(pTHX_ SV** stack_base, I32 stack_min, I32 stack_max, I32
mark_min, I32 mark_max);
#endif
-PERL_CALLCONV PADLIST* Perl_pad_new(pTHX_ padnew_flags flags);
+PERL_CALLCONV PADLIST* Perl_pad_new(pTHX_ int flags);
PERL_CALLCONV void Perl_pad_undef(pTHX_ CV* cv);
PERL_CALLCONV PADOFFSET Perl_pad_add_name(pTHX_ char *name, HV* typestash, HV*
ourstash, bool clone);
PERL_CALLCONV PADOFFSET Perl_pad_add_anon(pTHX_ SV* sv, OPCODE op_type);
End of Patch.
