diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-06-27 14:28:49 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-06-27 14:28:49 +0000 |
| commit | 0cb9638729211ea71a75ae8756c03ba21553bd53 (patch) | |
| tree | f00e767824d620a63a26a857b6a37fcb6945f89d /universal.c | |
| parent | 4f4e629e089f1120f8e94984281df06ac4f885c5 (diff) | |
| download | perl-0cb9638729211ea71a75ae8756c03ba21553bd53.tar.gz | |
somewhat untested PERL_OBJECT cleanups (C++isms mostly
gone from the public API); PERL_OBJECT builds again on
windows
TODO: namespace-clean the typedefs in iperlsys.h and
elsewhere; remove C++ remnants from public headers
p4raw-id: //depot/perl@3553
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 29 |
1 files changed, 14 insertions, 15 deletions
diff --git a/universal.c b/universal.c index 63c6910c12..3e5547a58d 100644 --- a/universal.c +++ b/universal.c @@ -103,6 +103,20 @@ Perl_sv_derived_from(pTHX_ SV *sv, const char *name) } +void XS_UNIVERSAL_isa(pTHXo_ CV *cv); +void XS_UNIVERSAL_can(pTHXo_ CV *cv); +void XS_UNIVERSAL_VERSION(pTHXo_ CV *cv); + +void +Perl_boot_core_UNIVERSAL(pTHX) +{ + char *file = __FILE__; + + newXS("UNIVERSAL::isa", XS_UNIVERSAL_isa, file); + newXS("UNIVERSAL::can", XS_UNIVERSAL_can, file); + newXS("UNIVERSAL::VERSION", XS_UNIVERSAL_VERSION, file); +} + #ifdef PERL_OBJECT #define NO_XSLOCKS #endif /* PERL_OBJECT */ @@ -205,18 +219,3 @@ XS(XS_UNIVERSAL_VERSION) XSRETURN(1); } -#ifdef PERL_OBJECT -#undef boot_core_UNIVERSAL -#define boot_core_UNIVERSAL CPerlObj::Perl_boot_core_UNIVERSAL -#define pPerl this -#endif - -void -Perl_boot_core_UNIVERSAL(pTHX) -{ - char *file = __FILE__; - - newXS("UNIVERSAL::isa", XS_UNIVERSAL_isa, file); - newXS("UNIVERSAL::can", XS_UNIVERSAL_can, file); - newXS("UNIVERSAL::VERSION", XS_UNIVERSAL_VERSION, file); -} |