From: Gurusamy Sarathy <gsar@cpan.org>
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);