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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gdb-7.2/] [gdb/] [testsuite/] [lib/] [java.exp] - Blame information for rev 330

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 330 jeremybenn
# This test code is part of GDB, the GNU debugger.
2
 
3
# Copyright 1998, 1999, 2000, 2003, 2004, 2006, 2007, 2008, 2009, 2010
4
# Free Software Foundation, Inc.
5
 
6
# This program is free software; you can redistribute it and/or modify
7
# it under the terms of the GNU General Public License as published by
8
# the Free Software Foundation; either version 3 of the License, or
9
# (at your option) any later version.
10
#
11
# This program is distributed in the hope that it will be useful,
12
# but WITHOUT ANY WARRANTY; without even the implied warranty of
13
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14
# GNU General Public License for more details.
15
#
16
# You should have received a copy of the GNU General Public License
17
# along with this program.  If not, see .
18
 
19
load_lib "libgloss.exp"
20
 
21
# GCJ_UNDER_TEST is the compiler under test.
22
 
23
global tmpdir
24
 
25
if ![info exists tmpdir] {
26
    set tmpdir "/tmp"
27
}
28
 
29
set java_initialized 0
30
 
31
#
32
# Build the status wrapper library as needed.
33
#
34
proc java_init { args } {
35
    global wrapper_file;
36
    global wrap_compile_flags;
37
    global java_initialized
38
    global GCJ_UNDER_TEST
39
    global TOOL_EXECUTABLE
40
    global env
41
 
42
    if { $java_initialized == 1 } { return; }
43
 
44
    if ![info exists GCJ_UNDER_TEST] {
45
        if [info exists TOOL_EXECUTABLE] {
46
            set GCJ_UNDER_TEST $TOOL_EXECUTABLE;
47
        } else {
48
            if { [info exists env(GCJ)] && $env(GCJ) != "" } {
49
                set GCJ_UNDER_TEST $env(GCJ)
50
            } else {
51
                global tool_root_dir
52
                global target_alias
53
 
54
                if ![is_remote host] {
55
                    set file [lookfor_file $tool_root_dir gcj];
56
                    if { $file == "" } {
57
                        set file [lookfor_file $tool_root_dir gcc/gcj];
58
                    }
59
                    if { $file != "" } {
60
                        set CC "$file -B[file dirname $file]/ --specs=$tool_root_dir/$target_alias/libjava/libgcj-test.spec";
61
                    } else {
62
                        set CC [transform gcj];
63
                    }
64
                } else {
65
                    set CC [transform gcj]
66
                }
67
                set GCJ_UNDER_TEST $CC
68
            }
69
        }
70
    }
71
 
72
    set wrapper_file "";
73
    set wrap_compile_flags "";
74
    if [target_info exists needs_status_wrapper] {
75
        set result [build_wrapper "testglue.o"];
76
        if { $result != "" } {
77
            set wrapper_file [lindex $result 0];
78
            set wrap_compile_flags [lindex $result 1];
79
        } else {
80
            warning "Status wrapper failed to build."
81
        }
82
    }
83
 
84
    set java_initialized 1
85
}
86
 
87
#
88
# Run the test specified by srcfile and resultfile. compile_args and
89
# exec_args are options telling this proc how to work.
90
#
91
proc compile_java_from_source { srcfile binfile compile_args } {
92
    global GCJ_UNDER_TEST
93
    global java_initialized
94
 
95
    if { $java_initialized != 1 } { java_init }
96
 
97
    set args "compiler=$GCJ_UNDER_TEST"
98
    lappend args "additional_flags=--main=[file rootname [file tail $srcfile]]"
99
    if { $compile_args != "" } {
100
        lappend args "additional_flags=$compile_args"
101
    }
102
 
103
    set result [target_compile $srcfile ${binfile} executable $args]
104
    gdb_compile_test $srcfile $result
105
    return $result
106
}
107
 
108
# Local Variables:
109
# tcl-indent-level:4
110
# End:

powered by: WebSVN 2.1.0

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