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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [lib/] [objc.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, 2000, 2001, 2002, 2004, 2005,
2
# 2007 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 objc_start, etc. and other supporting cast members.
23
 
24
# These globals are used by objc_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
load_lib libgloss.exp
29
load_lib prune.exp
30
load_lib gcc-defs.exp
31
load_lib target-libpath.exp
32
 
33
#
34
# OBJC_UNDER_TEST is the compiler under test.
35
#
36
 
37
#
38
# default_objc_version -- extract and print the version number of the compiler
39
#
40
 
41
proc default_objc_version { } {
42
    global OBJC_UNDER_TEST
43
 
44
    objc_init
45
 
46
    # ignore any arguments after the command
47
    set compiler [lindex $OBJC_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
# Call objc_version. We do it this way so we can override it if needed.
74
#
75
proc objc_version { } {
76
    default_objc_version
77
}
78
 
79
#
80
# objc_init -- called at the start of each .exp script.
81
#
82
# There currently isn't much to do, but always using it allows us to
83
# make some enhancements without having to go back and rewrite the scripts.
84
#
85
 
86
set objc_initialized 0
87
 
88
proc objc_init { args } {
89
    global rootme
90
    global tmpdir
91
    global libdir
92
    global gluefile wrap_flags
93
    global objc_initialized
94
    global OBJC_UNDER_TEST
95
    global TOOL_EXECUTABLE
96
    global objc_libgcc_s_path
97
 
98
    # We set LC_ALL and LANG to C so that we get the same error messages as expected.
99
    setenv LC_ALL C
100
    setenv LANG C
101
 
102
    if { $objc_initialized == 1 } { return; }
103
 
104
    if ![info exists OBJC_UNDER_TEST] then {
105
        if [info exists TOOL_EXECUTABLE] {
106
            set OBJC_UNDER_TEST $TOOL_EXECUTABLE
107
        } else {
108
            set OBJC_UNDER_TEST [find_gcc]
109
        }
110
    }
111
 
112
    if ![info exists tmpdir] then {
113
        set tmpdir /tmp
114
    }
115
 
116
    objc_maybe_build_wrapper "${tmpdir}/objc-testglue.o"
117
 
118
    append objc_libgcc_s_path [gcc-set-multilib-library-path $OBJC_UNDER_TEST]
119
}
120
 
121
proc objc_target_compile { source dest type options } {
122
    global rootme
123
    global tmpdir
124
    global gluefile wrap_flags
125
    global srcdir
126
    global OBJC_UNDER_TEST
127
    global TOOL_OPTIONS
128
    global ld_library_path
129
    global objc_libgcc_s_path
130
    global shlib_ext
131
 
132
    set ld_library_path ".:${objc_libgcc_s_path}"
133
    lappend options "libs=-lobjc"
134
    set shlib_ext [get_shlib_extension]
135
    verbose "shared lib extension: $shlib_ext"
136
 
137
    if { [target_info needs_status_wrapper]!="" && [info exists gluefile] } {
138
        lappend options "libs=${gluefile}"
139
        lappend options "ldflags=$wrap_flags"
140
    }
141
 
142
    if [target_info exists objc,stack_size] {
143
        lappend options "additional_flags=-DSTACK_SIZE=[target_info objc,stack_size]"
144
    }
145
    if [target_info exists objc,no_trampolines] {
146
        lappend options "additional_flags=-DNO_TRAMPOLINES"
147
    }
148
    if [target_info exists objc,no_label_values] {
149
        lappend options "additional_flags=-DNO_LABEL_VALUES"
150
    }
151
    # TOOL_OPTIONS must come first, so that it doesn't override testcase
152
    # specific options.
153
    if [info exists TOOL_OPTIONS] {
154
        set options [concat "{additional_flags=$TOOL_OPTIONS}" $options]
155
    }
156
 
157
    # If we have built libobjc along with the compiler (which usually
158
    # _is not_ the case on Mac OS X systems), point the test harness
159
    # at it (and associated headers).
160
 
161
    set objcpath "[get_multilibs]"
162
 
163
    set libobjc_dir [lookfor_file ${objcpath} libobjc/.libs/libobjc.a]
164
    if { $libobjc_dir == ""} {
165
      verbose "see if we have -fgnu-runtime in options"
166
      if [regexp ".*-fgnu-runtime.*" "${options}"] {
167
        set libobjc_dir [lookfor_file ${objcpath} libobjc/.libs/libobjc-gnu.a]
168
      }
169
    }
170
    # Now check if we have a shared only build.
171
    if { $libobjc_dir == ""} {
172
     set libobjc_dir \
173
         [lookfor_file ${objcpath} libobjc/.libs/libobjc.${shlib_ext}]
174
    }
175
    if { $libobjc_dir == ""} {
176
        verbose "see if we have -fgnu-runtime in options"
177
        if [regexp ".*-fgnu-runtime.*" "${options}"] {
178
         set libobjc_dir \
179
             [lookfor_file ${objcpath} libobjc/.libs/libobjc-gnu.${shlib_ext}]
180
        }
181
    }
182
    if { $libobjc_dir != "" } {
183
        set objc_include_dir "${srcdir}/../../libobjc"
184
        lappend options "additional_flags=-I${objc_include_dir}"
185
        set libobjc_dir [file dirname ${libobjc_dir}]
186
        set objc_link_flags "-L${libobjc_dir}"
187
        lappend options "additional_flags=${objc_link_flags}"
188
        append ld_library_path ":${libobjc_dir}"
189
    }
190
    if { $type == "precompiled_header" } {
191
        # If we generating a precompiled header, we have say this is an
192
        # objective-C header
193
        set source [concat "-x objective-c-header" $source]
194
    }
195
    lappend options "compiler=$OBJC_UNDER_TEST"
196
 
197
    set_ld_library_path_env_vars
198
 
199
    return [target_compile $source $dest $type $options]
200
}
201
 
202
#
203
# objc_pass -- utility to record a testcase passed
204
#
205
 
206
proc objc_pass { testcase cflags } {
207
    if { "$cflags" == "" } {
208
        pass "$testcase"
209
    } else {
210
        pass "$testcase, $cflags"
211
    }
212
}
213
 
214
#
215
# objc_fail -- utility to record a testcase failed
216
#
217
 
218
proc objc_fail { testcase cflags } {
219
    if { "$cflags" == "" } {
220
        fail "$testcase"
221
    } else {
222
        fail "$testcase, $cflags"
223
    }
224
}
225
 
226
#
227
# objc_finish -- called at the end of every .exp script that calls objc_init
228
#
229
# The purpose of this proc is to hide all quirks of the testing environment
230
# from the testsuites.  It also exists to undo anything that objc_init did
231
# (that needs undoing).
232
#
233
 
234
proc objc_finish { } {
235
    # The testing harness apparently requires this.
236
    global errorInfo
237
 
238
    if [info exists errorInfo] then {
239
        unset errorInfo
240
    }
241
 
242
    # Might as well reset these (keeps our caller from wondering whether
243
    # s/he has to or not).
244
    global prms_id bug_id
245
    set prms_id 0
246
    set bug_id 0
247
}
248
 
249
proc objc_exit { } {
250
    global gluefile
251
 
252
    if [info exists gluefile] {
253
        file_on_build delete $gluefile
254
        unset gluefile
255
    }
256
}
257
 
258
# If this is an older version of dejagnu (without runtest_file_p),
259
# provide one and assume the old syntax: foo1.exp bar1.c foo2.exp bar2.c.
260
# This can be deleted after next dejagnu release.
261
 
262
if { [info procs runtest_file_p] == "" } then {
263
    proc runtest_file_p { runtests testcase } {
264
        if { $runtests != "" && [regexp "\[.\]\[cC\]" $runtests] } then {
265
            if { [lsearch $runtests [file tail $testcase]] >= 0 } then {
266
                return 1
267
            } else {
268
                return 0
269
            }
270
        }
271
        return 1
272
    }
273
}
274
 
275
# Provide a definition of this if missing (delete after next dejagnu release).
276
 
277
if { [info procs prune_warnings] == "" } then {
278
    proc prune_warnings { text } {
279
        return $text
280
    }
281
}
282
 
283
# Utility used by mike-gcc.exp and c-torture.exp.
284
# Check the compiler(/assembler/linker) output for text indicating that
285
# the testcase should be marked as "unsupported".
286
#
287
# When dealing with a large number of tests, it's difficult to weed out the
288
# ones that are too big for a particular cpu (eg: 16 bit with a small amount
289
# of memory).  There are various ways to deal with this.  Here's one.
290
# Fortunately, all of the cases where this is likely to happen will be using
291
# gld so we can tell what the error text will look like.
292
 
293
proc ${tool}_check_unsupported_p { output } {
294
    if [regexp "(^|\n)\[^\n\]*: region \[^\n\]* is full" $output] {
295
        return "memory full"
296
    }
297
    return ""
298
}
299
 
300
# Prune messages from objc that aren't useful.
301
 
302
proc prune_objc_output { text } {
303
    #send_user "Before:$text\n"
304
    regsub -all "(^|\n)\[^\n\]*: In (function|method) \[^\n\]*" $text "" text
305
    regsub -all "(^|\n)\[^\n\]*: At top level:\[^\n\]*" $text "" text
306
 
307
    # It would be nice to avoid passing anything to objc that would cause it to
308
    # issue these messages (since ignoring them seems like a hack on our part),
309
    # but that's too difficult in the general case.  For example, sometimes
310
    # you need to use -B to point objc at crt0.o, but there are some targets
311
    # that don't have crt0.o.
312
    regsub -all "(^|\n)\[^\n\]*file path prefix \[^\n\]* never used" $text "" text
313
    regsub -all "(^|\n)\[^\n\]*linker input file unused since linking not done" $text "" text
314
 
315
    #send_user "After:$text\n"
316
 
317
    return $text
318
}
319
 

powered by: WebSVN 2.1.0

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