1# This testcase is part of GDB, the GNU debugger. 2 3# Copyright 1997-2020 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# long_long.exp Test printing of 64-bit things in 32-bit gdb. 19# Also test differnet kinds of formats. 20# 21if [target_info exists no_long_long] { 22 return 0 23} 24 25standard_testfile .c 26 27# What compiler are we using? 28# 29if [get_compiler_info] { 30 return -1 31} 32 33if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable [concat debug nowarnings]] != "" } { 34 untested "failed to compile" 35 return -1 36} 37 38# use this to debug: 39#log_user 1 40 41clean_restart ${binfile} 42 43if { ![runto known_types] } then { 44 fail "run to known_types" 45 return 46} 47 48# Detect the size of the target's basic types. 49 50set sizeof_char [get_sizeof "char" 1] 51set sizeof_short [get_sizeof "short" 2] 52set sizeof_int [get_sizeof "int" 4] 53set sizeof_long [get_sizeof "long" 4] 54set sizeof_long_long [get_sizeof "long long" 8] 55set sizeof_data_ptr [get_sizeof "void *" 4] 56set sizeof_double [get_sizeof "double" 8] 57set sizeof_long_double [get_sizeof "long double" 8] 58 59# Tests to handle ISA/ABI variants 60 61proc pat2 { n pats } { 62 set i 0 63 while { $n > 1 } { 64 set n [expr $n / 2] 65 incr i 66 } 67 return [lindex $pats $i] 68} 69 70proc gdb_test_xxx { test pat args } { 71 if { $pat == "" } { 72 setup_kfail gdb/1672 *-*-* 73 set pat "xxx" 74 } 75 if { [llength $args] == 1 } { 76 set name [lindex $args 0] 77 gdb_test $test $pat $name 78 } 79 80 gdb_test $test $pat 81} 82 83proc gdb_test_ptr { test args } { 84 global sizeof_data_ptr 85 86 gdb_test_xxx $test [pat2 $sizeof_data_ptr $args] 87} 88 89proc gdb_test_xptr { examine args } { 90 global sizeof_data_ptr 91 set x [pat2 $sizeof_data_ptr $args] 92 # X is of the form { VARIABLE PATTERN } 93 gdb_test_xxx "$examine [lindex $x 0]" [lindex $x 1] "$examine" 94} 95 96proc gdb_test_char { test args } { 97 global sizeof_char 98 gdb_test_xxx $test [pat2 $sizeof_char $args] 99} 100 101proc gdb_test_short { test args } { 102 global sizeof_short 103 gdb_test_xxx $test [pat2 $sizeof_short $args] 104} 105 106proc gdb_test_int { test args } { 107 global sizeof_int 108 gdb_test_xxx $test [pat2 $sizeof_int $args] 109} 110 111proc gdb_test_long { test args } { 112 global sizeof_long 113 gdb_test_xxx $test [pat2 $sizeof_long $args] 114} 115 116proc gdb_test_long_long { test args } { 117 global sizeof_long_long 118 gdb_test_xxx $test [pat2 $sizeof_long_long $args] 119} 120 121gdb_breakpoint [gdb_get_line_number "Stop here and look"] 122gdb_continue_to_breakpoint "Stop here and look" 123 124# Check the hack for long long prints. 125# 126gdb_test "p/x val.hex" "0x0*0" "hex print p/x" 127gdb_test "p/x val.dec" "0xab54a98ceb1f0ad2" "decimal print p/x" 128# see if 'p/<code>' is handled same as 'p /<code>' 129# 130gdb_test "p /x val.dec" "0xab54a98ceb1f0ad2" "default print val.dec" 131gdb_test "p /x val.bin" "0x123456789abcdef" "default print val.bin" 132gdb_test "p /x val.oct" "0xa72ee53977053977" "default print val.oct" 133gdb_test "p val.hex" "= 0" "default print hex" 134 135gdb_test "p/u val.dec" "12345678901234567890" "decimal print p/u" 136gdb_test "p/t val.bin" "100100011010001010110011110001001101010111100110111101111" "binary print" 137gdb_test "p/o val.oct" "01234567123456701234567" "octal print" 138gdb_test "p /d val.bin" "81985529216486895" "print +ve long long" 139gdb_test "p/d val.dec" "-6101065172474983726" "decimal print p/d" 140 141# Try all the combinations to bump up coverage. 142# 143gdb_test "p/d val.oct" "-6399925985474168457" 144gdb_test "p/u val.oct" "12046818088235383159" 145gdb_test "p/o val.oct" ".*" 146gdb_test "p/t val.oct" "1010011100101110111001010011100101110111000001010011100101110111" 147gdb_test_ptr "p/a val.oct" "" "" "0x77053977" "0xa72ee53977053977" 148gdb_test "p/c val.oct" "'w'" 149 150if { $sizeof_double == 8 || $sizeof_long_double == 8 } { 151 # ARM FPA floating point numbers are not strictly little endian or big 152 # endian, but a hybrid. They are in little endian format with the two 153 # words swapped in big endian format. 154 # EABI targets default to natural-endian VFP format. 155 156 if { ([istarget "arm*-*-*"]) \ 157 && !([istarget "*-*-*eabi*"] || \ 158 [istarget "*-*-mingw32ce*"] || \ 159 [istarget "*-*-openbsd*"] || \ 160 [istarget "*-*-symbianelf"]) } then { 161 # assume the long long represents a floating point double in ARM format 162 gdb_test "p/f val.oct" "2.1386676354387559e\\+265" 163 } else { 164 # assume the long long represents a floating point double in little 165 # endian format 166 gdb_test "p/f val.oct" "-5.9822653797615723e-120" 167 } 168} else { 169 gdb_test "p/f val.oct" "-2.42716126e-15" 170} 171 172gdb_test_char "p/x *(char *)c" "0x1" 173gdb_test_char "p/d *(char *)c" "1" 174gdb_test_char "p/u *(char *)c" "1" 175gdb_test_char "p/o *(char *)c" "01" 176gdb_test_char "p/t *(char *)c" "1" 177gdb_test_char "p/a *(char *)c" "0x1( <.*>)?" 178gdb_test_char "p/f *(char *)c" "1" 179gdb_test_char "p/c *(char *)c" "1 '.001'" 180 181gdb_test_short "p/x *(short *)s" "" "0x123" "" 182gdb_test_short "p/d *(short *)s" "" "291" "" 183gdb_test_short "p/u *(short *)s" "" "291" "" 184gdb_test_short "p/o *(short *)s" "" "0443" "" 185gdb_test_short "p/t *(short *)s" "" "100100011" "" 186gdb_test_short "p/a *(short *)s" "" "0x123( <.*>)?" "" 187gdb_test_short "p/f *(short *)s" "" "291" "" 188gdb_test_short "p/c *(short *)s" "" "35 '.'" "" 189 190gdb_test_int "p/x *(int *)i" "" "0x123" "0x1234567" "" 191gdb_test_int "p/d *(int *)i" "" "291" "19088743" "" 192gdb_test_int "p/u *(int *)i" "" "291" "19088743" "" 193gdb_test_int "p/o *(int *)i" "" "0443" "0110642547" "" 194gdb_test_int "p/t *(int *)i" "" "100100011" "1001000110100010101100111" "" 195gdb_test_int "p/a *(int *)i" "" "" "0x1234567" "" 196gdb_test_int "p/f *(int *)i" "" "291" "2.99881655e-0?38" "" 197gdb_test_int "p/c *(int *)i" "" "35 '.'" "103 'g'" "" 198 199gdb_test_long "p/x *(long *)l" "" "0x123" "0x1234567" "0x123456789abcdef" 200gdb_test_long "p/d *(long *)l" "" "291" "19088743" "81985529216486895" 201gdb_test_long "p/u *(long *)l" "" "291" "19088743" "81985529216486895" 202gdb_test_long "p/o *(long *)l" "" "0443" "0110642547" "04432126361152746757" 203gdb_test_long "p/t *(long *)l" "" "100100011" "1001000110100010101100111" "100100011010001010110011110001001101010111100110111101111" 204gdb_test_ptr "p/a *(long *)l" "" "" "0x1234567" "0x123456789abcdef" 205gdb_test_long "p/f *(long *)l" "" "291" "2.99881655e-0?38" "3.5127005640885037e-303" 206gdb_test_long "p/c *(long *)l" "" "35 '.'" "103 'g'" "-17 '.*'" 207 208gdb_test_long_long "p/x *(long long *)ll" "" "" "" "0x123456789abcdef" 209gdb_test_long_long "p/d *(long long *)ll" "" "" "" "81985529216486895" 210gdb_test_long_long "p/u *(long long *)ll" "" "" "" "81985529216486895" 211gdb_test_long_long "p/o *(long long *)ll" "" "" "" "04432126361152746757" 212gdb_test_long_long "p/t *(long long *)ll" "" "" "" "100100011010001010110011110001001101010111100110111101111" 213gdb_test_ptr "p/a *(long long *)ll" "" "" "0x89abcdef" "0x123456789abcdef" 214gdb_test_long_long "p/f *(long long *)ll" "" "" "" "3.5127005640885037e-303" 215gdb_test_long_long "p/c *(long long *)ll" "" "" "" "-17 '.*'" 216 217# Implict Word size (except for a, c, and f) 218 219gdb_test "x/w w" ".*" "set examine size to w" 220gdb_test "x/x w" "0x01234567" 221gdb_test "x/d w" "19088743" 222gdb_test "x/u w" "19088743" 223gdb_test "x/o w" "0110642547" 224gdb_test "x/t w" "00000001001000110100010101100111" 225gdb_test_xptr "x/a" { b "" } { h "" } { w "0x1234567" } { g "0x123456789abcdef" } 226gdb_test "x/c b" "1 '.001'" 227if { $sizeof_double == 8 || $sizeof_long_double == 8 } { 228 gdb_test "x/f &val.oct" "-5.9822653797615723e-120" 229} else { 230 gdb_test "x/f &val.oct" "-2.42716126e-15" 231} 232 233# Implict Giant size (except for a, c, and f) 234 235gdb_test "x/g g" ".*" "set examine size to g" 236gdb_test "x/2x g" "0x0123456789abcdef.*0xa72ee53977053977" 237gdb_test "x/2d g" "81985529216486895.*-6399925985474168457" 238gdb_test "x/2u g" "81985529216486895.*12046818088235383159" 239gdb_test "x/2o g" "04432126361152746757.*01234567123456701234567" 240gdb_test "x/2t g" "0000000100100011010001010110011110001001101010111100110111101111.*1010011100101110111001010011100101110111000001010011100101110111" 241gdb_test_xptr "x/2a" { b "" } { h "" } { w "0x1234567.*0xa72ee539" } { g "0x123456789abcdef.*0xa72ee53977053977" } 242gdb_test "x/2c b" "1 '.001'.*-89 '.\[0-9\]*'" 243if { $sizeof_double == 8 || $sizeof_long_double == 8 } { 244 gdb_test "x/2f &val.oct" "-5.9822653797615723e-120.*-5.9041889495880968e-100" 245} else { 246 gdb_test "x/2f &val.oct" "-2.42716126e-15" 247} 248 249# Explicit sizes, and two memory locations ... 250 251gdb_test "x/2bx b" "0x01.*0xa7" 252gdb_test "x/2bd b" "1.*-89" 253gdb_test "x/2bu b" "1.*167" 254gdb_test "x/2bo b" "01.*0247" 255gdb_test "x/2bt b" "00000001.*10100111" 256gdb_test_ptr "x/2ba b" "" "" "0x1.*0xffffffa7" "0x1.*0xffffffffffffffa7" 257gdb_test "x/2bc b" "1 '.001'.*-89 '.\[0-9\]*'" 258gdb_test "x/2bf b" "1.*-89" 259 260gdb_test "x/2hx h" "0x0123.*0xa72e" 261gdb_test "x/2hd h" "291.*-22738" 262gdb_test "x/2hu h" "291.*42798" 263gdb_test "x/2ho h" "0443.*0123456" 264gdb_test "x/2ht h" "0000000100100011.*1010011100101110" 265gdb_test_ptr "x/2ha h" "" "" "0x123.*0xffffa72e" "0x123.*0xffffffffffffa72e" 266gdb_test "x/2hc h" "35 '.'.*46 '.'" 267gdb_test "x/2hf h" "291.*-22738" 268 269gdb_test "x/2wx w" "0x01234567.*0xa72ee539" 270gdb_test "x/2wd w" "19088743.*-1490098887" 271gdb_test "x/2wu w" "19088743.*2804868409" 272gdb_test "x/2wo w" "0110642547.*024713562471" 273gdb_test "x/2wt w" "00000001001000110100010101100111.*10100111001011101110010100111001" 274gdb_test_ptr "x/2wa w" "" "" "0x1234567.*0xa72ee539" "0x1234567.*0xffffffffa72ee539" 275gdb_test "x/2wc w" "103 'g'.*57 '9'" 276gdb_test "x/2wf w" "2.99881655e-0?38.*-2.42716126e-0?15" 277 278gdb_test "x/2gx g" "0x0123456789abcdef.*0xa72ee53977053977" 279gdb_test "x/2gd g" "81985529216486895.*-6399925985474168457" 280gdb_test "x/2gu g" "81985529216486895.*12046818088235383159" 281gdb_test "x/2go g" "04432126361152746757.*01234567123456701234567" 282gdb_test "x/2gt g" "0000000100100011010001010110011110001001101010111100110111101111.*1010011100101110111001010011100101110111000001010011100101110111" 283gdb_test_ptr "x/2ga g" "" "" "0x89abcdef.*0x77053977" "0x123456789abcdef.*0xa72ee53977053977" 284gdb_test "x/2gc g" "-17 '.\[0-9\]*'.*119 'w'" 285gdb_test "x/2gf g" "3.5127005640885037e-303.*-5.9822653797615723e-120" 286 287# Repeat behavior. 288gdb_test "x/2bx b" "0x01.*0xa7" "set up for repeat" 289send_gdb "\n" 290gdb_test "" "0x00.*0x00" "repeat x command" 291 292gdb_exit 293return 0 294