Commit | Line | Data |
---|---|---|
599cee73 PM |
1 | util.c AOK |
2 | ||
3 | Illegal octal digit ignored | |
4 | my $a = oct "029" ; | |
5 | ||
6 | Illegal hex digit ignored | |
7 | my $a = hex "0xv9" ; | |
8 | ||
4f19785b WSI |
9 | Illegal binary digit ignored |
10 | my $a = oct "0b9" ; | |
599cee73 | 11 | |
0453d815 PM |
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 PM |
19 | __END__ |
20 | # util.c | |
21 | use warning 'octal' ; | |
22 | my $a = oct "029" ; | |
0453d815 PM |
23 | no warning 'octal' ; |
24 | my $a = oct "029" ; | |
599cee73 | 25 | EXPECT |
399388f4 | 26 | Illegal octal digit '9' ignored at - line 3. |
599cee73 PM |
27 | ######## |
28 | # util.c | |
29 | use warning 'unsafe' ; | |
30 | *a = hex "0xv9" ; | |
0453d815 PM |
31 | no warning 'unsafe' ; |
32 | *a = hex "0xv9" ; | |
599cee73 | 33 | EXPECT |
651978e7 | 34 | Illegal hexadecimal digit 'v' ignored at - line 3. |
4f19785b WSI |
35 | ######## |
36 | # util.c | |
37 | use warning 'unsafe' ; | |
38 | *a = oct "0b9" ; | |
0453d815 PM |
39 | no warning 'unsafe' ; |
40 | *a = oct "0b9" ; | |
4f19785b | 41 | EXPECT |
399388f4 | 42 | Illegal binary digit '9' ignored at - line 3. |
0453d815 PM |
43 | ######## |
44 | # util.c | |
651978e7 | 45 | BEGIN { require Config ; import Config } |
0453d815 | 46 | $^W =1 ; |
651978e7 JH |
47 | sub make_bin { "1" x $_[0] } |
48 | $n = make_bin(8 * $Config{longsize} ) ; | |
49 | $o = make_bin(8 * $Config{longsize} + 1) ; | |
0453d815 PM |
50 | { |
51 | use warning 'unsafe' ; | |
651978e7 JH |
52 | my $a = oct "0b$n" ; |
53 | my $b = oct "0b$o" ; | |
0453d815 | 54 | no warning 'unsafe' ; |
651978e7 | 55 | $b = oct "0b$o" ; |
0453d815 | 56 | } |
651978e7 | 57 | my $b = oct "0b$o" ; |
0453d815 | 58 | EXPECT |
651978e7 JH |
59 | Integer overflow in binary number at - line 10. |
60 | Integer overflow in binary number at - line 14. | |
0453d815 PM |
61 | ######## |
62 | # util.c | |
651978e7 | 63 | BEGIN { require Config ; import Config } |
0453d815 | 64 | $^W =1 ; |
651978e7 JH |
65 | sub make_oct { ("","1","3")[$_[0]%3] . "7" x int($_[0]/3) } |
66 | $n = make_oct(8 * $Config{longsize} ); | |
67 | $o = make_oct(8 * $Config{longsize} + 1); | |
0453d815 PM |
68 | { |
69 | use warning 'unsafe' ; | |
651978e7 JH |
70 | my $a = oct "$n" ; |
71 | my $b = oct "$o" ; | |
0453d815 | 72 | no warning 'unsafe' ; |
651978e7 | 73 | $b = oct "$o" ; |
0453d815 | 74 | } |
651978e7 | 75 | my $b = oct "$o" ; |
0453d815 | 76 | EXPECT |
651978e7 JH |
77 | Integer overflow in octal number at - line 10. |
78 | Integer overflow in octal number at - line 14. | |
0453d815 PM |
79 | ######## |
80 | # util.c | |
651978e7 | 81 | BEGIN { require Config ; import Config } |
0453d815 | 82 | $^W =1 ; |
651978e7 JH |
83 | sub make_hex { ("","1","3","7")[$_[0]%4] . "f" x int($_[0]/4) } |
84 | $n = make_hex(8 * $Config{longsize} ) ; | |
85 | $o = make_hex(8 * $Config{longsize} + 1) ; | |
0453d815 PM |
86 | { |
87 | use warning 'unsafe' ; | |
651978e7 JH |
88 | my $a = hex "$n" ; |
89 | my $b = hex "$o" ; | |
0453d815 | 90 | no warning 'unsafe' ; |
651978e7 | 91 | $b = hex "$o" ; |
0453d815 | 92 | } |
651978e7 | 93 | my $b = hex "$o" ; |
0453d815 | 94 | EXPECT |
651978e7 JH |
95 | Integer overflow in hexadecimal number at - line 10. |
96 | Integer overflow in hexadecimal number at - line 14. | |
0453d815 | 97 |