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.