[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.arch / spu-info.exp

# Copyright 2007 Free Software Foundation, Inc.
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see <http://www.gnu.org/licenses/>.
#
# This file is part of the gdb testsuite.
#
# Contributed by Markus Deuling <deuling@de.ibm.com>.
# Tests for 'info spu' commands.

set prms_id 0
set bug_id 0

if { ![istarget "spu-*-elf"] } then {
  verbose "Skipping SPU-only testcase"
  return
}

set testfile "spu-info"
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
set sources ${srcdir}/${subdir}/${srcfile}

if { [gdb_compile $sources ${binfile} executable { debug }] != "" } {
  return -1
}

gdb_exit
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}

# Continue to MARKER
proc c_to { marker } {
  global srcfile
  set line [gdb_get_line_number $marker]
  gdb_test "break $line" \
	   "Breakpoint.*at.*file.*$srcfile.*line $line.*" \
	   "break $line"
  gdb_test "continue" \
	   "Continuing.*Breakpoint.*at.*$srcfile.*$line.*" \
	   "continue to $line"
}


if ![runto_main] then {
  fail "Can't run to main"
  return 0
}

# Check the help.
gdb_test "info spu" \
	 ".*info spu.* must be followed by the name of an SPU facility.*" \
	 "info spu"
gdb_test "help info spu" \
	 "Various SPU specific commands.*List of info spu subcommands.*" \
	 "help info spu"

gdb_test "help info spu dma" \
	 "Display MFC DMA status." \
	 "help info spu dma"
gdb_test "help info spu event" \
	 "Display SPU event facility status." \
	 "help info spu event"
gdb_test "help info spu mailbox" \
	 "Display SPU mailbox facility status." \
	 "help info spu mailbox"
gdb_test "help info spu proxydma" \
	 "Display MFC Proxy-DMA status." \
	 "help info spu proxydma"
gdb_test "help info spu signal" \
	 "Display SPU signal notification facility status." \
	 "help info spu signal"


# architecture should be spu:256K.
gdb_test "show architecture" \
	 "The target architecture is set automatically.*currently spu:256K.*" \
	 "architecture = spu256K"

# 'info spu event'.
gdb_test "info spu event" \
	 "Event Status.*Event Mask.*" \
	 "info spu event"

# 'info spu signal'.
gdb_test "info spu signal" \
	 "Signal 1 not pending.*\(Type.*\).*Signal 2 not pending.*\(Type.*\).*" \
	 "info spu signal"

# 'info spu mailbox'.
gdb_test "info spu mailbox" \
	 "SPU Outbound Mailbox.*SPU Outbound Interrupt Mailbox.*" \
	 "info spu mailbox"

# 'info spu dma'.
gdb_test "info spu dma" \
	 "Tag-Group Status.*Tag-Group Mask.*Stall-and-Notify .*Atomic Cmd Status.*Opcode.*Tag.*TId.*RId.*EA.*LSA.*Size.*LstAddr.*LstSize.*E.*" \
	 "info spu dma"

# 'info spu proxydma'.
gdb_test "info spu proxydma" \
	 "Tag-Group Status.*Tag-Group Mask.*Opcode.*Tag.*TId.*RId.*EA.*LSA.*Size.*LstAddr.*LstSize.*E.*" \
	  "info spu proxydma"

# Event tests.
c_to "Marker Event"
gdb_test "info spu event" \
	"Event Status 0x00000000.*Event Mask   0x00000000.*" \
	"empty event status"

# MFC_MULTI_SRC_SYNC_EVENT.
gdb_test "next" "" "next"
gdb_test "info spu event" \
	"Event Status 0x00000000.*Event Mask   0x00001000.*" \
	"event mask 0x1000"
# MFC_PRIV_ATTN_EVENT.
gdb_test "next" "" "next"
gdb_test "info spu event" \
	"Event Status 0x00000000.*Event Mask   0x00000800.*" \
	"event mask 0x0800"
# MFC_LLR_LOST_EVENT.
gdb_test "next" "" "next"
gdb_test "info spu event" \
	"Event Status 0x00000000.*Event Mask   0x00000400.*" \
	"event mask 0x0400"
# MFC_SIGNAL_NOTIFY_1_EVENT.
gdb_test "next" "" "next"
gdb_test "info spu event" \
	"Event Status 0x00000000.*Event Mask   0x00000200.*" \
	"event mask 0x0200"
# MFC_SIGNAL_NOTIFY_2_EVENT.
gdb_test "next" "" "next"
gdb_test "info spu event" \
	"Event Status 0x00000000.*Event Mask   0x00000100.*" \
	"event mask 0x0100"
# MFC_OUT_MBOX_AVAILABLE_EVENT.
gdb_test "next" "" "next"
gdb_test "info spu event" \
	"Event Status 0x00000000.*Event Mask   0x00000080.*" \
	"event mask 0x0080"
# MFC_OUT_INTR_MBOX_AVAILABLE_EVENT.
gdb_test "next" "" "next"
gdb_test "info spu event" \
	"Event Status 0x00000000.*Event Mask   0x00000040.*" \
	"event mask 0x0040"
# MFC_DECREMENTER_EVENT.
gdb_test "next" "" "next"
gdb_test "info spu event" \
	"Event Status 0x00000000.*Event Mask   0x00000020.*" \
	"event mask 0x0020"
# MFC_IN_MBOX_AVAILABLE_EVENT.
gdb_test "next" "" "next"
gdb_test "info spu event" \
	"Event Status 0x00000000.*Event Mask   0x00000010.*" \
	"event mask 0x0010"
# MFC_COMMAND_QUEUE_AVAILABLE_EVENT.
gdb_test "next" "" "next"
gdb_test "info spu event" \
	"Event Status 0x00000000.*Event Mask   0x00000008.*" \
	"event mask 0x0008"
# MFC_LIST_STALL_NOTIFY_EVENT.
gdb_test "next" "" "next"
gdb_test "info spu event" \
	"Event Status 0x00000000.*Event Mask   0x00000002.*" \
	"event mask 0x0002"
# MFC_TAG_STATUS_UPDATE_EVENT.
gdb_test "next" "" "next"
gdb_test "info spu event" \
	"Event Status 0x00000000.*Event Mask   0x00000001.*" \
	"event mask 0x0001"


# DMA tests.
# 'info spu dma' should be empty.
c_to "Marker DMA"
gdb_test "info spu dma" \
	 "Tag-Group Status.*0x00000000.*Tag-Group Mask.*0x00000000.*Stall-and-Notify.*0x00000000.*Atomic Cmd Status.*0x00000000.*Opcode.*Tag.*TId.*RId.*EA.*LSA.*Size.*LstAddr.*LstSize.*E.*0.*0.*0.*0.*0x00000 0x00000.*" \
	 "info spu dma (empty)"

# 'info spu dma' should be filled with some data.
c_to "Marker DMAWait"
gdb_test "next" "" "next"
gdb_test "info spu dma" \
	 "Tag-Group Status.*0x00000000.*Tag-Group Mask.*0x00000020.*Stall-and-Notify.*0x00000000.*Atomic Cmd Status.*0x00000000.*Opcode.*Tag.*TId.*RId.*EA.*LSA.*Size.*LstAddr.*LstSize.*E.*getl.*putllc.*get.*mfcsync.*get.*0.*0.*0.*0.*0x00000 0x00000.*" \
	 "info spu dma (non-empty)"
gdb_test "finish" "" "finish"

# Mailbox Test
# 'info spu mailbox' should be empty.
c_to "Marker Mbox"
gdb_test "info spu mailbox" \
	 "SPU Outbound Mailbox.*0xc0000000.*SPU Outbound Interrupt Mailbox.*0xc0000000.*" \
	 "info spu mailbox"

# 'info spu mailbox' should now contain data.
c_to "Marker MboxEnd"
gdb_test "info spu mailbox" \
	 "SPU Outbound Mailbox.*0x12345678.*SPU Outbound Interrupt Mailbox.*0x12345678.*" \
	 "info spu mailbox"

# Signal Test
# 'info spu signal'.
c_to "Marker Signal"
gdb_test "info spu signal" \
	 "Signal 1 not pending.*\(Type.*\).*Signal 2 not pending.*\(Type.*\).*" \
	 "info spu signal"

# 'info spu signal' with signal1 pending.
c_to "Marker Signal1"
gdb_test "info spu signal" \
	 "Signal 1 control word 0x801c0800.*Signal 2 not pending.*\(Type.*\).*" \
	 "info spu signal"

# 'info spu signal' with signal1 and signal2 pending.
c_to "Marker Signal2"
gdb_test "info spu signal" \
	 "Signal 1 control word 0x801c0800.*Signal 2 control word 0x801c0800.*" \
	 "info spu signal"

# Read signal1. Only signal2 is pending.
c_to "Marker SignalRead"
gdb_test "info spu signal" \
	 "Signal 1 not pending.*Signal 2 control word 0x801c0800.*" \
	 "info spu signal"


gdb_exit

return 0
Commit	Line	Data
23d964e7 UW	1	# Copyright 2007 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
e22f8b7c	5	# the Free Software Foundation; either version 3 of the License, or
23d964e7 UW	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
e22f8b7c	14	# along with this program. If not, see <http://www.gnu.org/licenses/>.
23d964e7 UW	15	#
	16	# This file is part of the gdb testsuite.
	17	#
	18	# Contributed by Markus Deuling <deuling@de.ibm.com>.
	19	# Tests for 'info spu' commands.
	20
	21	set prms_id 0
	22	set bug_id 0
	23
	24	if { ![istarget "spu-*-elf"] } then {
	25	verbose "Skipping SPU-only testcase"
	26	return
	27	}
	28
	29	set testfile "spu-info"
	30	set srcfile ${testfile}.c
	31	set binfile ${objdir}/${subdir}/${testfile}
	32	set sources ${srcdir}/${subdir}/${srcfile}
	33
	34	if { [gdb_compile $sources ${binfile} executable { debug }] != "" } {
	35	return -1
	36	}
	37
	38	gdb_exit
	39	gdb_start
	40	gdb_reinitialize_dir $srcdir/$subdir
	41	gdb_load ${binfile}
	42
	43	# Continue to MARKER
	44	proc c_to { marker } {
	45	global srcfile
	46	set line [gdb_get_line_number $marker]
	47	gdb_test "break $line" \
	48	"Breakpoint.at.file.$srcfile.line $line.*" \
	49	"break $line"
	50	gdb_test "continue" \
	51	"Continuing.Breakpoint.at.$srcfile.$line.*" \
	52	"continue to $line"
	53	}
	54
	55
	56
	57	if ![runto_main] then {
	58	fail "Can't run to main"
	59	return 0
	60	}
	61
	62	# Check the help.
	63	gdb_test "info spu" \
	64	".info spu. must be followed by the name of an SPU facility.*" \
	65	"info spu"
	66	gdb_test "help info spu" \
	67	"Various SPU specific commands.List of info spu subcommands." \
	68	"help info spu"
	69
	70	gdb_test "help info spu dma" \
	71	"Display MFC DMA status." \
	72	"help info spu dma"
	73	gdb_test "help info spu event" \
	74	"Display SPU event facility status." \
	75	"help info spu event"
	76	gdb_test "help info spu mailbox" \
	77	"Display SPU mailbox facility status." \
	78	"help info spu mailbox"
79	gdb_test "help info spu proxydma" \
80	"Display MFC Proxy-DMA status." \
81	"help info spu proxydma"
82	gdb_test "help info spu signal" \
83	"Display SPU signal notification facility status." \
84	"help info spu signal"
85
86
87	# architecture should be spu:256K.
88	gdb_test "show architecture" \
89	"The target architecture is set automatically.currently spu:256K." \
90	"architecture = spu256K"
91
92	# 'info spu event'.
93	gdb_test "info spu event" \
94	"Event Status.Event Mask." \
95	"info spu event"
96
97	# 'info spu signal'.
98	gdb_test "info spu signal" \
99	"Signal 1 not pending.\(Type.\).Signal 2 not pending.\(Type.\)." \
100	"info spu signal"
101
102	# 'info spu mailbox'.
103	gdb_test "info spu mailbox" \
104	"SPU Outbound Mailbox.SPU Outbound Interrupt Mailbox." \
105	"info spu mailbox"
106
107	# 'info spu dma'.
108	gdb_test "info spu dma" \
109	"Tag-Group Status.Tag-Group Mask.Stall-and-Notify .Atomic Cmd Status.Opcode.Tag.TId.RId.EA.LSA.Size.LstAddr.LstSize.E." \
110	"info spu dma"
111
112	# 'info spu proxydma'.
113	gdb_test "info spu proxydma" \
114	"Tag-Group Status.Tag-Group Mask.Opcode.Tag.TId.RId.EA.LSA.Size.LstAddr.LstSize.E." \
115	"info spu proxydma"
116
117	# Event tests.
118	c_to "Marker Event"
119	gdb_test "info spu event" \
120	"Event Status 0x00000000.Event Mask 0x00000000." \
121	"empty event status"
122
123	# MFC_MULTI_SRC_SYNC_EVENT.
124	gdb_test "next" "" "next"
125	gdb_test "info spu event" \
126	"Event Status 0x00000000.Event Mask 0x00001000." \
127	"event mask 0x1000"
128	# MFC_PRIV_ATTN_EVENT.
129	gdb_test "next" "" "next"
130	gdb_test "info spu event" \
131	"Event Status 0x00000000.Event Mask 0x00000800." \
132	"event mask 0x0800"
133	# MFC_LLR_LOST_EVENT.
134	gdb_test "next" "" "next"
135	gdb_test "info spu event" \
136	"Event Status 0x00000000.Event Mask 0x00000400." \
137	"event mask 0x0400"
138	# MFC_SIGNAL_NOTIFY_1_EVENT.
139	gdb_test "next" "" "next"
140	gdb_test "info spu event" \
141	"Event Status 0x00000000.Event Mask 0x00000200." \
142	"event mask 0x0200"
143	# MFC_SIGNAL_NOTIFY_2_EVENT.
144	gdb_test "next" "" "next"
145	gdb_test "info spu event" \
146	"Event Status 0x00000000.Event Mask 0x00000100." \
147	"event mask 0x0100"
148	# MFC_OUT_MBOX_AVAILABLE_EVENT.
149	gdb_test "next" "" "next"
150	gdb_test "info spu event" \
151	"Event Status 0x00000000.Event Mask 0x00000080." \
152	"event mask 0x0080"
153	# MFC_OUT_INTR_MBOX_AVAILABLE_EVENT.
154	gdb_test "next" "" "next"
155	gdb_test "info spu event" \
156	"Event Status 0x00000000.Event Mask 0x00000040." \
157	"event mask 0x0040"
158	# MFC_DECREMENTER_EVENT.
159	gdb_test "next" "" "next"
160	gdb_test "info spu event" \
161	"Event Status 0x00000000.Event Mask 0x00000020." \
162	"event mask 0x0020"
163	# MFC_IN_MBOX_AVAILABLE_EVENT.
164	gdb_test "next" "" "next"
165	gdb_test "info spu event" \
166	"Event Status 0x00000000.Event Mask 0x00000010." \
167	"event mask 0x0010"
168	# MFC_COMMAND_QUEUE_AVAILABLE_EVENT.
169	gdb_test "next" "" "next"
170	gdb_test "info spu event" \
171	"Event Status 0x00000000.Event Mask 0x00000008." \
172	"event mask 0x0008"
173	# MFC_LIST_STALL_NOTIFY_EVENT.
174	gdb_test "next" "" "next"
175	gdb_test "info spu event" \
176	"Event Status 0x00000000.Event Mask 0x00000002." \
177	"event mask 0x0002"
178	# MFC_TAG_STATUS_UPDATE_EVENT.
179	gdb_test "next" "" "next"
180	gdb_test "info spu event" \
181	"Event Status 0x00000000.Event Mask 0x00000001." \
182	"event mask 0x0001"
183
184
185	# DMA tests.
186	# 'info spu dma' should be empty.
187	c_to "Marker DMA"
188	gdb_test "info spu dma" \
189	"Tag-Group Status.0x00000000.Tag-Group Mask.0x00000000.Stall-and-Notify.0x00000000.Atomic Cmd Status.0x00000000.Opcode.Tag.TId.RId.EA.LSA.Size.LstAddr.LstSize.E.0.0.0.0.0x00000 0x00000.*" \
190	"info spu dma (empty)"
191
192	# 'info spu dma' should be filled with some data.
193	c_to "Marker DMAWait"
194	gdb_test "next" "" "next"
195	gdb_test "info spu dma" \
196	"Tag-Group Status.0x00000000.Tag-Group Mask.0x00000020.Stall-and-Notify.0x00000000.Atomic Cmd Status.0x00000000.Opcode.Tag.TId.RId.EA.LSA.Size.LstAddr.LstSize.E.getl.putllc.get.mfcsync.get.0.0.0.0.0x00000 0x00000." \
197	"info spu dma (non-empty)"
198	gdb_test "finish" "" "finish"
199
200	# Mailbox Test
201	# 'info spu mailbox' should be empty.
202	c_to "Marker Mbox"
203	gdb_test "info spu mailbox" \
204	"SPU Outbound Mailbox.0xc0000000.SPU Outbound Interrupt Mailbox.0xc0000000." \
205	"info spu mailbox"
206
207	# 'info spu mailbox' should now contain data.
208	c_to "Marker MboxEnd"
209	gdb_test "info spu mailbox" \
210	"SPU Outbound Mailbox.0x12345678.SPU Outbound Interrupt Mailbox.0x12345678." \
211	"info spu mailbox"
212
213	# Signal Test
214	# 'info spu signal'.
215	c_to "Marker Signal"
216	gdb_test "info spu signal" \
217	"Signal 1 not pending.\(Type.\).Signal 2 not pending.\(Type.\)." \
218	"info spu signal"
219
220	# 'info spu signal' with signal1 pending.
221	c_to "Marker Signal1"
222	gdb_test "info spu signal" \
223	"Signal 1 control word 0x801c0800.Signal 2 not pending.\(Type.\)." \
224	"info spu signal"
225
226	# 'info spu signal' with signal1 and signal2 pending.
227	c_to "Marker Signal2"
228	gdb_test "info spu signal" \
229	"Signal 1 control word 0x801c0800.Signal 2 control word 0x801c0800." \
230	"info spu signal"
231
232	# Read signal1. Only signal2 is pending.
233	c_to "Marker SignalRead"
234	gdb_test "info spu signal" \
235	"Signal 1 not pending.Signal 2 control word 0x801c0800." \
236	"info spu signal"
237
238
239	gdb_exit
240
241	return 0