diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2007-09-25 18:00:32 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2007-09-25 18:00:32 +0000 |
| commit | cbec8ebe2f7855c619451e56c6921e1537d3eba5 (patch) | |
| tree | b15c2a3f29a517dce5b080fa94e0beef050444dc /vms | |
| parent | 6f8d0260355f8c4ae7955768122638ad99f0ebab (diff) | |
| download | perl-cbec8ebe2f7855c619451e56c6921e1537d3eba5.tar.gz | |
make PERL_SYS_INIT/INIT3/TERM into functions
p4raw-id: //depot/perl@31970
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/vmsish.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/vms/vmsish.h b/vms/vmsish.h index a9452eb4f1..a0a52a3f86 100644 --- a/vms/vmsish.h +++ b/vms/vmsish.h @@ -402,8 +402,8 @@ struct interp_intern { #else #define BIT_BUCKET "/dev/null" #endif -#define PERL_SYS_INIT(c,v) MALLOC_CHECK_TAINT2(*c,*v) vms_image_init((c),(v)); PERLIO_INIT; MALLOC_INIT -#define PERL_SYS_TERM() HINTS_REFCNT_TERM; OP_REFCNT_TERM; PERLIO_TERM; MALLOC_TERM +#define PERL_SYS_INIT_BODY(c,v) MALLOC_CHECK_TAINT2(*c,*v) vms_image_init((c),(v)); PERLIO_INIT; MALLOC_INIT +#define PERL_SYS_TERM_BODY() HINTS_REFCNT_TERM; OP_REFCNT_TERM; PERLIO_TERM; MALLOC_TERM #define dXSUB_SYS #define HAS_KILL #define HAS_WAIT |