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