diff options
| author | Yves Orton <demerphq@gmail.com> | 2022-11-01 14:22:45 +0100 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2022-11-02 08:49:32 +0100 |
| commit | 39cf7760652873f4bf49a7e86c4762c40edf05c2 (patch) | |
| tree | 14697c951124474d5692a405cce7f843d9384373 /scope.h | |
| parent | a589f4b93cf3864d7f665d0974e2d36f028b00b6 (diff) | |
| download | perl-39cf7760652873f4bf49a7e86c4762c40edf05c2.tar.gz | |
scope.* - more flexible ways to save warning bits
Diffstat (limited to 'scope.h')
| -rw-r--r-- | scope.h | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -220,7 +220,8 @@ scope has the given name. C<name> must be a literal string. could have done savefreesharedpvREF, but this way actually seems cleaner, as it simplifies the code that does the saves, and reduces the load on the save stack. */ -#define SAVECOMPILEWARNINGS() save_pushptr(PL_compiling.cop_warnings, SAVEt_COMPILE_WARNINGS) +#define SAVECOPWARNINGS(cop) save_pushptrptr((cop),(cop)->cop_warnings, SAVEt_COMPILE_WARNINGS) +#define SAVECOMPILEWARNINGS() SAVECOPWARNINGS(&PL_compiling) #define SAVEPARSER(p) save_pushptr((p), SAVEt_PARSER) |