diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-21 17:04:10 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-21 17:04:10 +0000 |
| commit | f2b2c1a7ed42395a69ab0bb3b739cdbd8d214137 (patch) | |
| tree | 5c1850fef244f7f8bc88d6d5dce375c4f2f085a4 /scope.h | |
| parent | 0e32cd814ab750f37cd765de6c19a6a112c89a81 (diff) | |
| download | perl-f2b2c1a7ed42395a69ab0bb3b739cdbd8d214137.tar.gz | |
Integrate scope.h@7790 from perlio, works better with multiplicity.
p4raw-link: @7790 on //depot/perlio: efeab7a8047d7136a0235c1cc7329f57d6a8bfdd
p4raw-id: //depot/perl@7792
p4raw-integrated: from //depot/perlio@7791 'copy in' scope.h (@7789..)
Diffstat (limited to 'scope.h')
| -rw-r--r-- | scope.h | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -173,9 +173,9 @@ Closing bracket on a callback. See C<ENTER> and L<perlcall>. * SSPTR() converts the index returned by SSNEW/SSNEWa() into a pointer. */ -#define SSNEW(size) save_alloc(aTHX_ (size), 0) +#define SSNEW(size) Perl_save_alloc(aTHX_ (size), 0) #define SSNEWt(n,t) SSNEW((n)*sizeof(t)) -#define SSNEWa(size,align) save_alloc(aTHX_ (size), \ +#define SSNEWa(size,align) Perl_save_alloc(aTHX_ (size), \ (align - ((int)((caddr_t)&PL_savestack[PL_savestack_ix]) % align)) % align) #define SSNEWat(n,t,align) SSNEWa((n)*sizeof(t), align) @@ -289,7 +289,7 @@ typedef void *(CPERLscope(*protect_proc_t)) (pTHX_ volatile JMPENV *pcur_env, OP_REG_TO_MEM; \ } STMT_END -#define JMPENV_PUSH_INIT(THROWFUNC) JMPENV_PUSH_INIT_ENV(*(JMPENV*)pcur_env,THROWFUNC) +#define JMPENV_PUSH_INIT(THROWFUNC) JMPENV_PUSH_INIT_ENV(*(JMPENV*)pcur_env,THROWFUNC) #define JMPENV_POST_CATCH_ENV(ce) \ STMT_START { \ @@ -314,7 +314,7 @@ typedef void *(CPERLscope(*protect_proc_t)) (pTHX_ volatile JMPENV *pcur_env, (v) = EXCEPT_GET_ENV(ce); \ } STMT_END -#define JMPENV_PUSH(v) JMPENV_PUSH_ENV(*(JMPENV*)pcur_env,v) +#define JMPENV_PUSH(v) JMPENV_PUSH_ENV(*(JMPENV*)pcur_env,v) #define JMPENV_POP_ENV(ce) \ STMT_START { \ @@ -322,7 +322,7 @@ typedef void *(CPERLscope(*protect_proc_t)) (pTHX_ volatile JMPENV *pcur_env, PL_top_env = (ce).je_prev; \ } STMT_END -#define JMPENV_POP JMPENV_POP_ENV(*(JMPENV*)pcur_env) +#define JMPENV_POP JMPENV_POP_ENV(*(JMPENV*)pcur_env) #define JMPENV_JUMP(v) \ STMT_START { \ |