1# Copyright (C) 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 17# Tests for Powerpc floating point register setting and fetching 18 19if $tracelevel then { 20 strace $tracelevel 21} 22 23if ![istarget "powerpc*"] then { 24 verbose "Skipping powerpc floating point register tests." 25 return 26} 27 28set testfile "ppc-fp" 29set binfile ${objdir}/${subdir}/${testfile} 30set srcfile ${testfile}.c 31 32if [get_compiler_info $binfile] { 33 warning "get_compiler failed" 34 return -1 35} 36 37if ![test_compiler_info gcc*] { 38 # We use GCC's extended asm syntax 39 warning "unknown compiler" 40 return -1 41} 42 43if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {quiet debug}] != "" } { 44 verbose "Skipping FPSCR tests." 45 return -1 46} 47 48# Start with a fresh gdb. 49 50gdb_exit 51gdb_start 52gdb_reinitialize_dir $srcdir/$subdir 53gdb_load ${binfile} 54 55gdb_breakpoint [gdb_get_line_number "Invalid operation."] 56gdb_breakpoint [gdb_get_line_number "Division by zero."] 57 58gdb_run_cmd 59 60# When the prompt comes back we'll be in the invalid operation breakpoint. 61gdb_expect { -re ".*$gdb_prompt $" {} } 62 63# First, verify if FPSCR exists and is all zeroes. 64gdb_test_multiple "print \$fpscr" "FPSCR exists" { 65 -re " = 0\[\r\n\]+$gdb_prompt $" { pass "FPSCR is all zeroes" } 66 67 -re " = void\[\r\n\]+$gdb_prompt $" { 68 # There's no FPSCR. Skip this testcase. 69 verbose "Skipping powerpc floating point register tests." 70 return 71 } 72} 73 74# Step over invalid operation. 75gdb_test "next" "" "" 76 77# Verify that the following bits are set (See Power ISA for details): 78# 79# 32 - Floating-Point Exception Summary (FX) 80# 34 - Floating-Point Invalid Operation Summary (VX) 81# 42 - Floating-Point Invalid Operation Exception (VXZDZ) 82# 47 - Floating-Point Result Class Descriptor (C) 83# 51 - Floating-Point Unordered or NaN (FU or ?) 84gdb_test "print/t \$fpscr" " = 10100000001000010001000000000000" "FPSCR for invalid operation" 85 86gdb_continue_to_breakpoint "go to division by zero" 87 88# Step over division by zero. 89gdb_test "next" "" "" 90 91# Verify that the following bits are set (See Power ISA for details): 92# 93# 32 - Floating-Point Exception Summary (FX) 94# 37 - Floating-Point Zero Divide Exception (ZX) 95# 49 - Floating-Point Greater Than or Positive (FG or >) 96# 51 - Floating-Point Unordered or NaN (FU or ?) 97gdb_test "print/t \$fpscr" " = 10000100000000000101000000000000" "FPSCR for division by zero" 98