Change 31418 by [EMAIL PROTECTED] on 2007/06/18 22:48:25
fix S_emulate_eaccess compiler warning
Affected files ...
... //depot/perl/embed.fnc#504 edit
... //depot/perl/embed.h#697 edit
... //depot/perl/proto.h#841 edit
Differences ...
==== //depot/perl/embed.fnc#504 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#503~31409~ 2007-06-18 00:39:35.000000000 -0700
+++ perl/embed.fnc 2007-06-18 15:48:25.000000000 -0700
@@ -1350,6 +1350,8 @@
#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
==== //depot/perl/embed.h#697 (text+w) ====
Index: perl/embed.h
--- perl/embed.h#696~31341~ 2007-06-06 07:42:01.000000000 -0700
+++ perl/embed.h 2007-06-18 15:48:25.000000000 -0700
@@ -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)
==== //depot/perl/proto.h#841 (text+w) ====
Index: perl/proto.h
--- perl/proto.h#840~31409~ 2007-06-18 00:39:35.000000000 -0700
+++ perl/proto.h 2007-06-18 15:48:25.000000000 -0700
@@ -3640,6 +3640,8 @@
__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);
End of Patch.
