((CPerlObj*)pPerl)->Perl_leave_scope(base);
}
+#undef Perl_op_null
+void
+Perl_op_null(pTHXo_ OP* o)
+{
+ ((CPerlObj*)pPerl)->Perl_op_null(o);
+}
+
#undef Perl_load_module
void
Perl_load_module(pTHXo_ U32 flags, SV* name, SV* ver, ...)
{
return ((CPerlObj*)pPerl)->Perl_looks_like_number(sv);
}
+
+#undef Perl_grok_number
+int
+Perl_grok_number(pTHXo_ const char *pv, STRLEN len, UV *valuep)
+{
+ return ((CPerlObj*)pPerl)->Perl_grok_number(pv, len, valuep);
+}
+
+#undef Perl_grok_numeric_radix
+bool
+Perl_grok_numeric_radix(pTHXo_ const char **sp, const char *send)
+{
+ return ((CPerlObj*)pPerl)->Perl_grok_numeric_radix(sp, send);
+}
#if defined(USE_THREADS)
#endif
#if defined(USE_LOCALE_COLLATE)
}
#undef Perl_mg_size
-I32
+IV
Perl_mg_size(pTHXo_ SV* sv)
{
return ((CPerlObj*)pPerl)->Perl_mg_size(sv);
{
return ((CPerlObj*)pPerl)->Perl_my_atof(s);
}
-#if !defined(HAS_BCOPY) || !defined(HAS_SAFE_BCOPY)
+#if (!defined(HAS_MEMCPY) && !defined(HAS_BCOPY)) || (!defined(HAS_MEMMOVE) && !defined(HAS_SAFE_MEMCPY) && !defined(HAS_SAFE_BCOPY))
#undef Perl_my_bcopy
char*
return ((CPerlObj*)pPerl)->Perl_sv_compile_2op(sv, startp, code, avp);
}
+#undef Perl_sv_getcwd
+int
+Perl_sv_getcwd(pTHXo_ SV* sv)
+{
+ return ((CPerlObj*)pPerl)->Perl_sv_getcwd(sv);
+}
+
#undef Perl_sv_dec
void
Perl_sv_dec(pTHXo_ SV* sv)
return ((CPerlObj*)pPerl)->Perl_sv_pvbyten_force(sv, lp);
}
+#undef Perl_sv_realpath
+int
+Perl_sv_realpath(pTHXo_ SV* sv, char *path, STRLEN len)
+{
+ return ((CPerlObj*)pPerl)->Perl_sv_realpath(sv, path, len);
+}
+
#undef Perl_sv_reftype
char*
Perl_sv_reftype(pTHXo_ SV* sv, int ob)
# endif
#endif
#if defined(PERL_IN_REGCOMP_C) || defined(PERL_DECL_PROT)
+# ifdef DEBUGGING
+# endif
#endif
#if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT)
#endif
#if defined(PERL_IN_RUN_C) || defined(PERL_DECL_PROT)
+# ifdef DEBUGGING
+# endif
#endif
#if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT)
#endif
#if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
-# if defined(DEBUGGING)
+# ifdef DEBUGGING
# endif
# if !defined(NV_PRESERVES_UV)
# endif
# endif
#endif
#if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
+# if defined(DEBUGGING)
+# endif
#if 0
#endif
# if defined(CRIPPLED_CC)
return ((CPerlObj*)pPerl)->Perl_sv_2pv_flags(sv, lp, flags);
}
+#undef Perl_my_atof2
+char*
+Perl_my_atof2(pTHXo_ const char *s, NV* value)
+{
+ return ((CPerlObj*)pPerl)->Perl_my_atof2(s, value);
+}
+
#undef Perl_fprintf_nocontext
int
Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...)