1# Copyright 1999, 2000, 2001, 2002, 2003 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@prep.ai.mit.edu
19#
20# Test essential Machine interface (MI) operations
21#
22# Verify that, using the MI, we can run a simple program and look at registers.
23#
24# The goal is not to test gdb functionality, which is done by other tests,
25# but to verify the correct output response to MI operations.
26#
27
28
29load_lib mi-support.exp
30set MIFLAGS "-i=mi2"
31
32gdb_exit
33if [mi_gdb_start] {
34    continue
35}
36
37set testfile "basics"
38set srcfile ${testfile}.c
39set binfile ${objdir}/${subdir}/${testfile}
40if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug additional_flags=-DFAKEARGV}] != "" } {
41     gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
42}
43
44mi_delete_breakpoints
45mi_gdb_reinitialize_dir $srcdir/$subdir
46mi_gdb_load ${binfile}
47
48proc sparc_register_tests_no_exec { } {
49	# Test the generic IDT chip.
50	mi_gdb_test "111-data-list-register-values" \
51		".*111\\^error,msg=\"mi_cmd_data_list_register_values: Usage: -data-list-register-values <format> \\\[<regnum1>...<regnumN>\\\]\"" \
52		"wrong arguments"
53
54	mi_gdb_test "111-data-list-register-values x" \
55		".*111\\^error,msg=\"mi_cmd_data_list_register_values: No registers\.\"" \
56		"no executable"
57}
58
59# These tests exercise IDT-specific MIPS registers for several
60# different processor models.
61
62# This should detect the actual processor in use and change
63# the expected results appropriately.  FIXME
64
65proc sparc_register_tests { } {
66    global hex
67    global decimal
68    set octal "\[0-7\]+"
69    set binary "\[0-1\]+"
70    set float "\\-?((\[0-9\]+(\\.\[0-9\]+)?(e\[-+\]\[0-9\]+)?)|(nan\\($hex\\)))"
71    set float2 "\\-?\[0-9\]+"
72
73    mi_gdb_test "111-data-list-register-names" \
74	    "111\\^done,register-names=\\\[\"g0\",\"g1\",\"g2\",\"g3\",\"g4\",\"g5\",\"g6\",\"g7\",\"o0\",\"o1\",\"o2\",\"o3\",\"o4\",\"o5\",\"sp\",\"o7\",\"l0\",\"l1\",\"l2\",\"l3\",\"l4\",\"l5\",\"l6\",\"l7\",\"i0\",\"i1\",\"i2\",\"i3\",\"i4\",\"i5\",\"fp\",\"i7\",\"f0\",\"f1\",\"f2\",\"f3\",\"f4\",\"f5\",\"f6\",\"f7\",\"f8\",\"f9\",\"f10\",\"f11\",\"f12\",\"f13\",\"f14\",\"f15\",\"f16\",\"f17\",\"f18\",\"f19\",\"f20\",\"f21\",\"f22\",\"f23\",\"f24\",\"f25\",\"f26\",\"f27\",\"f28\",\"f29\",\"f30\",\"f31\",\"y\",\"psr\",\"wim\",\"tbr\",\"pc\",\"npc\",\"fpsr\",\"cpsr\"\\\]" \
75	    "list register names"
76
77    mi_gdb_test "222-data-list-register-values x" \
78	    "222\\^done,register-values=\\\[\{number=\"0\",value=\"$hex\"\}.*\{number=\"71\",value=\"$hex\"\}\\\]" \
79	    "register values x"
80
81    mi_gdb_test "333-data-list-register-values f" \
82	    "333\\^done,register-values=\\\[\{number=\"0\",value=\"$float\"\},\{number=\"1\",value=\"$float\"\},.*\{number=\"71\",value=\"$float\"\}\\\]" \
83	    "register values f"
84
85    mi_gdb_test "444-data-list-register-values d" \
86	    "444\\^done,register-values=\\\[\{number=\"0\",value=\"$decimal\"\}.*\{number=\"71\",value=\"$decimal\"\}\\\]" \
87	    "register values d"
88
89    mi_gdb_test "555-data-list-register-values o" \
90	    "555\\^done,register-values=\\\[\{number=\"0\",value=\"$octal\"\}.*\{number=\"71\",value=\"$octal\"\}\\\]" \
91	    "register values o"
92
93    mi_gdb_test "666-data-list-register-values t" \
94	    "666\\^done,register-values=\\\[\{number=\"0\",value=\"$binary\"\}.*\{number=\"71\",value=\"$binary\"\}\\\]" \
95	    "register values t"
96
97    # On the sparc, registers 0-31 are int, 32-63 float, 64-71 int
98
99    mi_gdb_test "777-data-list-register-values N" \
100	    "777\\^done,register-values=\\\[\{number=\"0\",value=\"$decimal\"\}.*\{number=\"31\",value=\"$decimal\"\},\{number=\"32\",value=\"$float\"\}.*\{number=\"63\",value=\"$float\"\},\{number=\"64\",value=\"$decimal\"\}.*\{number=\"71\",value=\"$decimal\"\}\\\]" \
101	    "register values N"
102
103    mi_gdb_test "888-data-list-register-values r" \
104	    "888\\^done,register-values=\\\[\{number=\"0\",value=\"$hex\"\}.*\{number=\"71\",value=\"$hex\"\}\\\]" \
105	    "register values r"
106
107    mi_gdb_test "999-data-list-register-names 68 69 70 71" \
108	    "999\\^done,register-names=\\\[\"pc\",\"npc\",\"fpsr\",\"cpsr\"\\\]" \
109	    "list names of some regs"
110
111    mi_gdb_test "001-data-list-register-values x 68 69 70 71" \
112	    "001\\^done,register-values=\\\[\{number=\"68\",value=\"$hex\"\},\{number=\"69\",value=\"$hex\"\},\{number=\"70\",value=\"$hex\"\},\{number=\"71\",value=\"$hex\"\}\\\]" \
113	    "list values of some regs"
114
115    mi_gdb_test "002-data-list-changed-registers" \
116	    "002\\^done,changed-registers=\\\[(\"${decimal}\"(,\"${decimal}\")*)?\\\]" \
117	    "list changed registers"
118}
119
120if [istarget "sparc-*-*"] then {
121    sparc_register_tests_no_exec
122    mi_run_to_main
123    sparc_register_tests
124} else {
125    verbose "mi-regs.exp tests ignored for this target"
126}
127
128mi_gdb_exit
129return 0
130