From: Dave Mitchell <davem@fdisolutions.com>
Date: Mon, 18 Jun 2007 22:48:25 +0000 (+0000)
Subject: fix S_emulate_eaccess compiler warning
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4a2f5338264180fd813d06be7103d99c38d44e54;p=p5sagit%2Fp5-mst-13.2.git

fix S_emulate_eaccess compiler warning

p4raw-id: //depot/perl@31418
---

diff --git a/embed.fnc b/embed.fnc
index 3939155..fbd6ec7 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -1350,6 +1350,8 @@ s	|void	|qsortsvu	|NN SV** array|size_t num_elts|NN SVCOMPARE_t compare
 
 #if defined(PERL_IN_PP_SYS_C) || defined(PERL_DECL_PROT)
 s	|OP*	|doform		|NN CV *cv|NN GV *gv|NN OP *retop
+#  if !defined(PERL_EFF_ACCESS) && defined(HAS_ACCESS) && (defined(HAS_SETREUID) || defined(HAS_SETRESUID) || defined(HAS_SETREGID) || defined(HAS_SETRESGID))
+#  endif
 s	|int	|emulate_eaccess|NN const char* path|Mode_t mode
 #  if !defined(HAS_MKDIR) || !defined(HAS_RMDIR)
 sR	|int	|dooneliner	|NN const char *cmd|NN const char *filename
diff --git a/embed.h b/embed.h
index fdbf9f1..bfa2cd1 100644
--- a/embed.h
+++ b/embed.h
@@ -1348,6 +1348,10 @@
 #if defined(PERL_IN_PP_SYS_C) || defined(PERL_DECL_PROT)
 #ifdef PERL_CORE
 #define doform			S_doform
+#endif
+#  if !defined(PERL_EFF_ACCESS) && defined(HAS_ACCESS) && (defined(HAS_SETREUID) || defined(HAS_SETRESUID) || defined(HAS_SETREGID) || defined(HAS_SETRESGID))
+#  endif
+#ifdef PERL_CORE
 #define emulate_eaccess		S_emulate_eaccess
 #endif
 #  if !defined(HAS_MKDIR) || !defined(HAS_RMDIR)
@@ -3632,6 +3636,10 @@
 #if defined(PERL_IN_PP_SYS_C) || defined(PERL_DECL_PROT)
 #ifdef PERL_CORE
 #define doform(a,b,c)		S_doform(aTHX_ a,b,c)
+#endif
+#  if !defined(PERL_EFF_ACCESS) && defined(HAS_ACCESS) && (defined(HAS_SETREUID) || defined(HAS_SETRESUID) || defined(HAS_SETREGID) || defined(HAS_SETRESGID))
+#  endif
+#ifdef PERL_CORE
 #define emulate_eaccess(a,b)	S_emulate_eaccess(aTHX_ a,b)
 #endif
 #  if !defined(HAS_MKDIR) || !defined(HAS_RMDIR)
diff --git a/proto.h b/proto.h
index 64d71f3..aa65950 100644
--- a/proto.h
+++ b/proto.h
@@ -3640,6 +3640,8 @@ STATIC OP*	S_doform(pTHX_ CV *cv, GV *gv, OP *retop)
 			__attribute__nonnull__(pTHX_2)
 			__attribute__nonnull__(pTHX_3);
 
+#  if !defined(PERL_EFF_ACCESS) && defined(HAS_ACCESS) && (defined(HAS_SETREUID) || defined(HAS_SETRESUID) || defined(HAS_SETREGID) || defined(HAS_SETRESGID))
+#  endif
 STATIC int	S_emulate_eaccess(pTHX_ const char* path, Mode_t mode)
 			__attribute__nonnull__(pTHX_1);