diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-30 02:51:39 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-30 02:51:39 +0000 |
| commit | 624f02153382ec2bff1aa1b42e292bbc9f76355d (patch) | |
| tree | 8ecdc4d8fa4a4e49d2b6df0d82103a508cd03053 /perl.c | |
| parent | 68c4a38ceeca07f20e69099ffe006a30a2da578a (diff) | |
| download | perl-624f02153382ec2bff1aa1b42e292bbc9f76355d.tar.gz | |
phase 1 of somewhat major rearrangement of PERL_OBJECT stuff
(objpp.h is gone, embed.pl now does some of that); objXSUB.h
should soon be automated also; the global variables that
escaped the PL_foo conversion are now reined in; renamed
MAGIC in regcomp.h to REG_MAGIC to avoid collision with the
type of same name; duplicated lists of pp_things in various
places is now gone; result has only been tested on win32
p4raw-id: //depot/perl@2133
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 17 |
1 files changed, 7 insertions, 10 deletions
@@ -92,7 +92,7 @@ perl_alloc(void) void #ifdef PERL_OBJECT -CPerlObj::perl_construct(void) +perl_construct(void) #else perl_construct(register PerlInterpreter *sv_interp) #endif @@ -235,7 +235,7 @@ perl_construct(register PerlInterpreter *sv_interp) void #ifdef PERL_OBJECT -CPerlObj::perl_destruct(void) +perl_destruct(void) #else perl_destruct(register PerlInterpreter *sv_interp) #endif @@ -593,7 +593,7 @@ perl_destruct(register PerlInterpreter *sv_interp) void #ifdef PERL_OBJECT -CPerlObj::perl_free(void) +perl_free(void) #else perl_free(PerlInterpreter *sv_interp) #endif @@ -609,7 +609,7 @@ perl_free(PerlInterpreter *sv_interp) void #ifdef PERL_OBJECT -CPerlObj::perl_atexit(void (*fn) (CPerlObj*,void *), void *ptr) +perl_atexit(void (*fn) (CPerlObj*,void *), void *ptr) #else perl_atexit(void (*fn) (void *), void *ptr) #endif @@ -622,7 +622,7 @@ perl_atexit(void (*fn) (void *), void *ptr) int #ifdef PERL_OBJECT -CPerlObj::perl_parse(void (*xsinit) (CPerlObj*), int argc, char **argv, char **env) +perl_parse(void (*xsinit) (CPerlObj*), int argc, char **argv, char **env) #else perl_parse(PerlInterpreter *sv_interp, void (*xsinit) (void), int argc, char **argv, char **env) #endif @@ -813,14 +813,11 @@ setuid perl scripts securely.\n"); #else sv_catpv(PL_Sv,"print \"\\nCharacteristics of this binary (from libperl): \\n\","); #endif -#if defined(DEBUGGING) || defined(NO_EMBED) || defined(MULTIPLICITY) +#if defined(DEBUGGING) || defined(MULTIPLICITY) sv_catpv(PL_Sv,"\" Compile-time options:"); # ifdef DEBUGGING sv_catpv(PL_Sv," DEBUGGING"); # endif -# ifdef NO_EMBED - sv_catpv(PL_Sv," NO_EMBED"); -# endif # ifdef MULTIPLICITY sv_catpv(PL_Sv," MULTIPLICITY"); # endif @@ -1018,7 +1015,7 @@ print \" \\@INC:\\n @INC\\n\";"); int #ifdef PERL_OBJECT -CPerlObj::perl_run(void) +perl_run(void) #else perl_run(PerlInterpreter *sv_interp) #endif |