From: Gurusamy Sarathy Date: Fri, 25 Feb 2000 20:04:37 +0000 (+0000) Subject: fix missing perl_alloc() declaration under PERL_IMPLICIT_SYS X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b46bc2b69fd0825253e7e513bb1c568567aa6ab0;p=p5sagit%2Fp5-mst-13.2.git fix missing perl_alloc() declaration under PERL_IMPLICIT_SYS p4raw-id: //depot/perl@5256 --- diff --git a/embed.h b/embed.h index ea76f70..d0e0946 100644 --- a/embed.h +++ b/embed.h @@ -46,7 +46,6 @@ #if !defined(PERL_IMPLICIT_CONTEXT) #if defined(PERL_IMPLICIT_SYS) -#else #endif #if defined(USE_ITHREADS) # if defined(PERL_IMPLICIT_SYS) @@ -1495,7 +1494,6 @@ #else /* PERL_IMPLICIT_CONTEXT */ #if defined(PERL_IMPLICIT_SYS) -#else #endif #if defined(USE_ITHREADS) # if defined(PERL_IMPLICIT_SYS) @@ -2917,7 +2915,6 @@ #else /* PERL_OBJECT */ #if defined(PERL_IMPLICIT_SYS) -#else #endif #if defined(USE_ITHREADS) # if defined(PERL_IMPLICIT_SYS) diff --git a/embed.pl b/embed.pl index c1967d2..a3f9ef3 100755 --- a/embed.pl +++ b/embed.pl @@ -1293,9 +1293,8 @@ Ajno |PerlInterpreter* |perl_alloc_using \ |struct IPerlStdIO* io|struct IPerlLIO* lio \ |struct IPerlDir* d|struct IPerlSock* s \ |struct IPerlProc* p -#else -Ajnod |PerlInterpreter* |perl_alloc #endif +Ajnod |PerlInterpreter* |perl_alloc Ajnod |void |perl_construct |PerlInterpreter* interp Ajnod |void |perl_destruct |PerlInterpreter* interp Ajnod |void |perl_free |PerlInterpreter* interp diff --git a/objXSUB.h b/objXSUB.h index c2385f8..44dc1e9 100644 --- a/objXSUB.h +++ b/objXSUB.h @@ -13,7 +13,6 @@ /* XXX soon to be eliminated, only a few things in PERLCORE need these now */ #if defined(PERL_IMPLICIT_SYS) -#else #endif #if defined(USE_ITHREADS) # if defined(PERL_IMPLICIT_SYS) diff --git a/perlapi.c b/perlapi.c index c4653cc..add96c4 100644 --- a/perlapi.c +++ b/perlapi.c @@ -53,7 +53,6 @@ START_EXTERN_C /* C-API layer for PERL_OBJECT */ #if defined(PERL_IMPLICIT_SYS) -#else #endif #if defined(USE_ITHREADS) # if defined(PERL_IMPLICIT_SYS) diff --git a/proto.h b/proto.h index d4e218f..c7b6aa4 100644 --- a/proto.h +++ b/proto.h @@ -10,9 +10,8 @@ START_EXTERN_C #if defined(PERL_IMPLICIT_SYS) PERL_CALLCONV PerlInterpreter* perl_alloc_using(struct IPerlMem* m, struct IPerlMem* ms, struct IPerlMem* mp, struct IPerlEnv* e, struct IPerlStdIO* io, struct IPerlLIO* lio, struct IPerlDir* d, struct IPerlSock* s, struct IPerlProc* p); -#else -PERL_CALLCONV PerlInterpreter* perl_alloc(void); #endif +PERL_CALLCONV PerlInterpreter* perl_alloc(void); PERL_CALLCONV void perl_construct(PerlInterpreter* interp); PERL_CALLCONV void perl_destruct(PerlInterpreter* interp); PERL_CALLCONV void perl_free(PerlInterpreter* interp);