diff options
author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2003-06-11 00:10:47 +0200 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-06-11 05:30:53 +0000 |
commit | c5661c80adf757c3cf464bf5f538fe5082b73584 (patch) | |
tree | 754239b76e77e56432158413eb352895e036a4b1 /ext/List | |
parent | 5a1dd2ab5c9ca51eda95e7e0025702bdfcd91d9f (diff) | |
download | perl-c5661c80adf757c3cf464bf5f538fe5082b73584.tar.gz |
Integrate from maint:
[ 19738]
Subject: Re: [PATCH: maint @ 19733] CL compiler warnings on MSWin32
From: "Marcus Holland-Moritz" <mhx-perl@gmx.net>
Message-ID: <011701c32f8c$62d85ee0$0c2f1fac@R2D2>
p4raw-link: @19738 on //depot/perl: 5a1dd2ab5c9ca51eda95e7e0025702bdfcd91d9fon //depot/maint-5.8/perl: c43a4d73e4c3d92928dd743544b60e43ce02ee9c
p4raw-id: //depot/perl@19739
p4raw-integrated: from //depot/maint-5.8/perl@19738 'copy in'
ext/Encode/encengine.c (@18665..) ext/List/Util/Util.xs
(@18791..) ext/Storable/Storable.xs (@19551..)
ext/POSIX/POSIX.xs (@19704..) ext/threads/threads.xs (@19722..)
'merge in' ext/Thread/Thread.xs (@18145..) pp.h (@19400..) sv.c
(@19653..) perl.c (@19704..) op.c (@19732..)
Diffstat (limited to 'ext/List')
-rw-r--r-- | ext/List/Util/Util.xs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ext/List/Util/Util.xs b/ext/List/Util/Util.xs index 412fa3f8c0..de0da94cec 100644 --- a/ext/List/Util/Util.xs +++ b/ext/List/Util/Util.xs @@ -215,7 +215,7 @@ CODE: PERL_CONTEXT *cx; SV** newsp; I32 gimme = G_SCALAR; - I32 hasargs = 0; + U8 hasargs = 0; bool oldcatch = CATCH_GET; if(items <= 1) { @@ -270,7 +270,7 @@ CODE: PERL_CONTEXT *cx; SV** newsp; I32 gimme = G_SCALAR; - I32 hasargs = 0; + U8 hasargs = 0; bool oldcatch = CATCH_GET; if(items <= 1) { @@ -481,7 +481,7 @@ CODE: OUTPUT: RETVAL -SV* +void set_prototype(subref, proto) SV *subref SV *proto |