diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-25 15:48:40 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-25 15:48:40 +0000 |
| commit | acb36ea45c4b95945f9639aac4920c186353489b (patch) | |
| tree | d2a101788bdb284c33e56c67c340c3684f645ba2 /embed.h | |
| parent | adac82c7012022865800c6235e0a0d8b8710e279 (diff) | |
| download | perl-acb36ea45c4b95945f9639aac4920c186353489b.tar.gz | |
fix bug in change#3728 that might free COPs prematurely;
null(op) now does more thorough scrubbing of the op, which
fixes a few compile-time memory "leaks"
p4raw-link: @3728 on //depot/perl: 7399586d384137f7ae66bcc82a83b0df7dd429e5
p4raw-id: //depot/perl@3739
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -764,6 +764,7 @@ #define scalarboolean S_scalarboolean #define too_few_arguments S_too_few_arguments #define too_many_arguments S_too_many_arguments +#define op_clear S_op_clear #define null S_null #define pad_findlex S_pad_findlex #define newDEFSVOP S_newDEFSVOP @@ -2076,6 +2077,7 @@ #define scalarboolean(a) S_scalarboolean(aTHX_ a) #define too_few_arguments(a,b) S_too_few_arguments(aTHX_ a,b) #define too_many_arguments(a,b) S_too_many_arguments(aTHX_ a,b) +#define op_clear(a) S_op_clear(aTHX_ a) #define null(a) S_null(aTHX_ a) #define pad_findlex(a,b,c,d,e,f,g) S_pad_findlex(aTHX_ a,b,c,d,e,f,g) #define newDEFSVOP() S_newDEFSVOP(aTHX) @@ -4109,6 +4111,8 @@ #define too_few_arguments S_too_few_arguments #define S_too_many_arguments CPerlObj::S_too_many_arguments #define too_many_arguments S_too_many_arguments +#define S_op_clear CPerlObj::S_op_clear +#define op_clear S_op_clear #define S_null CPerlObj::S_null #define null S_null #define S_pad_findlex CPerlObj::S_pad_findlex |