1# Copyright 2003, 2007, 2008, 2009, 2010, 2011 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 21if $tracelevel { 22 strace $tracelevel 23} 24 25# 26# Test floating-point related functionality. 27# 28 29 30if { [prepare_for_testing float.exp float run.c] } { 31 return -1 32} 33 34# Set it up at a breakpoint so we have its registers. 35 36if ![runto_main] then { 37 perror "couldn't run to breakpoint" 38 continue 39} 40 41# Test "info float". 42 43if { [istarget "alpha*-*-*"] } then { 44 gdb_test "info float" "f0.*" "info float" 45} elseif { [istarget "arm*-*-*"] || \ 46 [istarget "xscale*-*-*"] || \ 47 [istarget "strongarm*-*-*"] } then { 48 gdb_test_multiple "info float" "info float" { 49 -re "Software FPU type.*mask:.*flags:.*$gdb_prompt $" { 50 pass "info float (FPA)" 51 } 52 -re "fpscr.*s0.*s1.*s31.*$gdb_prompt $" { 53 # Only check for single precision; d0 might be a vector register 54 # if we have NEON. 55 pass "info float (VFP)" 56 } 57 -re "No floating.point info available for this processor.*" { 58 pass "info float (without FPU)" 59 } 60 } 61} elseif { [istarget "i?86-*-*"] || [istarget "x86_64-*-*"] } then { 62 gdb_test "info float" "R7:.*Status Word:.*Opcode:.*" "info float" 63} elseif [istarget "ia64-*-*"] then { 64 gdb_test "info float" "f0.*f1.*f127.*" "info float" 65} elseif [istarget "m68k-*-*"] then { 66 gdb_test_multiple "info float" "info_float" { 67 -re "fp0.*fp1.*fp7.*$gdb_prompt $" { 68 pass "info float (with FPU)" 69 } 70 -re "No floating.point info available for this processor.*" { 71 pass "info float (without FPU)" 72 } 73 } 74} elseif [istarget "mips*-*-*"] then { 75 gdb_test "info float" "f0:.*flt:.*dbl:.*" "info float" 76} elseif [istarget "powerpc*-*-*"] then { 77 gdb_test_multiple "info float" "info_float" { 78 -re "f0.*f1.*f31.*fpscr.*$gdb_prompt $" { 79 pass "info float (with FPU)" 80 } 81 -re "No floating.point info available for this processor.*" { 82 pass "info float (without FPU)" 83 } 84 } 85} elseif [istarget "s390*-*-*"] then { 86 gdb_test "info float" "fpc.*f0.*f1.*f15.*" "info float" 87} elseif [istarget "sh*-*"] then { 88 # SH may or may not have an FPU 89 gdb_test_multiple "info float" "info float" { 90 -re "fpul.*fr0.*fr1.*fr15.*$gdb_prompt $" { 91 pass "info float (with FPU)" 92 } 93 -re "No floating.point info available for this processor.*" { 94 pass "info float (without FPU)" 95 } 96 } 97} elseif [istarget "hppa*-*"] then { 98 gdb_test "info float" "fr4.*fr4R.*fr31R.*" "info float" 99} elseif [istarget "sparc*-*-*"] then { 100 gdb_test "info float" "f0.*f1.*f31.*d0.*d30.*" "info float" 101} else { 102 gdb_test "info float" "No floating.point info available for this processor." "info float (unknown target)" 103} 104