2001-06-06 H.J. Lu <hjl@gnu.org>
* gas/elf/elf.exp (run_list_test): New. Run section2 with run_list_test. * gas/elf/section2.e: New file. * gas/elf/section2.l: Likewise. * gas/elf/section2.s: Likewise.
This commit is contained in:
parent
66517a2f18
commit
5b5032ebbd
@ -1,3 +1,12 @@
|
|||||||
|
2001-06-06 H.J. Lu <hjl@gnu.org>
|
||||||
|
|
||||||
|
* gas/elf/elf.exp (run_list_test): New.
|
||||||
|
Run section2 with run_list_test.
|
||||||
|
|
||||||
|
* gas/elf/section2.e: New file.
|
||||||
|
* gas/elf/section2.l: Likewise.
|
||||||
|
* gas/elf/section2.s: Likewise.
|
||||||
|
|
||||||
2001-06-04 H.J. Lu <hjl@gnu.org>
|
2001-06-04 H.J. Lu <hjl@gnu.org>
|
||||||
|
|
||||||
* gas/mips/mips4010.s: Add the missing ".end".
|
* gas/mips/mips4010.s: Add the missing ".end".
|
||||||
|
@ -2,6 +2,33 @@
|
|||||||
# elf tests
|
# elf tests
|
||||||
#
|
#
|
||||||
|
|
||||||
|
proc run_list_test { name opts } {
|
||||||
|
global READELF
|
||||||
|
global srcdir subdir
|
||||||
|
set testname "elf $name list"
|
||||||
|
set file $srcdir/$subdir/$name
|
||||||
|
gas_run ${name}.s "$opts -o dump.o" ">&dump.out"
|
||||||
|
if { [regexp_diff "dump.out" "${file}.l"] } then {
|
||||||
|
fail $testname
|
||||||
|
verbose "output is [file_contents "dump.out"]" 2
|
||||||
|
return
|
||||||
|
}
|
||||||
|
send_log "$READELF -s dump.o > dump.out\n"
|
||||||
|
catch "exec $READELF -s dump.o > dump.out\n" comp_output
|
||||||
|
if ![string match "" $comp_output] then {
|
||||||
|
send_log "$comp_output\n"
|
||||||
|
fail $testname
|
||||||
|
return
|
||||||
|
}
|
||||||
|
verbose_eval {[file_contents "dump.out"]} 3
|
||||||
|
if { [regexp_diff "dump.out" "${file}.e"] } then {
|
||||||
|
fail $testname
|
||||||
|
verbose "output is [file_contents "dump.out"]" 2
|
||||||
|
return
|
||||||
|
}
|
||||||
|
pass $testname
|
||||||
|
}
|
||||||
|
|
||||||
# We're testing bits in obj-elf -- don't run on anything else.
|
# We're testing bits in obj-elf -- don't run on anything else.
|
||||||
if { ([istarget "*-*-elf*"]
|
if { ([istarget "*-*-elf*"]
|
||||||
|| [istarget "*-*-linux*"]
|
|| [istarget "*-*-linux*"]
|
||||||
@ -14,4 +41,5 @@ if { ([istarget "*-*-elf*"]
|
|||||||
run_dump_test "ehopt0"
|
run_dump_test "ehopt0"
|
||||||
run_dump_test "section0"
|
run_dump_test "section0"
|
||||||
run_dump_test "section1"
|
run_dump_test "section1"
|
||||||
|
run_list_test "section2" "-al"
|
||||||
}
|
}
|
||||||
|
8
gas/testsuite/gas/elf/section2.e
Normal file
8
gas/testsuite/gas/elf/section2.e
Normal file
@ -0,0 +1,8 @@
|
|||||||
|
|
||||||
|
Symbol table '.symtab' contains 5 entries:
|
||||||
|
Num: Value Size Type Bind Vis Ndx Name
|
||||||
|
0: 00000000 0 NOTYPE LOCAL DEFAULT UND
|
||||||
|
1: 00000000 0 SECTION LOCAL DEFAULT 1
|
||||||
|
2: 00000000 0 SECTION LOCAL DEFAULT 2
|
||||||
|
3: 00000000 0 SECTION LOCAL DEFAULT 3
|
||||||
|
4: 00000000 0 SECTION LOCAL DEFAULT 4
|
8
gas/testsuite/gas/elf/section2.l
Normal file
8
gas/testsuite/gas/elf/section2.l
Normal file
@ -0,0 +1,8 @@
|
|||||||
|
.*: Assembler messages:
|
||||||
|
.*:2: Warning: Section symbols are already global
|
||||||
|
GAS LISTING .*
|
||||||
|
|
||||||
|
|
||||||
|
1 .section A
|
||||||
|
2 .global A
|
||||||
|
3 0000 31 .byte 49
|
3
gas/testsuite/gas/elf/section2.s
Normal file
3
gas/testsuite/gas/elf/section2.s
Normal file
@ -0,0 +1,3 @@
|
|||||||
|
.section A
|
||||||
|
.global A
|
||||||
|
.byte 49
|
Loading…
Reference in New Issue
Block a user