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 /miniperlmain.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 'miniperlmain.c')
| -rw-r--r-- | miniperlmain.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/miniperlmain.c b/miniperlmain.c index 4a0fe67e3f..3265bc76da 100644 --- a/miniperlmain.c +++ b/miniperlmain.c @@ -8,9 +8,10 @@ #include "EXTERN.h" +#define PERL_IN_MINIPERLMAIN_C #include "perl.h" -static void xs_init (void); +static void xs_init (pTHX); static PerlInterpreter *my_perl; #if defined (__MINT__) || defined (atarist) @@ -36,7 +37,7 @@ main(int argc, char **argv, char **env) PERL_SYS_INIT(&argc,&argv); - perl_init_i18nl10n(1); + init_i18nl10n(1); if (!PL_do_undump) { my_perl = perl_alloc(); @@ -65,7 +66,7 @@ main(int argc, char **argv, char **env) /* Do not delete this line--writemain depends on it */ static void -xs_init(void) +xs_init(pTHX) { dXSUB_SYS; } |