Protect against ptrdiff_t not being available.

[perl5.git] / NetWare / sv_nw.c

diff --git a/NetWare/sv_nw.c b/NetWare/sv_nw.c
index 0051363..85a33f0 100644 (file)
--- a/NetWare/sv_nw.c
+++ b/NetWare/sv_nw.c
@@ -3,13 +3,12 @@
 #include <perl.h>
 #include <regcomp.h>
 
-#define FCALL *f
-#define SV_CHECK_THINKFIRST(sv) if (SvTHINKFIRST(sv)) sv_force_normal(sv)
+#define SV_CHECK_THINKFIRST(sv) if (SvTHINKFIRST(sv)) sv_force_normal_flags(sv, 0)
 
 
 
 void
-Perl_sv_catsv(pTHX_ SV *dstr, register SV *sstr)
+Perl_sv_catsv(pTHX_ SV *dstr, SV *sstr)
 {
     sv_catsv_flags(dstr, sstr, SV_GMAGIC);
 }
@@ -22,13 +21,13 @@ Perl_sv_catpvn(pTHX_ SV *dsv, const char* sstr, STRLEN slen)
 }
 
 void
-Perl_sv_setsv(pTHX_ SV *dstr, register SV *sstr)
+Perl_sv_setsv(pTHX_ SV *dstr, SV *sstr)
 {
     sv_setsv_flags(dstr, sstr, SV_GMAGIC);
 }
 
 char *
-Perl_sv_2pv(pTHX_ register SV *sv, STRLEN *lp)
+Perl_sv_2pv(pTHX_ SV *sv, STRLEN *lp)
 {
     return sv_2pv_flags(sv, lp, SV_GMAGIC);
 }