| [3181] | 1 | /* -*- buffer-read-only: t -*-
|
|---|
| 2 | !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
|
|---|
| 3 | This file is built by warnings.pl
|
|---|
| 4 | Any changes made here will be lost!
|
|---|
| 5 | */
|
|---|
| 6 |
|
|---|
| 7 |
|
|---|
| 8 | #define Off(x) ((x) / 8)
|
|---|
| 9 | #define Bit(x) (1 << ((x) % 8))
|
|---|
| 10 | #define IsSet(a, x) ((a)[Off(x)] & Bit(x))
|
|---|
| 11 |
|
|---|
| 12 |
|
|---|
| 13 | #define G_WARN_OFF 0 /* $^W == 0 */
|
|---|
| 14 | #define G_WARN_ON 1 /* -w flag and $^W != 0 */
|
|---|
| 15 | #define G_WARN_ALL_ON 2 /* -W flag */
|
|---|
| 16 | #define G_WARN_ALL_OFF 4 /* -X flag */
|
|---|
| 17 | #define G_WARN_ONCE 8 /* set if 'once' ever enabled */
|
|---|
| 18 | #define G_WARN_ALL_MASK (G_WARN_ALL_ON|G_WARN_ALL_OFF)
|
|---|
| 19 |
|
|---|
| 20 | #define pWARN_STD Nullsv
|
|---|
| 21 | #define pWARN_ALL (Nullsv+1) /* use warnings 'all' */
|
|---|
| 22 | #define pWARN_NONE (Nullsv+2) /* no warnings 'all' */
|
|---|
| 23 |
|
|---|
| 24 | #define specialWARN(x) ((x) == pWARN_STD || (x) == pWARN_ALL || \
|
|---|
| 25 | (x) == pWARN_NONE)
|
|---|
| 26 |
|
|---|
| 27 | /* Warnings Categories added in Perl 5.008 */
|
|---|
| 28 |
|
|---|
| 29 | #define WARN_ALL 0
|
|---|
| 30 | #define WARN_CLOSURE 1
|
|---|
| 31 | #define WARN_DEPRECATED 2
|
|---|
| 32 | #define WARN_EXITING 3
|
|---|
| |
|---|
