1# This testcase is part of GDB, the GNU debugger. 2# Copyright 1993-2020 Free Software Foundation, Inc. 3 4# This program is free software; you can redistribute it and/or modify 5# it under the terms of the GNU General Public License as published by 6# the Free Software Foundation; either version 3 of the License, or 7# (at your option) any later version. 8# 9# This program is distributed in the hope that it will be useful, 10# but WITHOUT ANY WARRANTY; without even the implied warranty of 11# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 12# GNU General Public License for more details. 13# 14# You should have received a copy of the GNU General Public License 15# along with this program. If not, see <http://www.gnu.org/licenses/>. 16 17# This file was written by Fred Fish. (fnf@cygnus.com) 18# And rewritten by Michael Chastain (mec.gnu@mindspring.com) 19 20 21# Start with a fresh gdb. 22 23gdb_exit 24gdb_start 25 26# Test input radices. 27 28proc test_one_input { iradix input output } { 29 gdb_test "print $input" "$output" \ 30 "print $input; expect $output; input radix $iradix" 31} 32 33proc test_input_radix { iradix iradixhex iradixoctal } { 34 # set input-radix = $iradix, output-radix = ten 35 gdb_test "set radix" \ 36 "Input and output radices now set to decimal 10, hex a, octal 12." \ 37 "initialize radix, input radix $iradix" 38 gdb_test "set input-radix $iradix" \ 39 "Input radix now set to decimal $iradix, hex $iradixhex, octal $iradixoctal." 40 if { $iradix == 10 } then { 41 gdb_test "show radix" \ 42 "Input and output radices set to decimal 10, hex a, octal 12." \ 43 "show radix, input radix $iradix" 44 } else { 45 gdb_test "show radix" \ 46 "Input radix set to decimal $iradix, hex $iradixhex, octal $iradixoctal.\r\nOutput radix set to decimal 10, hex a, octal 12." \ 47 "show radix, input radix $iradix" 48 } 49 50 # test constants with specific bases that do not use $iradix 51 test_one_input $iradix "010" "8" 52 test_one_input $iradix "20." "20" 53 test_one_input $iradix "(int) 20." "20" 54 test_one_input $iradix "0xf" "15" 55 56 # test simple one-digit constants 57 test_one_input $iradix "0" "0" 58 test_one_input $iradix "1" "1" 59 test_one_input $iradix "-1" "-1" 60 61 # test simple two-digit constants 62 test_one_input $iradix "10" [expr $iradix] 63 test_one_input $iradix "11" [expr $iradix + 1] 64 test_one_input $iradix "-10" [expr 0 - $iradix] 65 test_one_input $iradix "-11" [expr 0 - $iradix - 1] 66 67 # test simple three-digit constants 68 test_one_input $iradix "100" [expr $iradix * $iradix] 69 test_one_input $iradix "101" [expr $iradix * $iradix + 1] 70 test_one_input $iradix "-100" [expr 0 - $iradix * $iradix] 71 test_one_input $iradix "-101" [expr 0 - $iradix * $iradix - 1] 72 73 # test a five-digit constant 74 test_one_input $iradix "10101" \ 75 [expr $iradix * $iradix * $iradix * $iradix + $iradix * $iradix + 1] 76} 77 78test_input_radix 2 "2" "2" 79 test_one_input 2 "4" "Invalid number \"4\"\\." 80 test_one_input 2 "-2" "Invalid number \"2\"\\." 81 82test_input_radix 3 "3" "3" 83 test_one_input 3 "2" "2" 84 test_one_input 3 "20" "6" 85 test_one_input 3 "3" "Invalid number \"3\"\\." 86 test_one_input 2 "30" "Invalid number \"30\"\\." 87 88test_input_radix 8 "8" "10" 89 test_one_input 8 "20" "16" 90 test_one_input 8 "-20" "-16" 91 test_one_input 8 "8" "Invalid number \"8\"." 92 test_one_input 8 "-9" "Invalid number \"9\"." 93 94test_input_radix 10 "a" "12" 95 test_one_input 10 "-12" "-12" 96 97test_input_radix 16 "10" "20" 98 99# Test output radices. 100 101proc test_one_output { oradix input output } { 102 gdb_test "print $input" "$output" \ 103 "print $input; expect $output; output radix $oradix" 104} 105 106proc test_output_radix { oradix oradixhex oradixoctal } { 107 # set input-radix = ten, output-radix = $oradix 108 gdb_test "set radix" \ 109 "Input and output radices now set to decimal 10, hex a, octal 12." \ 110 "initialize radix, output radix $oradix" 111 gdb_test "set output-radix $oradix" \ 112 "Output radix now set to decimal $oradix, hex $oradixhex, octal $oradixoctal." 113 if { $oradix == 10 } then { 114 gdb_test "show radix" \ 115 "Input and output radices set to decimal 10, hex a, octal 12." \ 116 "show radix, output radix $oradix" 117 } else { 118 gdb_test "show radix" \ 119 "Input radix set to decimal 10, hex a, octal 12.\r\nOutput radix set to decimal $oradix, hex $oradixhex, octal $oradixoctal." \ 120 "show radix, output radix $oradix" 121 } 122 123 # no standard tests for output radix 124} 125 126test_output_radix 8 "8" "10" 127 test_one_output 8 "010" "010" 128 test_one_output 8 "0xf" "17" 129 test_one_output 8 "10" "12" 130 test_one_output 8 "100" "144" 131 setup_kfail "gdb/1715" *-*-* 132 test_one_output 8 "20." "24" 133 test_one_output 8 "(int) 20." "24" 134 135test_output_radix 10 "a" "12" 136 test_one_output 10 "010" "8" 137 test_one_output 10 "0xf" "15" 138 test_one_output 10 "10" "10" 139 test_one_output 10 "100" "100" 140 test_one_output 10 "20." "20" 141 test_one_output 10 "(int) 20." "20" 142 143test_output_radix 16 "10" "20" 144 test_one_output 16 "010" "8" 145 test_one_output 16 "0xf" "f" 146 test_one_output 16 "10" "a" 147 test_one_output 16 "100" "64" 148 setup_kfail "gdb/1715" *-*-* 149 test_one_output 16 "20." "14" 150 test_one_output 16 "(int) 20." "14" 151 152# Test rejecting invalid input radices and unsupported output radices 153# really rejects the radices, instead of just claiming so (PR 7536). 154 155gdb_test "set radix" \ 156 "Input and output radices now set to decimal 10, hex a, octal 12\." \ 157 "reset radices" 158 159gdb_test "set input-radix 0" \ 160 "Nonsense input radix ``decimal 0''; input radix unchanged\\." \ 161 "Reject input-radix 0" 162gdb_test "show input-radix" \ 163 "Default input radix for entering numbers is 10\\." \ 164 "input radix unchanged after rejecting 0" 165 166gdb_test "set input-radix 1" \ 167 "Nonsense input radix ``decimal 1''; input radix unchanged\\." \ 168 "Reject input-radix 1" 169gdb_test "show input-radix" \ 170 "Default input radix for entering numbers is 10\\." \ 171 "input radix unchanged after rejecting 1" 172 173gdb_test "set output-radix 0" \ 174 "Unsupported output radix ``decimal 0''; output radix unchanged\\." \ 175 "Reject output-radix 0" 176gdb_test "show output-radix" \ 177 "Default output radix for printing of values is 10\\." \ 178 "Output radix unchanged after rejecting 0" 179gdb_test "set output-radix 1" \ 180 "Unsupported output radix ``decimal 1''; output radix unchanged\\." \ 181 "Reject output-radix 1" 182gdb_test "show output-radix" \ 183 "Default output radix for printing of values is 10\\." \ 184 "output radix unchanged after rejecting 1" 185 186gdb_test "set radix 7" \ 187 "Unsupported output radix ``decimal 7''; output radix unchanged\\." \ 188 "set radix 7 rejected" 189gdb_test "show output-radix" \ 190 "Default output radix for printing of values is 10\\." \ 191 "output radix unchanged after rejection through set radix command" 192