diff options
author | Andy Broad <andy@broad.ology.org.uk> | 2015-08-19 20:06:06 -0400 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2015-09-05 11:12:45 -0400 |
commit | 5ce45b7bbc7aa6b7aeb0db6c6a7faa07a30bff04 (patch) | |
tree | a65da3881d23da4d9421990fd227f4f7047e3267 /unixish.h | |
parent | 40262ff458826932ef3ff7250286cbb1bdb8e932 (diff) | |
download | perl-5ce45b7bbc7aa6b7aeb0db6c6a7faa07a30bff04.tar.gz |
amigaos4: PERL_SYS_INIT_BODY and PERL_SYS_TERM_BODY
Diffstat (limited to 'unixish.h')
-rw-r--r-- | unixish.h | 10 |
1 files changed, 10 insertions, 0 deletions
@@ -126,6 +126,16 @@ #define Fflush(fp) fflush(fp) #define Mkdir(path,mode) mkdir((path),(mode)) +#if defined(__amigaos4__) +void amigaos4_init_fork_array(); +void amigaos4_dispose_fork_array(); +# define PERL_SYS_INIT_BODY(c,v) \ + MALLOC_CHECK_TAINT2(*c,*v) PERL_FPU_INIT; PERLIO_INIT; MALLOC_INIT; amigaos4_init_fork_array(); +# define PERL_SYS_TERM_BODY() \ + HINTS_REFCNT_TERM; OP_CHECK_MUTEX_TERM; \ + OP_REFCNT_TERM; PERLIO_TERM; MALLOC_TERM; amigaos4_dispose_fork_array(); +#endif + #ifndef PERL_SYS_INIT_BODY # define PERL_SYS_INIT_BODY(c,v) \ MALLOC_CHECK_TAINT2(*c,*v) PERL_FPU_INIT; PERLIO_INIT; MALLOC_INIT |