diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-06-07 05:18:34 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-06-07 05:18:34 +0000 |
| commit | 864dbfa3ca8032ef66f7aa86961933b19b962357 (patch) | |
| tree | 4186157b2fc82346ec83e789b065a908a56c1641 /universal.c | |
| parent | fdf134946da249a71c49962435817212b8fa195a (diff) | |
| download | perl-864dbfa3ca8032ef66f7aa86961933b19b962357.tar.gz | |
initial stub implementation of implicit thread/this
pointer argument; builds/tests on Solaris, win32
hasn't been fixed up yet; proto.h, global.sym and
static function decls are now generated from a common
database in proto.pl; some inconsistently named
perl_foo() things are now Perl_foo(), compatibility
#defines provided; perl_foo() (lowercase 'p') reserved
for functions that take an explicit context argument;
next step: generate #define foo(a,b) Perl_foo(aTHX_ a,b)
p4raw-id: //depot/perl@3522
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/universal.c b/universal.c index 7d8ced3b0f..6ee0d7697c 100644 --- a/universal.c +++ b/universal.c @@ -1,4 +1,5 @@ #include "EXTERN.h" +#define PERL_IN_UNIVERSAL_C #include "perl.h" /* @@ -7,7 +8,7 @@ */ STATIC SV * -isa_lookup(HV *stash, const char *name, int len, int level) +isa_lookup(pTHX_ HV *stash, const char *name, int len, int level) { AV* av; GV* gv; @@ -73,7 +74,7 @@ isa_lookup(HV *stash, const char *name, int len, int level) } bool -sv_derived_from(SV *sv, const char *name) +Perl_sv_derived_from(pTHX_ SV *sv, const char *name) { SV *rv; char *type; @@ -211,7 +212,7 @@ XS(XS_UNIVERSAL_VERSION) #endif void -boot_core_UNIVERSAL(void) +Perl_boot_core_UNIVERSAL(pTHX) { char *file = __FILE__; |