248 lines
7.2 KiB
Plaintext
248 lines
7.2 KiB
Plaintext
# Copyright 2007, 2008, 2009, 2010 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.
|
|
|
|
|
|
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.*" \
|
|
"info spu dma"
|
|
|
|
# 'info spu proxydma'.
|
|
gdb_test "info spu proxydma" \
|
|
"Tag-Group Status.*Tag-Group Mask.*" \
|
|
"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\[\r\n\]+" \
|
|
"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.*get.*5.*0.*0.*0x00080\[ \r\n\]+" \
|
|
"info spu dma (non-empty)"
|
|
gdb_test "finish" "" "finish"
|
|
|
|
# Mailbox Test
|
|
# 'info spu mailbox' should be empty.
|
|
c_to "Marker Mbox"
|
|
set msg "info spu mailbox"
|
|
gdb_test_multiple "info spu mailbox" $msg {
|
|
-re "SPU Outbound Mailbox.*0x00000000.*SPU Outbound Interrupt Mailbox.*0x00000000.*$gdb_prompt $" {
|
|
pass $msg
|
|
}
|
|
-re "SPU Outbound Mailbox.*0x.*SPU Outbound Interrupt Mailbox.*0x.*$gdb_prompt $" {
|
|
# Older kernels had a bug that caused them to return arbitrary values
|
|
# when attempting to read from an empty mailbox via spufs.
|
|
xfail $msg
|
|
}
|
|
}
|
|
|
|
# '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
|