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