This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
perldiag should refer to perlos2.pod not README.os2
[perl5.git]
/
perlapi.c
diff --git
a/perlapi.c
b/perlapi.c
index
b396d6b
..
d3e2482
100755
(executable)
--- a/
perlapi.c
+++ b/
perlapi.c
@@
-41,6
+41,9
@@
START_EXTERN_C
{ return &(PL_##v); }
#define PERLVARA(v,n,t) PL_##v##_t* Perl_##v##_ptr(pTHXo) \
{ return &(PL_##v); }
{ return &(PL_##v); }
#define PERLVARA(v,n,t) PL_##v##_t* Perl_##v##_ptr(pTHXo) \
{ return &(PL_##v); }
+#undef PERLVARIC
+#define PERLVARIC(v,t,i) const t* Perl_##v##_ptr(pTHXo) \
+ { return (const t *)&(PL_##v); }
#include "perlvars.h"
#undef PERLVAR
#include "perlvars.h"
#undef PERLVAR
@@
-616,9
+619,9
@@
Perl_dounwind(pTHXo_ I32 cxix)
#undef Perl_do_binmode
int
#undef Perl_do_binmode
int
-Perl_do_binmode(pTHXo_ PerlIO *fp, int iotype, int
flag
)
+Perl_do_binmode(pTHXo_ PerlIO *fp, int iotype, int
mode
)
{
{
- return ((CPerlObj*)pPerl)->Perl_do_binmode(fp, iotype,
flag
);
+ return ((CPerlObj*)pPerl)->Perl_do_binmode(fp, iotype,
mode
);
}
#undef Perl_do_close
}
#undef Perl_do_close
@@
-632,6
+635,13
@@
Perl_do_close(pTHXo_ GV* gv, bool not_implicit)
#if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
#endif
#if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
#endif
+#undef Perl_do_join
+void
+Perl_do_join(pTHXo_ SV* sv, SV* del, SV** mark, SV** sp)
+{
+ ((CPerlObj*)pPerl)->Perl_do_join(sv, del, mark, sp);
+}
+
#undef Perl_do_open
bool
Perl_do_open(pTHXo_ GV* gv, char* name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO* supplied_fp)
#undef Perl_do_open
bool
Perl_do_open(pTHXo_ GV* gv, char* name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO* supplied_fp)
@@
-1963,6
+1973,13
@@
Perl_newSViv(pTHXo_ IV i)
return ((CPerlObj*)pPerl)->Perl_newSViv(i);
}
return ((CPerlObj*)pPerl)->Perl_newSViv(i);
}
+#undef Perl_newSVuv
+SV*
+Perl_newSVuv(pTHXo_ UV u)
+{
+ return ((CPerlObj*)pPerl)->Perl_newSVuv(u);
+}
+
#undef Perl_newSVnv
SV*
Perl_newSVnv(pTHXo_ NV n)
#undef Perl_newSVnv
SV*
Perl_newSVnv(pTHXo_ NV n)
@@
-2336,6
+2353,13
@@
Perl_rninstr(pTHXo_ const char* big, const char* bigend, const char* little, con
{
return ((CPerlObj*)pPerl)->Perl_rninstr(big, bigend, little, lend);
}
{
return ((CPerlObj*)pPerl)->Perl_rninstr(big, bigend, little, lend);
}
+
+#undef Perl_rsignal
+Sighandler_t
+Perl_rsignal(pTHXo_ int i, Sighandler_t t)
+{
+ return ((CPerlObj*)pPerl)->Perl_rsignal(i, t);
+}
#if !defined(HAS_RENAME)
#endif
#if !defined(HAS_RENAME)
#endif
@@
-2437,6
+2461,13
@@
Perl_save_generic_svref(pTHXo_ SV** sptr)
((CPerlObj*)pPerl)->Perl_save_generic_svref(sptr);
}
((CPerlObj*)pPerl)->Perl_save_generic_svref(sptr);
}
+#undef Perl_save_generic_pvref
+void
+Perl_save_generic_pvref(pTHXo_ char** str)
+{
+ ((CPerlObj*)pPerl)->Perl_save_generic_pvref(str);
+}
+
#undef Perl_save_gp
void
Perl_save_gp(pTHXo_ GV* gv, I32 empty)
#undef Perl_save_gp
void
Perl_save_gp(pTHXo_ GV* gv, I32 empty)
@@
-3359,6
+3390,13
@@
Perl_vwarner(pTHXo_ U32 err, const char* pat, va_list* args)
{
((CPerlObj*)pPerl)->Perl_vwarner(err, pat, args);
}
{
((CPerlObj*)pPerl)->Perl_vwarner(err, pat, args);
}
+
+#undef Perl_whichsig
+I32
+Perl_whichsig(pTHXo_ char* sig)
+{
+ return ((CPerlObj*)pPerl)->Perl_whichsig(sig);
+}
#if defined(USE_PURE_BISON)
#else
#endif
#if defined(USE_PURE_BISON)
#else
#endif
@@
-3915,6
+3953,15
@@
Perl_ptr_table_split(pTHXo_ PTR_TBL_t *tbl)
((CPerlObj*)pPerl)->Perl_ptr_table_split(tbl);
}
#endif
((CPerlObj*)pPerl)->Perl_ptr_table_split(tbl);
}
#endif
+#if defined(HAVE_INTERP_INTERN)
+
+#undef Perl_sys_intern_init
+void
+Perl_sys_intern_init(pTHXo)
+{
+ ((CPerlObj*)pPerl)->Perl_sys_intern_init();
+}
+#endif
#if defined(PERL_OBJECT)
#else
#endif
#if defined(PERL_OBJECT)
#else
#endif