This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
silence some compiler warnings
authorDave Mitchell <davem@fdisolutions.com>
Sun, 10 Jul 2005 11:39:50 +0000 (11:39 +0000)
committerDave Mitchell <davem@fdisolutions.com>
Sun, 10 Jul 2005 11:39:50 +0000 (11:39 +0000)
p4raw-id: //depot/perl@25104

embed.fnc
gv.h
proto.h

index 4835671..66bcaf1 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1509,8 +1509,8 @@ np        |long   |my_betohl      |long n
 
 np     |void   |my_swabn       |NN void* ptr|int n
 
 
 np     |void   |my_swabn       |NN void* ptr|int n
 
-ApR    |GV*    |gv_fetchpvn_flags|NN const char* name|STRLEN len|I32 flags|I32 sv_type
-ApR    |GV*    |gv_fetchsv|NN SV *name|I32 flags|I32 sv_type
+Ap     |GV*    |gv_fetchpvn_flags|NN const char* name|STRLEN len|I32 flags|I32 sv_type
+Ap     |GV*    |gv_fetchsv|NN SV *name|I32 flags|I32 sv_type
 dpR    |bool   |is_gv_magical_sv|NN SV *name|U32 flags
 
 ApR    |bool   |stashpv_hvname_match|NN const COP *cop|NN const HV *hv
 dpR    |bool   |is_gv_magical_sv|NN SV *name|U32 flags
 
 ApR    |bool   |stashpv_hvname_match|NN const COP *cop|NN const HV *hv
diff --git a/gv.h b/gv.h
index 0c776ba..87370ed 100644 (file)
--- a/gv.h
+++ b/gv.h
@@ -128,8 +128,8 @@ Return the SV from the GV.
 #define GvIN_PAD_off(gv)       (GvFLAGS(gv) &= ~GVf_IN_PAD)
 
 #define GvUNIQUE(gv)            0
 #define GvIN_PAD_off(gv)       (GvFLAGS(gv) &= ~GVf_IN_PAD)
 
 #define GvUNIQUE(gv)            0
-#define GvUNIQUE_on(gv)         0
-#define GvUNIQUE_off(gv)        0
+#define GvUNIQUE_on(gv)
+#define GvUNIQUE_off(gv)
 
 #ifdef USE_ITHREADS
 #define GV_UNIQUE_CHECK
 
 #ifdef USE_ITHREADS
 #define GV_UNIQUE_CHECK
diff --git a/proto.h b/proto.h
index 18250fc..9115629 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -3012,11 +3012,9 @@ PERL_CALLCONV void       Perl_my_swabn(void* ptr, int n)
 
 
 PERL_CALLCONV GV*      Perl_gv_fetchpvn_flags(pTHX_ const char* name, STRLEN len, I32 flags, I32 sv_type)
 
 
 PERL_CALLCONV GV*      Perl_gv_fetchpvn_flags(pTHX_ const char* name, STRLEN len, I32 flags, I32 sv_type)
-                       __attribute__warn_unused_result__
                        __attribute__nonnull__(pTHX_1);
 
 PERL_CALLCONV GV*      Perl_gv_fetchsv(pTHX_ SV *name, I32 flags, I32 sv_type)
                        __attribute__nonnull__(pTHX_1);
 
 PERL_CALLCONV GV*      Perl_gv_fetchsv(pTHX_ SV *name, I32 flags, I32 sv_type)
-                       __attribute__warn_unused_result__
                        __attribute__nonnull__(pTHX_1);
 
 PERL_CALLCONV bool     Perl_is_gv_magical_sv(pTHX_ SV *name, U32 flags)
                        __attribute__nonnull__(pTHX_1);
 
 PERL_CALLCONV bool     Perl_is_gv_magical_sv(pTHX_ SV *name, U32 flags)