From 5f7fde29e6223390b222de18e00bc300ef0fa8c9 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Sun, 14 Nov 1999 19:46:25 +0000 Subject: cosmetic tweaks p4raw-id: //depot/perl@4584 --- perlapi.c | 44 ++++++++++++++++++++++++++++++-------------- 1 file changed, 30 insertions(+), 14 deletions(-) (limited to 'perlapi.c') diff --git a/perlapi.c b/perlapi.c index 6ea713ce16..2a7899cb37 100644 --- a/perlapi.c +++ b/perlapi.c @@ -4915,32 +4915,48 @@ Perl_sys_intern_dup(pTHXo_ struct interp_intern* src, struct interp_intern* dst) } #endif -#undef Perl_sv_table_new -SVTBL* -Perl_sv_table_new(pTHXo) +#undef Perl_ptr_table_new +PTR_TBL_t* +Perl_ptr_table_new(pTHXo) { - return ((CPerlObj*)pPerl)->Perl_sv_table_new(); + return ((CPerlObj*)pPerl)->Perl_ptr_table_new(); } -#undef Perl_sv_table_fetch -SV* -Perl_sv_table_fetch(pTHXo_ SVTBL *tbl, SV *sv) +#undef Perl_ptr_table_fetch +void* +Perl_ptr_table_fetch(pTHXo_ PTR_TBL_t *tbl, void *sv) { - return ((CPerlObj*)pPerl)->Perl_sv_table_fetch(tbl, sv); + return ((CPerlObj*)pPerl)->Perl_ptr_table_fetch(tbl, sv); } -#undef Perl_sv_table_store +#undef Perl_ptr_table_store void -Perl_sv_table_store(pTHXo_ SVTBL *tbl, SV *oldsv, SV *newsv) +Perl_ptr_table_store(pTHXo_ PTR_TBL_t *tbl, void *oldsv, void *newsv) { - ((CPerlObj*)pPerl)->Perl_sv_table_store(tbl, oldsv, newsv); + ((CPerlObj*)pPerl)->Perl_ptr_table_store(tbl, oldsv, newsv); } -#undef Perl_sv_table_split +#undef Perl_ptr_table_split void -Perl_sv_table_split(pTHXo_ SVTBL *tbl) +Perl_ptr_table_split(pTHXo_ PTR_TBL_t *tbl) +{ + ((CPerlObj*)pPerl)->Perl_ptr_table_split(tbl); +} + +#undef perl_clone +PerlInterpreter* +perl_clone(PerlInterpreter* interp, UV flags) { - ((CPerlObj*)pPerl)->Perl_sv_table_split(tbl); + dTHXo; + return ((CPerlObj*)pPerl)->perl_clone(flags); +} + +#undef perl_clone_using +PerlInterpreter* +perl_clone_using(PerlInterpreter *interp, UV flags, struct IPerlMem* m, struct IPerlEnv* e, struct IPerlStdIO* io, struct IPerlLIO* lio, struct IPerlDir* d, struct IPerlSock* s, struct IPerlProc* p) +{ + dTHXo; + return ((CPerlObj*)pPerl)->perl_clone_using(interp, flags, m, e, io, lio, d, s, p); } #endif #if defined(PERL_OBJECT) -- cgit v1.2.1