Removed the define for FCALL
authorBrian Fraser <fraserbn@gmail.com>
Mon, 9 Sep 2013 23:37:24 +0000 (20:37 -0300)
committerBrian Fraser <fraserbn@gmail.com>
Tue, 24 Sep 2013 00:20:59 +0000 (21:20 -0300)
This is a leftover from the PERL_OBJECT days; These days it was only
used on one spot and did nothing useful.

NetWare/sv_nw.c
sv.c

index 223ff94..85a33f0 100644 (file)
@@ -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/sv.c b/sv.c
index e6ba4c9..f5326b4 100644 (file)
--- 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;
            }
        }