blob: 17e58fd7704e7cce3fc1eb7560f9f028d4f3e65a (
plain)
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
# SPDX-License-Identifier: MIT
# Copyright (c) 2024 Leah Rowe <leah@libreboot.org>
eval `setvars "" gccver gccfull gnatver gnatfull gccdir`
# fix mismatching gcc/gnat versions on debian trixie/sid
check_gnat_path()
{
rm -f xbmkpath/* || $err "Cannot clear xbmkpath/"
eval `setvars "" gccver gccfull gnatver gnatfull gccdir`
gnu_setver gcc gcc || $err "Command 'gcc' unavailable."
gnu_setver gnat gnat || :
[ -z "$gccver" ] && $err "Cannot detect host GCC version"
[ "$gnatfull" = "$gccfull" ] && return 0
gccdir="$(dirname "$(command -v gcc)")"
for _gnatbin in "$gccdir/gnat-"*; do
[ -f "$_gnatbin" ] || continue
[ "${_gnatbin#"$gccdir/gnat-"}" = "$gccver" ] || continue
gnatver="${_gnatbin#"$gccdir/gnat-"}"; break
done
gnu_setver "gnat" "$gccdir/gnat-$gccver" || $err "Unknown gnat version"
[ "$gnatfull" = "$gccfull" ] || $err "GCC/GNAT versions do not match."
(
x_ cd xbmkpath
for _gnatbin in "$gccdir/gnat"*"-$gccver"; do
[ -e "$_gnatbin" ] || continue; _gnatutil="${_gnatbin##*/}"
x_ ln -s "$_gnatbin" "${_gnatutil%"-$gccver"}"
done
) || $err "Cannot create gnat-$gccver link in $gccdir"; :
}
gnu_setver()
{
eval "$2 --version 1>/dev/null 2>/dev/null || return 1"
eval "${1}ver=\"`$2 --version 2>/dev/null | head -n1`\""
eval "${1}ver=\"\${${1}ver##* }\""
eval "${1}full=\"\${$1}ver\""
eval "${1}ver=\"\${${1}ver%%.*}\""; :
}
|
