In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/bdea967c6ddd9640355c80b2908ca4f349aa314c?hp=717ace6eb4102762ffd65f965ff32b26947eacc9>
- Log ----------------------------------------------------------------- commit bdea967c6ddd9640355c80b2908ca4f349aa314c Author: Brian Fraser <[email protected]> Date: Wed Sep 11 16:57:57 2013 -0300 Consistently use __sun to identify SunOS The core mostly used __sun already, but '__sun__' and 'sun' were also present. M perl.h M perlio.c commit dd134d2c87088199291548ead0eb89d8d6f7fe60 Author: Brian Fraser <[email protected]> Date: Wed Sep 11 16:51:01 2013 -0300 perl.h: Comment was mistakenly passed to the preprocessor This was a typo introduced in 27da23d5 M perl.h commit 753df24f7e884fc8dc838c40fea1c2c38a5c1408 Author: Brian Fraser <[email protected]> Date: Wed Sep 11 16:49:37 2013 -0300 perl.h: STMT_START/END don't need a special case for suncc anymore M perl.h commit 942481a7ac3454fcc91494057a568588ebc9308c Author: Brian Fraser <[email protected]> Date: Mon Sep 9 20:37:24 2013 -0300 Removed the define for FCALL This is a leftover from the PERL_OBJECT days; These days it was only used on one spot and did nothing useful. M NetWare/sv_nw.c M sv.c ----------------------------------------------------------------------- Summary of changes: NetWare/sv_nw.c | 1 - perl.h | 10 ++-------- perlio.c | 2 +- sv.c | 4 +--- 4 files changed, 4 insertions(+), 13 deletions(-) diff --git a/NetWare/sv_nw.c b/NetWare/sv_nw.c index 223ff94..85a33f0 100644 --- a/NetWare/sv_nw.c +++ b/NetWare/sv_nw.c @@ -3,7 +3,6 @@ #include <perl.h> #include <regcomp.h> -#define FCALL *f #define SV_CHECK_THINKFIRST(sv) if (SvTHINKFIRST(sv)) sv_force_normal_flags(sv, 0) diff --git a/perl.h b/perl.h index 1c22586..afc2bc8 100644 --- a/perl.h +++ b/perl.h @@ -90,7 +90,7 @@ # define USE_HEAP_INSTEAD_OF_STACK #endif -#/* Use the reentrant APIs like localtime_r and getpwent_r */ +/* Use the reentrant APIs like localtime_r and getpwent_r */ /* Win32 has naturally threadsafe libraries, no need to use any _r variants. */ #if defined(USE_ITHREADS) && !defined(USE_REENTRANT_API) && !defined(NETWARE) && !defined(WIN32) && !defined(PERL_DARWIN) # define USE_REENTRANT_API @@ -465,14 +465,8 @@ # define STMT_START (void)( /* gcc supports "({ STATEMENTS; })" */ # define STMT_END ) # else - /* Now which other defined()s do we need here ??? */ -# if (defined(sun) || defined(__sun__)) && !defined(__GNUC__) -# define STMT_START if (1) -# define STMT_END else (void)0 -# else # define STMT_START do # define STMT_END while (0) -# endif # endif #endif @@ -4034,7 +4028,7 @@ EXT char *** environ_pointer; /* VMS and some other platforms don't use the environ array */ # ifdef USE_ENVIRON_ARRAY # if !defined(DONT_DECLARE_STD) || \ - (defined(__svr4__) && defined(__GNUC__) && defined(sun)) || \ + (defined(__svr4__) && defined(__GNUC__) && defined(__sun)) || \ defined(__sgi) extern char ** environ; /* environment variables supplied via exec */ # endif diff --git a/perlio.c b/perlio.c index 4693366..2591f89 100644 --- a/perlio.c +++ b/perlio.c @@ -3169,7 +3169,7 @@ PerlIOStdio_invalidate_fileno(pTHX_ FILE *f) */ f->_fileno = -1; return 1; -# elif defined(__sun__) +# elif defined(__sun) PERL_UNUSED_ARG(f); return 0; # elif defined(__hpux) diff --git a/sv.c b/sv.c index e6ba4c9..f5326b4 100644 --- a/sv.c +++ b/sv.c @@ -41,8 +41,6 @@ # include <stdint.h> #endif -#define FCALL *f - #ifdef __Lynx__ /* Missing proto on LynxOS */ char *gconvert(double, int, int, char *); @@ -419,7 +417,7 @@ S_visit(pTHX_ SVFUNC_t f, const U32 flags, const U32 mask) && (sv->sv_flags & mask) == flags && SvREFCNT(sv)) { - (FCALL)(aTHX_ sv); + (*f)(aTHX_ sv); ++visited; } } -- Perl5 Master Repository
