1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
# SPDX-FileCopyrightText: 2004 2007-2012 Free Software Foundation, Inc.
#
# SPDX-License-Identifier: GPL-3.0-or-later
# Compile some Ada code.
proc gdb_compile_ada {source dest type options} {
set srcdir [file dirname $source]
set gprdir [file dirname $srcdir]
set objdir [file dirname $dest]
append options " ada"
append options " additional_flags=-P$gprdir/gnat_ada"
append options " additional_flags=-XSRC=[file tail $srcdir]"
append options " additional_flags=-XOBJ=$objdir"
set result [target_compile [file tail $source] $dest $type $options]
# The Ada build always produces some output, even when the build
# succeeds. Thus, we can not use the output the same way we do in
# gdb_compile to determine whether the build has succeeded or not.
# We therefore simply check whether the dest file has been created
# or not. Unless not present, the build has succeeded.
if [file exists $dest] { set result "" }
gdb_compile_test $source $result
return $result
}
|
