1# Copyright 2003-2020 Free Software Foundation, Inc. 2 3# This program is free software; you can redistribute it and/or modify 4# it under the terms of the GNU General Public License as published by 5# the Free Software Foundation; either version 3 of the License, or 6# (at your option) any later version. 7# 8# This program is distributed in the hope that it will be useful, 9# but WITHOUT ANY WARRANTY; without even the implied warranty of 10# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 11# GNU General Public License for more details. 12# 13# You should have received a copy of the GNU General Public License 14# along with this program. If not, see <http://www.gnu.org/licenses/>. 15 16# Please email any bugs, comments, and/or additions to this file to: 17# bug-gdb@gnu.org 18 19# This file is part of the gdb testsuite. 20 21# 22# Test floating-point related functionality. 23# 24 25 26if { [prepare_for_testing "failed to prepare" float float.c] } { 27 return -1 28} 29 30# Set it up at a breakpoint so we have its registers. 31 32if ![runto_main] then { 33 perror "couldn't run to breakpoint" 34 continue 35} 36 37# Test "info float". 38 39if { [is_aarch64_target] } then { 40 gdb_test "info float" "d0.*d1.*d31.*s0.*s1.*s31.*" 41} elseif { [istarget "alpha*-*-*"] } then { 42 gdb_test "info float" "f0.*" 43} elseif { [is_aarch32_target] } then { 44 gdb_test_multiple "info float" "info float" { 45 -re "Software FPU type.*mask:.*flags:.*$gdb_prompt $" { 46 pass "info float (FPA)" 47 } 48 -re "fpscr.*s0.*s1.*s31.*$gdb_prompt $" { 49 # Only check for single precision; d0 might be a vector register 50 # if we have NEON. 51 pass "info float (VFP)" 52 } 53 -re "No floating.point info available for this processor.*$gdb_prompt $" { 54 pass "info float (without FPU)" 55 } 56 } 57} elseif { [istarget "i?86-*-*"] || [istarget "x86_64-*-*"] } then { 58 gdb_test "info float" "R7:.*Status Word:.*Opcode:.*" 59} elseif [istarget "ia64-*-*"] then { 60 gdb_test "info float" "f0.*f1.*f127.*" 61} elseif [istarget "m68k-*-*"] then { 62 gdb_test_multiple "info float" "info_float" { 63 -re "fp0.*fp1.*fp7.*$gdb_prompt $" { 64 pass "info float (with FPU)" 65 } 66 -re "No floating.point info available for this processor.*$gdb_prompt $" { 67 pass "info float (without FPU)" 68 } 69 } 70} elseif [istarget "mips*-*-*"] then { 71 gdb_test_multiple "info float" "info float" { 72 -re "fpu type: none / unused\r\n$gdb_prompt $" { 73 pass "info float (without FPU)" 74 } 75 -re "fpu type:.*cause.*mask.*flags.*round.*flush.*f0:.*flt:.*dbl:.*$gdb_prompt $" { 76 pass "info float (with FPU)" 77 } 78 } 79} elseif [istarget "nds32*-*-*"] then { 80 gdb_test_multiple "info float" "info_float" { 81 -re "fd0.*fd3.*$gdb_prompt $" { 82 pass "info float (with FPU)" 83 } 84 -re "No floating.point info available for this processor.*$gdb_prompt $" { 85 pass "info float (without FPU)" 86 } 87 } 88} elseif [istarget "powerpc*-*-*"] then { 89 gdb_test_multiple "info float" "info_float" { 90 -re "f0.*f1.*f31.*fpscr.*$gdb_prompt $" { 91 pass "info float (with FPU)" 92 } 93 -re "No floating.point info available for this processor.*$gdb_prompt $" { 94 pass "info float (without FPU)" 95 } 96 } 97} elseif [istarget "s390*-*-*"] then { 98 gdb_test "info float" "fpc.*f0.*f1.*f15.*" "info float" 99} elseif [istarget "sh*-*"] then { 100 # SH may or may not have an FPU 101 gdb_test_multiple "info float" "info float" { 102 -re "fpul.*fr0.*fr1.*fr15.*$gdb_prompt $" { 103 pass "info float (with FPU)" 104 } 105 -re "No floating.point info available for this processor.*$gdb_prompt $" { 106 pass "info float (without FPU)" 107 } 108 } 109} elseif [istarget "hppa*-*"] then { 110 gdb_test "info float" "fr4.*fr4R.*fr31R.*" "info float" 111} elseif [istarget "sparc*-*-*"] then { 112 gdb_test "info float" "f0.*f1.*f31.*d0.*d30.*" "info float" 113} elseif [istarget "riscv*-*-*"] then { 114 # RISC-V may or may not have an FPU 115 gdb_test_multiple "info float" "info float" { 116 -re "ft0.*ft1.*ft11.*fflags.*frm.*fcsr.*$gdb_prompt $" { 117 pass "info float (with FPU)" 118 } 119 -re "No floating.point info available for this processor.*$gdb_prompt $" { 120 pass "info float (without FPU)" 121 } 122 } 123} else { 124 gdb_test "info float" "No floating.point info available for this processor." "info float (unknown target)" 125} 126 127gdb_test "step" 128gdb_test "finish" "Value returned is .* = (inf|nan).*" 129