1# Copyright 2004 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 2 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, write to the Free Software
15# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
16
17# Please email any bugs, comments, and/or additions to this file to:
18# bug-gdb@gnu.org
19
20# This file is part of the gdb testsuite.
21
22if $tracelevel {
23    strace $tracelevel
24}
25
26set prms_id 0
27set bug_id 0
28
29if ![istarget "i?86-*-*"] then {
30    verbose "Skipping i386 SSE tests."
31    return
32}
33
34set testfile "i386-sse"
35set srcfile ${testfile}.c
36set binfile ${objdir}/${subdir}/${testfile}
37if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
38    unsupported "compiler does not support SSE"
39    return
40}
41
42gdb_exit
43gdb_start
44gdb_reinitialize_dir $srcdir/$subdir
45gdb_load ${binfile}
46
47if ![runto_main] then {
48    gdb_suppress_tests
49}
50
51send_gdb "print have_sse ()\r"
52gdb_expect {
53    -re ".. = 1\r\n$gdb_prompt " {
54        pass "check whether processor supports SSE"
55    }
56    -re ".. = 0\r\n$gdb_prompt " {
57        verbose "processor does not support SSE; skipping SSE tests"
58        return
59    }
60    -re ".*$gdb_prompt $" {
61        fail "check whether processor supports SSE"
62    }
63    timeout {
64        fail "check whether processor supports SSE (timeout)"
65    }
66}
67
68gdb_test "break [gdb_get_line_number "first breakpoint here"]" \
69         "Breakpoint .* at .*i386-sse.c.*" \
70         "set breakpoint in main"
71gdb_continue_to_breakpoint "continue to first breakpoint in main"
72
73foreach r {0 1 2 3 4 5 6 7} {
74    gdb_test "print \$xmm$r.v4_float" \
75        ".. = \\{$r, $r.25, $r.5, $r.75\\}.*" \
76        "check contents of %xmm$r"
77}
78
79foreach r {0 1 2 3 4 5 6 7} {
80    gdb_test "set var \$xmm$r.v4_float\[0\] = $r + 10" "" "set %xmm$r"
81}
82
83gdb_test "break [gdb_get_line_number "second breakpoint here"]" \
84         "Breakpoint .* at .*i386-sse.c.*" \
85         "set breakpoint in main"
86gdb_continue_to_breakpoint "continue to second breakpoint in main"
87
88foreach r {0 1 2 3 4 5 6 7} {
89    gdb_test "print data\[$r\]" \
90        ".. = \\{f = \\{[expr $r + 10], $r.25, $r.5, $r.75\\}\\}.*" \
91        "check contents of data\[$r\]"
92}
93