diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-17 23:57:15 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-17 23:57:15 +0000 |
| commit | 91487cfc840e1faf4dbb6a4f7eb906993cbed22f (patch) | |
| tree | e47f2c7ff75e63d5711c0aae47ad0b5570b2f706 /miniperlmain.c | |
| parent | f4a52aff9b1e11a878305cd5b36d86036be0dc2b (diff) | |
| download | perl-91487cfc840e1faf4dbb6a4f7eb906993cbed22f.tar.gz | |
Oh, bother. In Tru64 cc -std1 was looking rather nice
in speed (upto 20% speedup in certain operations) but meanwhile
regexps and arithmetics got slower (5-10%) (according to
perlbench average speedup is negligible, and within measuring
flutter, 1%). Therefore retracting all the changes
aimed at getting -std1 to compile cleanly: #12475, #12476,
#12479, #12480, #12481, #12482, #12483, #12484.
p4raw-id: //depot/perl@12485
Diffstat (limited to 'miniperlmain.c')
| -rw-r--r-- | miniperlmain.c | 15 |
1 files changed, 2 insertions, 13 deletions
diff --git a/miniperlmain.c b/miniperlmain.c index 34faed695c..f92ea3ee23 100644 --- a/miniperlmain.c +++ b/miniperlmain.c @@ -25,18 +25,8 @@ static PerlInterpreter *my_perl; long _stksize = 64 * 1024; #endif -/* If the compiler is in such a strict mood that it doesn't - * even like the third argument of main(). */ -#if (defined(__DECC) && defined(__STDC__) && __STDC__ == 1) -# define STRICT_ANSI_DISLIKES_ENVP -#endif - int -main(int argc, char **argv -#ifndef STRICT_ANSI_DISLIKES_ENVP - , char **envp -#endif - ) +main(int argc, char **argv, char **env) { int exitstatus; @@ -56,8 +46,7 @@ main(int argc, char **argv /* noop unless Configure is given -Accflags=-DPERL_GPROF_CONTROL */ PERL_GPROF_MONCONTROL(0); - /* The default PERL_SYS_INIT3 ignores envp but e.g. OS/2 uses it. */ - PERL_SYS_INIT3(&argc,&argv,&envp); + PERL_SYS_INIT3(&argc,&argv,&env); #if defined(USE_5005THREADS) || defined(USE_ITHREADS) /* XXX Ideally, this should really be happening in perl_alloc() or |