OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gdb-6.8/] [gdb/] [testsuite/] [gdb.arch/] [i386-sse.exp] - Blame information for rev 258

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 24 jeremybenn
# Copyright 2004, 2005, 2007, 2008 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 .
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
if $tracelevel {
22
    strace $tracelevel
23
}
24
 
25
set prms_id 0
26
set bug_id 0
27
 
28
if ![istarget "i?86-*-*"] then {
29
    verbose "Skipping i386 SSE tests."
30
    return
31
}
32
 
33
set testfile "i386-sse"
34
set srcfile ${testfile}.c
35
set binfile ${objdir}/${subdir}/${testfile}
36
 
37
if [get_compiler_info ${binfile}] {
38
    return -1
39
}
40
 
41
set additional_flags ""
42
if [test_compiler_info gcc*] {
43
    set additional_flags "additional_flags=-msse"
44
}
45
 
46
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable [list debug $additional_flags]] != "" } {
47
    unsupported "compiler does not support SSE"
48
    return
49
}
50
 
51
gdb_exit
52
gdb_start
53
gdb_reinitialize_dir $srcdir/$subdir
54
gdb_load ${binfile}
55
 
56
if ![runto_main] then {
57
    gdb_suppress_tests
58
}
59
 
60
send_gdb "print have_sse ()\r"
61
gdb_expect {
62
    -re ".. = 1\r\n$gdb_prompt " {
63
        pass "check whether processor supports SSE"
64
    }
65
    -re ".. = 0\r\n$gdb_prompt " {
66
        verbose "processor does not support SSE; skipping SSE tests"
67
        return
68
    }
69
    -re ".*$gdb_prompt $" {
70
        fail "check whether processor supports SSE"
71
    }
72
    timeout {
73
        fail "check whether processor supports SSE (timeout)"
74
    }
75
}
76
 
77
gdb_test "break [gdb_get_line_number "first breakpoint here"]" \
78
         "Breakpoint .* at .*i386-sse.c.*" \
79
         "set breakpoint in main"
80
gdb_continue_to_breakpoint "continue to first breakpoint in main"
81
 
82
foreach r {0 1 2 3 4 5 6 7} {
83
    gdb_test "print \$xmm$r.v4_float" \
84
        ".. = \\{$r, $r.25, $r.5, $r.75\\}.*" \
85
        "check float contents of %xmm$r"
86
    gdb_test "print \$xmm$r.v16_int8" \
87
        ".. = \\{(-?\[0-9\]+, ){15}-?\[0-9\]+\\}.*" \
88
        "check int8 contents of %xmm$r"
89
}
90
 
91
foreach r {0 1 2 3 4 5 6 7} {
92
    gdb_test "set var \$xmm$r.v4_float\[0\] = $r + 10" "" "set %xmm$r"
93
}
94
 
95
gdb_test "break [gdb_get_line_number "second breakpoint here"]" \
96
         "Breakpoint .* at .*i386-sse.c.*" \
97
         "set breakpoint in main"
98
gdb_continue_to_breakpoint "continue to second breakpoint in main"
99
 
100
foreach r {0 1 2 3 4 5 6 7} {
101
    gdb_test "print data\[$r\]" \
102
        ".. = \\{f = \\{[expr $r + 10], $r.25, $r.5, $r.75\\}\\}.*" \
103
        "check contents of data\[$r\]"
104
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.