Commit | Line | Data |
---|---|---|
599cee73 | 1 | util.c AOK |
2 | ||
3 | Illegal octal digit ignored | |
4 | my $a = oct "029" ; | |
5 | ||
252aa082 | 6 | Illegal hexadecimal digit ignored |
599cee73 | 7 | my $a = hex "0xv9" ; |
8 | ||
4f19785b | 9 | Illegal binary digit ignored |
10 | my $a = oct "0b9" ; | |
599cee73 | 11 | |
0453d815 | 12 | |
13 | Mandatory Warnings | |
14 | ------------------ | |
15 | Integer overflow in binary number | |
16 | Integer overflow in octal number | |
17 | Integer overflow in hex number | |
18 | ||
599cee73 | 19 | __END__ |
20 | # util.c | |
21 | use warning 'octal' ; | |
22 | my $a = oct "029" ; | |
0453d815 | 23 | no warning 'octal' ; |
252aa082 | 24 | my $b = oct "029" ; |
599cee73 | 25 | EXPECT |
399388f4 | 26 | Illegal octal digit '9' ignored at - line 3. |
599cee73 | 27 | ######## |
28 | # util.c | |
29 | use warning 'unsafe' ; | |
30 | *a = hex "0xv9" ; | |
0453d815 | 31 | no warning 'unsafe' ; |
32 | *a = hex "0xv9" ; | |
599cee73 | 33 | EXPECT |
651978e7 | 34 | Illegal hexadecimal digit 'v' ignored at - line 3. |
4f19785b | 35 | ######## |
36 | # util.c | |
37 | use warning 'unsafe' ; | |
38 | *a = oct "0b9" ; | |
0453d815 | 39 | no warning 'unsafe' ; |
40 | *a = oct "0b9" ; | |
4f19785b | 41 | EXPECT |
399388f4 | 42 | Illegal binary digit '9' ignored at - line 3. |
0453d815 | 43 | ######## |
44 | # util.c | |
252aa082 | 45 | $^W = 1 ; |
651978e7 | 46 | sub make_bin { "1" x $_[0] } |
252aa082 | 47 | $n = make_bin(33); |
0453d815 | 48 | { |
49 | use warning 'unsafe' ; | |
651978e7 | 50 | my $a = oct "0b$n" ; |
0453d815 | 51 | no warning 'unsafe' ; |
252aa082 | 52 | my $b = oct "0b$n" ; |
0453d815 | 53 | } |
252aa082 | 54 | my $c = oct "0b$n" ; |
0453d815 | 55 | EXPECT |
252aa082 | 56 | Binary number > 0b11111111111111111111111111111111 non-portable at - line 7. |
57 | Binary number > 0b11111111111111111111111111111111 non-portable at - line 11. | |
0453d815 | 58 | ######## |
59 | # util.c | |
252aa082 | 60 | $^W = 1 ; |
651978e7 | 61 | sub make_oct { ("","1","3")[$_[0]%3] . "7" x int($_[0]/3) } |
252aa082 | 62 | $n = make_oct(33); |
0453d815 | 63 | { |
64 | use warning 'unsafe' ; | |
651978e7 | 65 | my $a = oct "$n" ; |
0453d815 | 66 | no warning 'unsafe' ; |
252aa082 | 67 | my $b = oct "$n" ; |
0453d815 | 68 | } |
252aa082 | 69 | my $c = oct "$n" ; |
0453d815 | 70 | EXPECT |
252aa082 | 71 | Octal number > 037777777777 non-portable at - line 7. |
72 | Octal number > 037777777777 non-portable at - line 11. | |
0453d815 | 73 | ######## |
74 | # util.c | |
252aa082 | 75 | $^W = 1 ; |
651978e7 | 76 | sub make_hex { ("","1","3","7")[$_[0]%4] . "f" x int($_[0]/4) } |
252aa082 | 77 | $n = make_hex(33); |
0453d815 | 78 | { |
79 | use warning 'unsafe' ; | |
651978e7 | 80 | my $a = hex "$n" ; |
0453d815 | 81 | no warning 'unsafe' ; |
252aa082 | 82 | my $b = hex "$n" ; |
0453d815 | 83 | } |
252aa082 | 84 | my $c = hex "$n" ; |
0453d815 | 85 | EXPECT |
252aa082 | 86 | Hexadecimal number > 0xffffffff non-portable at - line 7. |
87 | Hexadecimal number > 0xffffffff non-portable at - line 11. | |
0453d815 | 88 |