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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [lib/] [gcc.exp] - Blame information for rev 816

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 149 jeremybenn
# Copyright (C) 1992, 1993, 1994, 1996, 1997, 1999, 2000, 2001, 2003, 2004, 2007
2
# Free Software Foundation, Inc.
3
 
4
# This program is free software; you can redistribute it and/or modify
5
# it under the terms of the GNU General Public License as published by
6
# the Free Software Foundation; either version 3 of the License, or
7
# (at your option) any later version.
8
#
9
# This program is distributed in the hope that it will be useful,
10
# but WITHOUT ANY WARRANTY; without even the implied warranty of
11
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12
# GNU General Public License for more details.
13
#
14
# You should have received a copy of the GNU General Public License
15
# along with GCC; see the file COPYING3.  If not see
16
# .
17
 
18
# This file was written by Rob Savoye (rob@cygnus.com)
19
# Currently maintained by Doug Evans (dje@cygnus.com)
20
 
21
# This file is loaded by the tool init file (eg: unix.exp).  It provides
22
# default definitions for gcc_start, etc. and other supporting cast members.
23
 
24
# These globals are used by gcc_start if no compiler arguments are provided.
25
# They are also used by the various testsuites to define the environment:
26
# where to find stdio.h, libc.a, etc.
27
 
28
# we want to use libgloss so we can get find_gcc.
29
load_lib libgloss.exp
30
load_lib prune.exp
31
load_lib gcc-defs.exp
32
 
33
#
34
# GCC_UNDER_TEST is the compiler under test.
35
#
36
 
37
#
38
# default_gcc_version -- extract and print the version number of the compiler
39
#
40
 
41
proc default_gcc_version { } {
42
    global GCC_UNDER_TEST
43
 
44
    gcc_init
45
 
46
    # ignore any arguments after the command
47
    set compiler [lindex $GCC_UNDER_TEST 0]
48
 
49
    if ![is_remote host] {
50
        set compiler_name [which $compiler]
51
    } else {
52
        set compiler_name $compiler
53
    }
54
 
55
    # verify that the compiler exists
56
    if { $compiler_name != 0 } then {
57
        set tmp [remote_exec host "$compiler -v"]
58
        set status [lindex $tmp 0]
59
        set output [lindex $tmp 1]
60
        regexp " version \[^\n\r\]*" $output version
61
        if { $status == 0 && [info exists version] } then {
62
            clone_output "$compiler_name $version\n"
63
        } else {
64
            clone_output "Couldn't determine version of $compiler_name: $output\n"
65
        }
66
    } else {
67
        # compiler does not exist (this should have already been detected)
68
        warning "$compiler does not exist"
69
    }
70
}
71
 
72
#
73
# gcc_version -- Call default_gcc_version, so we can override it if needed.
74
#
75
 
76
proc gcc_version { } {
77
    default_gcc_version
78
}
79
 
80
#
81
# gcc_init -- called at the start of each .exp script.
82
#
83
# There currently isn't much to do, but always using it allows us to
84
# make some enhancements without having to go back and rewrite the scripts.
85
#
86
 
87
set gcc_initialized 0
88
 
89
proc gcc_init { args } {
90
    global tmpdir
91
    global libdir
92
    global gluefile wrap_flags
93
    global gcc_initialized
94
    global GCC_UNDER_TEST
95
    global TOOL_EXECUTABLE
96
 
97
    if { $gcc_initialized == 1 } { return; }
98
 
99
    if ![info exists GCC_UNDER_TEST] {
100
        if [info exists TOOL_EXECUTABLE] {
101
            set GCC_UNDER_TEST $TOOL_EXECUTABLE
102
        } else {
103
            set GCC_UNDER_TEST "[find_gcc]"
104
        }
105
    }
106
 
107
    if ![info exists tmpdir] then {
108
        set tmpdir /tmp
109
    }
110
 
111
    gcc_maybe_build_wrapper "${tmpdir}/gcc-testglue.o"
112
}
113
 
114
#
115
# gcc_target_compile -- compile a source file
116
#
117
 
118
proc gcc_target_compile { source dest type options } {
119
    global tmpdir
120
    global gluefile wrap_flags
121
    global GCC_UNDER_TEST
122
    global TOOL_OPTIONS
123
 
124
    if {[target_info needs_status_wrapper] != "" && \
125
            [target_info needs_status_wrapper] != "0" && \
126
            [info exists gluefile] } {
127
        lappend options "libs=${gluefile}"
128
        lappend options "ldflags=$wrap_flags"
129
    }
130
 
131
    if [target_info exists gcc,stack_size] {
132
        lappend options "additional_flags=-DSTACK_SIZE=[target_info gcc,stack_size]"
133
    }
134
    if [target_info exists gcc,no_trampolines] {
135
        lappend options "additional_flags=-DNO_TRAMPOLINES"
136
    }
137
    if [target_info exists gcc,no_label_values] {
138
        lappend options "additional_flags=-DNO_LABEL_VALUES"
139
    }
140
    # TOOL_OPTIONS must come first, so that it doesn't override testcase
141
    # specific options.
142
    if [info exists TOOL_OPTIONS] {
143
        set options [concat "{additional_flags=$TOOL_OPTIONS}" $options]
144
    }
145
    if [target_info exists gcc,timeout] {
146
        lappend options "timeout=[target_info gcc,timeout]"
147
    }
148
    lappend options "additional_flags=-fno-show-column"
149
    lappend options "compiler=$GCC_UNDER_TEST"
150
    set options [dg-additional-files-options $options $source]
151
    return [target_compile $source $dest $type $options]
152
}

powered by: WebSVN 2.1.0

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