darlinghq/darling-gdb
1
0
Fork 0
mirror of https://github.com/darlinghq/darling-gdb.git synced 2024-11-28 14:30:48 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Patch for PR4587 + move proc run_list_test into gas-defs.exp

Browse Source
This commit is contained in:
Nick Clifton 2007-06-05 17:00:33 +00:00
parent 93e7bd98af
commit dfeb06664a
29 changed files with 106 additions and 302 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gas/ChangeLog
View File

@ -1,3 +1,8 @@
2007-06-05 Nick Clifton <nickc@redhat.com>
PR gas/4587
* config/tc-sparc.c (sparc_ip): Terminate tls_ops array.
2007-06-05 Alan Modra <amodra@bigpond.net.au>
* config/tc-spu.c (spu_cons): Use deferred_expression. Handle

10
gas/config/tc-sparc.c
View File

@ -1860,7 +1860,8 @@ sparc_ip (str, pinsn)
case '\0': /* End of args. */
if (s[0] == ',' && s[1] == '%')
{
static const struct tls_ops {
static const struct tls_ops
{
/* The name as it appears in assembler. */
char *name;
/* strlen (name), precomputed for speed */
@ -1869,7 +1870,9 @@ sparc_ip (str, pinsn)
int reloc;
/* 1 if call. */
int call;
} tls_ops[] = {
}
tls_ops[] =
{
{ "tgd_add", 7, BFD_RELOC_SPARC_TLS_GD_ADD, 0 },
{ "tgd_call", 8, BFD_RELOC_SPARC_TLS_GD_CALL, 1 },
{ "tldm_add", 8, BFD_RELOC_SPARC_TLS_LDM_ADD, 0 },
@ -1877,7 +1880,8 @@ sparc_ip (str, pinsn)
{ "tldo_add", 8, BFD_RELOC_SPARC_TLS_LDO_ADD, 0 },
{ "tie_ldx", 7, BFD_RELOC_SPARC_TLS_IE_LDX, 0 },
{ "tie_ld", 6, BFD_RELOC_SPARC_TLS_IE_LD, 0 },
{ "tie_add", 7, BFD_RELOC_SPARC_TLS_IE_ADD, 0 }
{ "tie_add", 7, BFD_RELOC_SPARC_TLS_IE_ADD, 0 },
{ NULL, 0, 0, 0 }
};
const struct tls_ops *o;
char *s1;

33
gas/testsuite/ChangeLog
View File

@ -1,3 +1,36 @@
2007-06-05 Nick Clifton <nickc@redhat.com>
PR gas/4587
* gas/sparc/sparc.exp: Run pr4587 list test.
* gas/sparc/pr4587.s: New test case.
* gas/sparc/pr4587.l: Expected assembler output.
2007-06-05 Nick Clifton <nickc@redhat.com>
* lib/gas-defs.exp (run_list_test): New proc.
* gas/alpha/alpha.exp: Delete proc run_list_test.
* gas/bfin/bfin.exp : Likewise.
* gas/cfi/cfi.exp : Likewise.
* gas/crx/allinsn.exp : Likewise.
* gas/d10v/d10v.exp : Likewise.
* gas/d30v/d30v.exp : Likewise.
* gas/frv/allinsn.exp : Likewise.
* gas/i386/i386.exp : Likewise.
* gas/i860.i860.exp : Likewise.
* gas/ia64/ia64.exp : Likewise.
* gas/lns/lns.exp : Likewise.
* gas/macros/macros.exp : Likewise.
* gas/maxq10/maxq10.exp : Likewise.
* gas/maxq20/maxq20.exp : Likewise.
* gas/mips/mips.exp : Likewise.
* gas/mmix/mmix-list.exp : Likewise.
* gas/mn10300/basic.exp : Likewise.
* gas/msp430/msp430.exp : Likewise.
* gas/pdp11/pdp11.exp : Likewise.
* gas/ppc/ppc.exp : Likewise.
* gas/s390/s390.exp : Likewise.
* gas/elf/elf.exp (proc run_list_test): Rename to run_elf_list_test.
2007-05-29 Jakub Jelinek <jakub@redhat.com>
PR gas/4558

13
gas/testsuite/gas/alpha/alpha.exp
View File

@ -2,19 +2,6 @@
# Some generic alpha tests
#
proc run_list_test { name opts } {
global srcdir subdir
set testname "alpha $name"
set file $srcdir/$subdir/$name
gas_run ${name}.s $opts ">&dump.out"
if { [regexp_diff "dump.out" "${file}.l"] } then {
fail $testname
verbose "output is [file_contents "dump.out"]" 2
return
}
pass $testname
}
if { [istarget alpha*-*-*] } then {
set elf [expr [istarget *-*-elf*] \

12
gas/testsuite/gas/bfin/bfin.exp
View File

@ -1,17 +1,5 @@
# Blackfin assembler testsuite
proc run_list_test { name opts } {
global srcdir subdir
set testname "bfin $name"
set file $srcdir/$subdir/$name
gas_run ${name}.s $opts ">&dump.out"
if { [regexp_diff "dump.out" "${file}.l"] } then {
fail $testname
verbose "output is [file_contents "dump.out"]" 2
return
}
pass $testname
}
if [istarget bfin*-*-*] {
run_dump_test "arithmetic"
run_dump_test "bit"

14
gas/testsuite/gas/cfi/cfi.exp
View File

@ -1,17 +1,3 @@
# ??? This probably shouldn't be replicated here...
proc run_list_test { name opts } {
global srcdir subdir
set testname "cfi $name"
set file $srcdir/$subdir/$name
gas_run ${name}.s $opts ">&dump.out"
if { [regexp_diff "dump.out" "${file}.l"] } then {
fail $testname
verbose "output is [file_contents "dump.out"]" 2
return
}
pass $testname
}
if ![is_elf_format] then {
return
}

13
gas/testsuite/gas/crx/allinsn.exp
View File

@ -2,19 +2,6 @@
# Driver for CRX assembler testsuite
#
proc run_list_test { name opts } {
global srcdir subdir
set testname "CRX $name"
set file $srcdir/$subdir/$name
gas_run ${name}.s $opts ">&dump.out"
if {[regexp_diff "dump.out" "${file}.l"] } {
fail $testname
verbose "output is [file_contents "dump.out"]" 2
return
}
pass $testname
}
if ![istarget crx-*-*] {
return
}

13
gas/testsuite/gas/d10v/d10v.exp
View File

@ -1,19 +1,6 @@
#
# Driver for D10V assembler testsuite
#
proc run_list_test { name opts } {
global srcdir subdir
set testname "D10V $name"
set file $srcdir/$subdir/$name
gas_run ${name}.s $opts ">&dump.out"
if {[regexp_diff "dump.out" "${file}.l"] } {
fail $testname
verbose "output is [file_contents "dump.out"]" 2
return
}
pass $testname
}
if {[istarget d10v-*-*]} {
run_dump_test "inst"
run_dump_test "address-001"

13
gas/testsuite/gas/d30v/d30.exp
View File

@ -2,19 +2,6 @@
# D30V assembler tests
#
proc run_list_test { name opts } {
global srcdir subdir
set testname "D30V $name"
set file $srcdir/$subdir/$name
gas_run ${name}.s $opts ">&dump.out"
if {[regexp_diff "dump.out" "${file}.l"] } {
fail $testname
verbose "output is [file_contents "dump.out"]" 2
return
}
pass $testname
}
if {[istarget d30v-*-*]} {
run_dump_test "inst"
run_dump_test "align"

8
gas/testsuite/gas/elf/elf.exp
View File

@ -2,7 +2,7 @@
# elf tests
#
proc run_list_test { name suffix opts readelf_opts readelf_pipe } {
proc run_elf_list_test { name suffix opts readelf_opts readelf_pipe } {
global READELF
global srcdir subdir
set testname "elf $name list"
@ -89,11 +89,11 @@ if { ([istarget "*-*-*elf*"]
}
run_dump_test "section0"
run_dump_test "section1"
run_list_test "section2" "$target_machine" "-al" "-s" ""
run_elf_list_test "section2" "$target_machine" "-al" "-s" ""
run_dump_test "section3"
run_dump_test "section4"
run_list_test "section5" "" "-al" "-SW" "| grep \" \\\\.test\\\[0-9\\\]\""
run_elf_list_test "section5" "" "-al" "-SW" "| grep \" \\\\.test\\\[0-9\\\]\""
run_dump_test "struct"
run_dump_test "symver"
run_list_test "type" "" "" "-s" "| grep \"1 \\\[FONT\\\]\""
run_elf_list_test "type" "" "" "-s" "| grep \"1 \\\[FONT\\\]\""
}

22
gas/testsuite/gas/frv/allinsn.exp
View File

@ -1,31 +1,19 @@
# FRV assembler testsuite.
proc run_list_test { name opts } {
global srcdir subdir
set testname "$name error test ($opts)"
gas_run $name.s $opts >&dump.out
if {[regexp_diff dump.out $srcdir/$subdir/$name.l]} {
fail $testname
verbose "output is [file_contents dump.out]" 2
return
}
pass $testname
}
if [istarget frv*-*-*] {
run_dump_test "allinsn"
run_dump_test "fdpic"
run_dump_test "reloc1"
run_dump_test "fr405-insn"
run_list_test "fr405-insn" "-mcpu=fr400"
run_list_test "fr405-insn" "-mcpu=fr500"
run_list_test "fr405-insn" "-mcpu=fr400" "fr405-insn -mcpu=fr400"
run_list_test "fr405-insn" "-mcpu=fr500" "fr405-insn -mcpu=fr500"
run_dump_test "fr450-spr"
run_dump_test "fr450-insn"
run_list_test "fr450-insn" "-mcpu=fr405"
run_list_test "fr450-insn" "-mcpu=fr400"
run_list_test "fr450-insn" "-mcpu=fr500"
run_list_test "fr450-insn" "-mcpu=fr405" "fr450-insn -mcpu=fr405"
run_list_test "fr450-insn" "-mcpu=fr400" "fr450-insn -mcpu=fr400"
run_list_test "fr450-insn" "-mcpu=fr500" "fr450-insn -mcpu=fr500"
run_list_test "fr450-media-issue" "-mcpu=fr450"
run_dump_test "fr550-pack1"

13
gas/testsuite/gas/i386/i386.exp
View File

@ -1,19 +1,6 @@
#
# i386 tests
#
proc run_list_test { name opts } {
global srcdir subdir
set testname "i386 $name"
set file $srcdir/$subdir/$name
gas_run ${name}.s $opts ">&dump.out"
if { [regexp_diff "dump.out" "${file}.l"] } then {
fail $testname
verbose "output is [file_contents "dump.out"]" 2
return
}
pass $testname
}
proc gas_64_check { } {
global NM
global NMFLAGS

13
gas/testsuite/gas/i860/i860.exp
View File

@ -1,18 +1,5 @@
# i860 assembler testsuite.
proc run_list_test { name opts } {
global srcdir subdir
set testname "i860 $name"
set file $srcdir/$subdir/$name
gas_run ${name}.s $opts ">&dump.out"
if { [regexp_diff "dump.out" "${file}.l"] } then {
fail $testname
verbose "output is [file_contents "dump.out"]" 2
return
}
pass $testname
}
if [istarget i860-*-*] {
run_dump_test "bitwise"
run_dump_test "branch"

13
gas/testsuite/gas/ia64/ia64.exp
View File

@ -1,19 +1,6 @@
#
# ia64 tests
#
proc run_list_test { name opts } {
global srcdir subdir
set testname "ia64 $name"
set file $srcdir/$subdir/$name
gas_run ${name}.s $opts ">&dump.out"
if { [regexp_diff "dump.out" "${file}.l"] } then {
fail $testname
verbose "output is [file_contents "dump.out"]" 2
return
}
pass $testname
}
if [istarget "ia64-*"] then {
run_dump_test "regs"

14
gas/testsuite/gas/lns/lns.exp
View File

@ -1,17 +1,3 @@
# ??? This probably shouldn't be replicated here...
proc run_list_test { name opts } {
global srcdir subdir
set testname "lns $name"
set file $srcdir/$subdir/$name
gas_run ${name}.s $opts ">&dump.out"
if { [regexp_diff "dump.out" "${file}.l"] } then {
fail $testname
verbose "output is [file_contents "dump.out"]" 2
return
}
pass $testname
}
if ![is_elf_format] then {
return
}

14
gas/testsuite/gas/macros/macros.exp
View File

@ -1,18 +1,5 @@
# Run some tests of gas macros.
proc run_list_test { name opts } {
global srcdir subdir
set testname "macros $name"
set file $srcdir/$subdir/$name
gas_run ${name}.s $opts ">&dump.out"
if { [regexp_diff "dump.out" "${file}.l"] } then {
fail $testname
verbose "output is [file_contents "dump.out"]" 2
return
}
pass $testname
}
if { ![istarget hppa*-*-*] || [istarget *-*-linux*] } {
run_dump_test test1
}
@ -69,6 +56,7 @@ run_dump_test app3
run_dump_test app4
run_list_test badarg ""
case $target_triplet in {
{ *c54x*-*-* } { }
{ *c4x*-*-* } { }

13
gas/testsuite/gas/maxq10/maxq10.exp
View File

@ -1,19 +1,6 @@
#
# MAXQ10 tests
#
proc run_list_test { name opts } {
global srcdir subdir
set testname "maxq10 $name"
set file $srcdir/$subdir/$name
gas_run ${name}.s $opts ">&dump.out"
if { [regexp_diff "dump.out" "${file}.l"] } then {
fail $testname
verbose "output is [file_contents "dump.out"]" 2
return
}
pass $testname
}
proc gas_64_check { } {
global NM
global NMFLAGS

13
gas/testsuite/gas/maxq20/maxq20.exp
View File

@ -1,19 +1,6 @@
#
# MAXQ20 tests
#
proc run_list_test { name opts } {
global srcdir subdir
set testname "maxq20 $name"
set file $srcdir/$subdir/$name
gas_run ${name}.s $opts ">&dump.out"
if { [regexp_diff "dump.out" "${file}.l"] } then {
fail $testname
verbose "output is [file_contents "dump.out"]" 2
return
}
pass $testname
}
proc gas_64_check { } {
global NM
global NMFLAGS

21
gas/testsuite/gas/mips/mips.exp
View File

@ -292,27 +292,6 @@ proc run_dump_test_arches { name arch_list } {
}
}
# run_list_test NAME OPTS (optional): TESTNAME
#
# Assemble the file "NAME.d" and compare the assembler standard error
# output against the regular expressions given in the file "NAME.l".
# The assembler is passed the flags given in OPTS. If TESTNAME is
# provided, it will be used as the name of the test.
proc run_list_test { name opts {testname {}} } {
global srcdir subdir
if { [string length $testname] == 0 } then {
set testname "MIPS $name"
}
set file $srcdir/$subdir/$name
gas_run ${name}.s $opts ">&dump.out"
if { [regexp_diff "dump.out" "${file}.l"] } then {
fail $testname
verbose "output is [file_contents "dump.out"]" 2
return
}
pass $testname
}
# run_list_test_arch NAME OPTS ARCH
#
# Invoke "run_list_test" for test NAME with options OPTS, with extra

20
gas/testsuite/gas/mmix/mmix-list.exp
View File

@ -1,4 +1,4 @@
# Copyright (C) 2001 Free Software Foundation, Inc.
# Copyright (C) 2001, 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
@ -18,24 +18,6 @@ if { ! [istarget "mmix-*"] } {
return
}
proc run_list_test { name opts } {
global srcdir subdir runtests
if ![runtest_file_p $runtests $name] then {
return
}
set testname "mmix list $name"
set file $srcdir/$subdir/$name
gas_run ${name}.s $opts ">&dump.out"
if { [regexp_diff "dump.out" "${file}.l"] } then {
fail $testname
verbose "output is [file_contents "dump.out"]" 2
return
}
pass $testname
}
proc run_mmix_list_tests { } {
global srcdir subdir runtests
foreach test_name [lsort [find ${srcdir}/${subdir} *.l]] {

16
gas/testsuite/gas/mn10300/basic.exp
View File

@ -1,4 +1,4 @@
# Copyright (C) 1996, 2000, 2002, 2004 Free Software Foundation, Inc.
# Copyright (C) 1996, 2000, 2002, 2004, 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
@ -1768,20 +1768,6 @@ proc do_am33_8 {} {
if [expr $x==67] then { pass $testname } else { fail $testname }
}
proc run_list_test { name opts } {
global srcdir subdir
set testname "mn10300 $name"
set file $srcdir/$subdir/$name
gas_run ${name}.s $opts ">&dump.out"
if { [regexp_diff "dump.out" "${file}.l"] } then {
fail $testname
verbose "output is [file_contents "dump.out"]" 2
return
}
pass $testname
}
if [istarget mn10300*-*-*] then {
# Test the basic instruction parser.
do_add

13
gas/testsuite/gas/msp430/msp430.exp
View File

@ -1,19 +1,6 @@
#
# msp430 tests
#
proc run_list_test { name opts } {
global srcdir subdir
set testname "msp430 $name"
set file $srcdir/$subdir/$name
gas_run ${name}.s $opts ">&dump.out"
if { [regexp_diff "dump.out" "${file}.l"] } then {
fail $testname
verbose "output is [file_contents "dump.out"]" 2
exit
return
}
pass $testname
}
if [expr [istarget "msp430-*-*"]] then {
run_dump_test "opcode"

13
gas/testsuite/gas/pdp11/pdp11.exp
View File

@ -1,19 +1,6 @@
#
# pdp11/pdp11 tests
#
proc run_list_test { name opts } {
global srcdir subdir
set testname "pdp11 $name"
set file $srcdir/$subdir/$name
gas_run ${name}.s $opts ">&dump.out"
if { [regexp_diff "dump.out" "${file}.l"] } then {
fail $testname
verbose "output is [file_contents "dump.out"]" 2
exit
return
}
pass $testname
}
if [expr [istarget "pdp11-*-*"]] then {

13
gas/testsuite/gas/ppc/ppc.exp
View File

@ -2,19 +2,6 @@
# Some PowerPC tests
#
proc run_list_test { name opts } {
global srcdir subdir
set testname "ppc $name"
set file $srcdir/$subdir/$name
gas_run ${name}.s $opts ">&dump.out"
if { [regexp_diff "dump.out" "${file}.l"] } then {
fail $testname
verbose "output is [file_contents "dump.out"]" 2
return
}
pass $testname
}
# These tests are currently ELF specific, only because nobody has
# converted them to look for XCOFF relocations.

13
gas/testsuite/gas/s390/s390.exp
View File

@ -1,19 +1,6 @@
#
# s390/s390x tests
#
proc run_list_test { name opts } {
global srcdir subdir
set testname "s390 $name"
set file $srcdir/$subdir/$name
gas_run ${name}.s $opts ">&dump.out"
if { [regexp_diff "dump.out" "${file}.l"] } then {
fail $testname
verbose "output is [file_contents "dump.out"]" 2
exit
return
}
pass $testname
}
if [expr [istarget "s390-*-*"] || [istarget "s390x-*-*"]] then {

2
gas/testsuite/gas/sparc/pr4587.l Normal file
View File

@ -0,0 +1,2 @@
.*pr4587.s: Assembler messages:
.*pr4587.s:18: Error: Illegal operands

22
gas/testsuite/gas/sparc/pr4587.s Normal file
View File

@ -0,0 +1,22 @@
.section .data
.align 4
zero: .single 0.0
.section .text
.align 4
.global main
main:
save %sp, -96, %sp
! Zero-out the first FP register
set zero, %l0
ld [%l0], %f0
! Compare it to itself
! The third reg (%f0) will cause a segfault in as
! fcmps only takes two regs... this should be illegal operand error
fcmps %f0, %f0, %f0
! Return 0
ret
restore %g0, %g0, %o0

2
gas/testsuite/gas/sparc/sparc.exp
View File

@ -53,6 +53,8 @@ if [istarget sparc*-*-*] {
run_dump_test "v9branch3"
run_dump_test "v9branch4"
run_dump_test "v9branch5"
run_list_test "pr4587" ""
}
if [istarget sparc-*-vxworks*] {

24
gas/testsuite/lib/gas-defs.exp
View File

@ -1,5 +1,5 @@
# Copyright (C) 1993, 1994, 1997, 1998, 1999, 2000, 2001, 2002, 2003,
# 2004, 2005 Free Software Foundation, Inc.
# 2004, 2005, 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
@ -888,3 +888,25 @@ if ![string length [info proc prune_warnings]] {
return $text
}
}
# run_list_test NAME OPTS (optional): TESTNAME
#
# Assemble the file "NAME.d" with command line options OPTS and
# compare the assembler standard error output against thee regular
# expressions given in the file "NAME.l". If TESTNAME is provided,
# it will be used as the name of the test.
proc run_list_test { name opts {testname {}} } {
global srcdir subdir
if { [string length $testname] == 0 } then {
set testname "[file tail $subdir] $name"
}
set file $srcdir/$subdir/$name
gas_run ${name}.s $opts ">&dump.out"
if { [regexp_diff "dump.out" "${file}.l"] } then {
fail $testname
verbose "output is [file_contents "dump.out"]" 2
return
}
pass $testname
}