This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
amigaos4: declare the amigaos protos in amigaos.h
authorAndy Broad <andy@broad.ology.org.uk>
Mon, 14 Sep 2015 14:28:14 +0000 (10:28 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 16 Sep 2015 11:44:30 +0000 (07:44 -0400)
amigaos4/amigaos.h
unixish.h

index 82865ba..0faff80 100644 (file)
@@ -55,7 +55,9 @@ void ___freeenviron() __attribute__((destructor));
 
 long amigaos_get_file(int fd);
 
-// BOOL constructed;
+void amigaos4_init_fork_array();
+void amigaos4_dispose_fork_array();
+void amigaos4_init_environ_sema();
 
 /* emulated flock stuff */
 
index 0c7de45..69b0eb9 100644 (file)
--- a/unixish.h
+++ b/unixish.h
@@ -136,9 +136,6 @@ int afstat(int fd, struct stat *statb);
 #define Mkdir(path,mode)   mkdir((path),(mode))
 
 #if defined(__amigaos4__)
-void amigaos4_init_fork_array();
-void amigaos4_dispose_fork_array();
-void amigaos4_init_environ_sema();
 #  define PERL_SYS_INIT_BODY(c,v)                                      \
        MALLOC_CHECK_TAINT2(*c,*v) PERL_FPU_INIT; PERLIO_INIT; MALLOC_INIT; amigaos4_init_fork_array(); amigaos4_init_environ_sema();
 #  define PERL_SYS_TERM_BODY() \