OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [binutils-2.18.50/] [ld/] [testsuite/] [ld-xtensa/] [coalesce.exp] - Blame information for rev 816

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 38 julius
# Test literal coaslescing for Xtensa targets.
2
# By David Heine, Tensilica, Inc.
3
#   Copyright 2002, 2003, 2007
4
#   Free Software Foundation, Inc.
5
#
6
# This file is part of the GNU Binutils.
7
#
8
# This program is free software; you can redistribute it and/or modify
9
# it under the terms of the GNU General Public License as published by
10
# the Free Software Foundation; either version 3 of the License, or
11
# (at your option) any later version.
12
#
13
# This program is distributed in the hope that it will be useful,
14
# but WITHOUT ANY WARRANTY; without even the implied warranty of
15
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16
# GNU General Public License for more details.
17
#
18
# You should have received a copy of the GNU General Public License
19
# along with this program; if not, write to the Free Software
20
# Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
21
# MA 02110-1301, USA.
22
 
23
if ![istarget "xtensa*-*-*"] {
24
    return
25
}
26
 
27
set testname "COALESCE"
28
 
29
set OBJDUMPFLAGS "-dr"
30
 
31
#
32
# default_ld_objdump
33
#       run objdump on a file
34
#
35
proc default_ld_objdump { objdump object outputfile } {
36
    global OBJDUMPFLAGS
37
    global objdump_output
38
    global host_triplet
39
 
40
    if {[which $objdump] == 0} then {
41
        perror "$objdump does not exist"
42
        return 0
43
    }
44
 
45
    if ![info exists OBJDUMPFLAGS] { set OBJDUMPFLAGS "" }
46
 
47
    verbose -log "$objdump $OBJDUMPFLAGS $object >$outputfile"
48
 
49
    catch "exec $objdump $OBJDUMPFLAGS $object >$outputfile" exec_output
50
    set exec_output [prune_warnings $exec_output]
51
    if [string match "" $exec_output] then {
52
        return 1
53
    } else {
54
        verbose -log "$exec_output"
55
        perror "$object: objdump failed"
56
        return 0
57
    }
58
}
59
 
60
 
61
if ![ld_assemble $as $srcdir/$subdir/coalesce1.s tmpdir/coalesce1.o] {
62
    unresolved $testname
63
    return
64
}
65
if ![ld_assemble $as $srcdir/$subdir/coalesce2.s tmpdir/coalesce2.o] {
66
    unresolved $testname
67
    return
68
}
69
 
70
set object "tmpdir/coalesce"
71
set outputfile "$object.txt"
72
 
73
if ![ld_simple_link $ld $object "-T $srcdir/$subdir/coalesce.t tmpdir/coalesce1.o tmpdir/coalesce2.o"] {
74
    verbose -log "failure in ld"
75
    fail $testname
76
    return
77
}
78
 
79
if ![default_ld_objdump $objdump $object $outputfile ] {
80
    verbose -log "failure in objdump"
81
    fail $testname
82
    return
83
}
84
 
85
set file [open $outputfile r]
86
set found 0
87
 
88
while { [gets $file line] != -1 } {
89
    #   verbose "$line" 2
90
    if [regexp "^0000000c 
:" $line] {
91
        set found 1
92
    }
93
}
94
close $file
95
if  $found  {
96
   pass $testname
97
} else {
98
   fail $testname
99
}
100
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.