1 |
vapier |
1.129 |
# Copyright 1999-2009 Gentoo Foundation |
2 |
verwilst |
1.1 |
# Distributed under the terms of the GNU General Public License v2 |
3 |
grobian |
1.133 |
# $Header: /var/cvsroot/gentoo-x86/eclass/flag-o-matic.eclass,v 1.132 2009/01/21 00:42:20 gengor Exp $ |
4 |
vapier |
1.121 |
|
5 |
|
|
# @ECLASS: flag-o-matic.eclass |
6 |
|
|
# @MAINTAINER: |
7 |
|
|
# toolchain@gentoo.org |
8 |
|
|
# @BLURB: common functions to manipulate and query toolchain flags |
9 |
|
|
# @DESCRIPTION: |
10 |
|
|
# This eclass contains a suite of functions to help developers sanely |
11 |
|
|
# and safely manage toolchain flags in their builds. |
12 |
vapier |
1.63 |
|
13 |
eradicator |
1.80 |
inherit eutils toolchain-funcs multilib |
14 |
vapier |
1.72 |
|
15 |
kevquinn |
1.92 |
################ DEPRECATED functions ################ |
16 |
|
|
# The following are still present to avoid breaking existing |
17 |
|
|
# code more than necessary; however they are deprecated. Please |
18 |
|
|
# use gcc-specs-* from toolchain-funcs.eclass instead, if you |
19 |
|
|
# need to know which hardened techs are active in the compiler. |
20 |
|
|
# See bug #100974 |
21 |
|
|
# |
22 |
vapier |
1.121 |
# has_hardened |
23 |
|
|
# has_pie |
24 |
|
|
# has_pic |
25 |
|
|
# has_ssp_all |
26 |
|
|
# has_ssp |
27 |
|
|
|
28 |
verwilst |
1.3 |
|
29 |
dberkholz |
1.124 |
# {C,CXX,F,FC}FLAGS that we allow in strip-flags |
30 |
vapier |
1.117 |
# Note: shell globs and character lists are allowed |
31 |
vapier |
1.36 |
setup-allowed-flags() { |
32 |
vapier |
1.84 |
if [[ -z ${ALLOWED_FLAGS} ]] ; then |
33 |
vapier |
1.76 |
export ALLOWED_FLAGS="-pipe" |
34 |
|
|
export ALLOWED_FLAGS="${ALLOWED_FLAGS} -O -O0 -O1 -O2 -mcpu -march -mtune" |
35 |
vapier |
1.87 |
export ALLOWED_FLAGS="${ALLOWED_FLAGS} -fstack-protector -fstack-protector-all" |
36 |
solar |
1.127 |
export ALLOWED_FLAGS="${ALLOWED_FLAGS} -fbounds-checking -fno-strict-overflow" |
37 |
kevquinn |
1.105 |
export ALLOWED_FLAGS="${ALLOWED_FLAGS} -fno-PIE -fno-pie -fno-unit-at-a-time" |
38 |
vapier |
1.117 |
export ALLOWED_FLAGS="${ALLOWED_FLAGS} -g -g[0-9] -ggdb -ggdb[0-9] -gstabs -gstabs+" |
39 |
vapier |
1.107 |
export ALLOWED_FLAGS="${ALLOWED_FLAGS} -fno-ident" |
40 |
dberkholz |
1.120 |
export ALLOWED_FLAGS="${ALLOWED_FLAGS} -W* -w" |
41 |
vapier |
1.44 |
fi |
42 |
vapier |
1.65 |
# allow a bunch of flags that negate features / control ABI |
43 |
vapier |
1.119 |
ALLOWED_FLAGS="${ALLOWED_FLAGS} -fno-stack-protector -fno-stack-protector-all \ |
44 |
solar |
1.127 |
-fno-strict-aliasing -fno-bounds-checking -fstrict-overflow" |
45 |
vapier |
1.87 |
ALLOWED_FLAGS="${ALLOWED_FLAGS} -mregparm -mno-app-regs -mapp-regs \ |
46 |
|
|
-mno-mmx -mno-sse -mno-sse2 -mno-sse3 -mno-3dnow \ |
47 |
|
|
-mips1 -mips2 -mips3 -mips4 -mips32 -mips64 -mips16 \ |
48 |
|
|
-msoft-float -mno-soft-float -mhard-float -mno-hard-float -mfpu \ |
49 |
vapier |
1.110 |
-mieee -mieee-with-inexact -mschedule \ |
50 |
vapier |
1.91 |
-mtls-direct-seg-refs -mno-tls-direct-seg-refs \ |
51 |
vapier |
1.87 |
-mflat -mno-flat -mno-faster-structs -mfaster-structs \ |
52 |
|
|
-m32 -m64 -mabi -mlittle-endian -mbig-endian -EL -EB -fPIC \ |
53 |
vapier |
1.114 |
-mlive-g0 -mcmodel -mstack-bias -mno-stack-bias \ |
54 |
solar |
1.127 |
-msecure-plt -m*-toc -D* -U*" |
55 |
grobian |
1.133 |
|
56 |
|
|
# killing these two on OSX/Intel will disable SSE, resulting in failing |
57 |
|
|
# compilations, as the headers expect SSE to be enabled (Apple knows what |
58 |
|
|
# hardware they run on afterall, don't they?) |
59 |
|
|
[[ ${CHOST} == i?86-apple-darwin* ]] \ |
60 |
|
|
&& ALLOWED_FLAGS="${ALLOWED_FLAGS} -march=prescott -march=nocona" |
61 |
vapier |
1.36 |
|
62 |
dberkholz |
1.124 |
# {C,CXX,F,FC}FLAGS that we are think is ok, but needs testing |
63 |
vapier |
1.36 |
# NOTE: currently -Os have issues with gcc3 and K6* arch's |
64 |
vapier |
1.106 |
export UNSTABLE_FLAGS="-Os -O3 -freorder-blocks" |
65 |
vapier |
1.36 |
return 0 |
66 |
aliz |
1.24 |
} |
67 |
verwilst |
1.13 |
|
68 |
kevquinn |
1.105 |
# inverted filters for hardened compiler. This is trying to unpick |
69 |
|
|
# the hardened compiler defaults. |
70 |
|
|
_filter-hardened() { |
71 |
|
|
local f |
72 |
|
|
for f in "$@" ; do |
73 |
|
|
case "${f}" in |
74 |
|
|
# Ideally we should only concern ourselves with PIE flags, |
75 |
|
|
# not -fPIC or -fpic, but too many places filter -fPIC without |
76 |
|
|
# thinking about -fPIE. |
77 |
|
|
-fPIC|-fpic|-fPIE|-fpie|-Wl,pie|-pie) |
78 |
|
|
gcc-specs-pie || continue |
79 |
|
|
is-flagq -nopie || append-flags -nopie;; |
80 |
|
|
-fstack-protector) |
81 |
|
|
gcc-specs-ssp || continue |
82 |
gengor |
1.131 |
is-flagq -fno-stack-protector || append-flags $(test-flags -fno-stack-protector);; |
83 |
kevquinn |
1.105 |
-fstack-protector-all) |
84 |
|
|
gcc-specs-ssp-to-all || continue |
85 |
gengor |
1.131 |
is-flagq -fno-stack-protector-all || append-flags $(test-flags -fno-stack-protector-all);; |
86 |
gengor |
1.128 |
-fno-strict-overflow) |
87 |
|
|
gcc-specs-nostrict || continue |
88 |
gengor |
1.131 |
is-flagq -fstrict-overflow || append-flags $(test-flags -fstrict-overflow);; |
89 |
solar |
1.27 |
esac |
90 |
|
|
done |
91 |
kevquinn |
1.105 |
} |
92 |
|
|
|
93 |
|
|
# Remove occurrences of strings from variable given in $1 |
94 |
|
|
# Strings removed are matched as globs, so for example |
95 |
|
|
# '-O*' would remove -O1, -O2 etc. |
96 |
|
|
_filter-var() { |
97 |
|
|
local f x VAR VAL |
98 |
|
|
declare -a new |
99 |
vapier |
1.36 |
|
100 |
kevquinn |
1.105 |
VAR=$1 |
101 |
|
|
shift |
102 |
|
|
eval VAL=\${${VAR}} |
103 |
|
|
for f in ${VAL}; do |
104 |
|
|
for x in "$@"; do |
105 |
|
|
# Note this should work with globs like -O* |
106 |
|
|
[[ ${f} == ${x} ]] && continue 2 |
107 |
agriffis |
1.61 |
done |
108 |
kevquinn |
1.105 |
eval new\[\${\#new\[@]}]=\${f} |
109 |
verwilst |
1.1 |
done |
110 |
kevquinn |
1.105 |
eval export ${VAR}=\${new\[*]} |
111 |
|
|
} |
112 |
agriffis |
1.61 |
|
113 |
vapier |
1.121 |
# @FUNCTION: filter-flags |
114 |
|
|
# @USAGE: <flags> |
115 |
|
|
# @DESCRIPTION: |
116 |
dberkholz |
1.124 |
# Remove particular <flags> from {C,CPP,CXX,F,FC}FLAGS. Accepts shell globs. |
117 |
kevquinn |
1.105 |
filter-flags() { |
118 |
|
|
_filter-hardened "$@" |
119 |
|
|
_filter-var CFLAGS "$@" |
120 |
vapier |
1.118 |
_filter-var CPPFLAGS "$@" |
121 |
kevquinn |
1.105 |
_filter-var CXXFLAGS "$@" |
122 |
dberkholz |
1.124 |
_filter-var FFLAGS "$@" |
123 |
|
|
_filter-var FCFLAGS "$@" |
124 |
vapier |
1.36 |
return 0 |
125 |
verwilst |
1.2 |
} |
126 |
|
|
|
127 |
vapier |
1.121 |
# @FUNCTION: filter-lfs-flags |
128 |
|
|
# @DESCRIPTION: |
129 |
|
|
# Remove flags that enable Large File Support. |
130 |
vapier |
1.40 |
filter-lfs-flags() { |
131 |
vapier |
1.93 |
[[ -n $@ ]] && die "filter-lfs-flags takes no arguments" |
132 |
vapier |
1.40 |
filter-flags -D_FILE_OFFSET_BITS=64 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE |
133 |
|
|
} |
134 |
|
|
|
135 |
vapier |
1.121 |
# @FUNCTION: append-cppflags |
136 |
|
|
# @USAGE: <flags> |
137 |
|
|
# @DESCRIPTION: |
138 |
|
|
# Add extra <flags> to the current CPPFLAGS. |
139 |
vapier |
1.118 |
append-cppflags() { |
140 |
|
|
[[ -z $* ]] && return 0 |
141 |
|
|
export CPPFLAGS="${CPPFLAGS} $*" |
142 |
|
|
return 0 |
143 |
|
|
} |
144 |
|
|
|
145 |
gengor |
1.132 |
# @FUNCTION: append-cxxflags |
146 |
|
|
# @USAGE: <flags> |
147 |
|
|
# @DESCRIPTION: |
148 |
|
|
# Add extra <flags> to the current CXXFLAGS. |
149 |
|
|
append-cxxflags() { |
150 |
|
|
[[ -z $* ]] && return 0 |
151 |
|
|
export CXXFLAGS="${CXXFLAGS} $*" |
152 |
|
|
return 0 |
153 |
|
|
} |
154 |
|
|
|
155 |
dberkholz |
1.124 |
# @FUNCTION: append-fflags |
156 |
|
|
# @USAGE: <flags> |
157 |
|
|
# @DESCRIPTION: |
158 |
|
|
# Add extra <flags> to the current {F,FC}FLAGS. |
159 |
|
|
append-fflags() { |
160 |
|
|
[[ -z $* ]] && return 0 |
161 |
|
|
export FFLAGS="${FFLAGS} $*" |
162 |
|
|
export FCFLAGS="${FCFLAGS} $*" |
163 |
|
|
return 0 |
164 |
|
|
} |
165 |
|
|
|
166 |
vapier |
1.121 |
# @FUNCTION: append-lfs-flags |
167 |
|
|
# @DESCRIPTION: |
168 |
|
|
# Add flags that enable Large File Support. |
169 |
vapier |
1.48 |
append-lfs-flags() { |
170 |
vapier |
1.93 |
[[ -n $@ ]] && die "append-lfs-flags takes no arguments" |
171 |
vapier |
1.118 |
append-cppflags -D_FILE_OFFSET_BITS=64 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE |
172 |
vapier |
1.48 |
} |
173 |
|
|
|
174 |
vapier |
1.121 |
# @FUNCTION: append-flags |
175 |
|
|
# @USAGE: <flags> |
176 |
|
|
# @DESCRIPTION: |
177 |
dberkholz |
1.124 |
# Add extra <flags> to your current {C,CXX,F,FC}FLAGS. |
178 |
vapier |
1.18 |
append-flags() { |
179 |
solar |
1.82 |
[[ -z $* ]] && return 0 |
180 |
agriffis |
1.58 |
export CFLAGS="${CFLAGS} $*" |
181 |
|
|
export CXXFLAGS="${CXXFLAGS} $*" |
182 |
dberkholz |
1.124 |
export FFLAGS="${FFLAGS} $*" |
183 |
|
|
export FCFLAGS="${FCFLAGS} $*" |
184 |
vapier |
1.28 |
return 0 |
185 |
verwilst |
1.1 |
} |
186 |
|
|
|
187 |
vapier |
1.121 |
# @FUNCTION: replace-flags |
188 |
|
|
# @USAGE: <old> <new> |
189 |
|
|
# @DESCRIPTION: |
190 |
|
|
# Replace the <old> flag with <new>. Accepts shell globs for <old>. |
191 |
vapier |
1.18 |
replace-flags() { |
192 |
vapier |
1.93 |
[[ $# != 2 ]] \ |
193 |
|
|
&& echo && eerror "Usage: replace-flags <old flag> <new flag>" \ |
194 |
|
|
&& die "replace-flags takes 2 arguments, not $#" |
195 |
|
|
|
196 |
mr_bones_ |
1.83 |
local f fset |
197 |
dirtyepic |
1.125 |
declare -a new_CFLAGS new_CXXFLAGS new_FFLAGS new_FCFLAGS |
198 |
agriffis |
1.64 |
|
199 |
dberkholz |
1.124 |
for fset in CFLAGS CXXFLAGS FFLAGS FCFLAGS; do |
200 |
agriffis |
1.64 |
# Looping over the flags instead of using a global |
201 |
|
|
# substitution ensures that we're working with flag atoms. |
202 |
|
|
# Otherwise globs like -O* have the potential to wipe out the |
203 |
|
|
# list of flags. |
204 |
|
|
for f in ${!fset}; do |
205 |
|
|
# Note this should work with globs like -O* |
206 |
|
|
[[ ${f} == ${1} ]] && f=${2} |
207 |
|
|
eval new_${fset}\[\${\#new_${fset}\[@]}]=\${f} |
208 |
|
|
done |
209 |
|
|
eval export ${fset}=\${new_${fset}\[*]} |
210 |
|
|
done |
211 |
|
|
|
212 |
vapier |
1.28 |
return 0 |
213 |
danarmak |
1.7 |
} |
214 |
|
|
|
215 |
vapier |
1.121 |
# @FUNCTION: replace-cpu-flags |
216 |
|
|
# @USAGE: <old> <new> |
217 |
|
|
# @DESCRIPTION: |
218 |
|
|
# Replace cpu flags (like -march/-mcpu/-mtune) that select the <old> cpu |
219 |
|
|
# with flags that select the <new> cpu. Accepts shell globs for <old>. |
220 |
vapier |
1.37 |
replace-cpu-flags() { |
221 |
vapier |
1.70 |
local newcpu="$#" ; newcpu="${!newcpu}" |
222 |
|
|
while [ $# -gt 1 ] ; do |
223 |
agriffis |
1.64 |
# quote to make sure that no globbing is done (particularly on |
224 |
vapier |
1.113 |
# ${oldcpu}) prior to calling replace-flags |
225 |
vapier |
1.70 |
replace-flags "-march=${1}" "-march=${newcpu}" |
226 |
|
|
replace-flags "-mcpu=${1}" "-mcpu=${newcpu}" |
227 |
|
|
replace-flags "-mtune=${1}" "-mtune=${newcpu}" |
228 |
|
|
shift |
229 |
vapier |
1.37 |
done |
230 |
|
|
return 0 |
231 |
|
|
} |
232 |
|
|
|
233 |
vapier |
1.113 |
_is_flagq() { |
234 |
kevquinn |
1.105 |
local x |
235 |
vapier |
1.113 |
for x in ${!1} ; do |
236 |
|
|
[[ ${x} == $2 ]] && return 0 |
237 |
kevquinn |
1.105 |
done |
238 |
|
|
return 1 |
239 |
|
|
} |
240 |
|
|
|
241 |
vapier |
1.121 |
# @FUNCTION: is-flagq |
242 |
|
|
# @USAGE: <flag> |
243 |
|
|
# @DESCRIPTION: |
244 |
dberkholz |
1.124 |
# Returns shell true if <flag> is in {C,CXX,F,FC}FLAGS, else returns shell false. Accepts shell globs. |
245 |
vapier |
1.113 |
is-flagq() { |
246 |
|
|
[[ -n $2 ]] && die "Usage: is-flag <flag>" |
247 |
dberkholz |
1.124 |
_is_flagq CFLAGS $1 || _is_flagq CXXFLAGS $1 || _is_flagq FFLAGS $1 || _is_flagq FCFLAGS $1 |
248 |
vapier |
1.113 |
} |
249 |
|
|
|
250 |
vapier |
1.121 |
# @FUNCTION: is-flag |
251 |
|
|
# @USAGE: <flag> |
252 |
|
|
# @DESCRIPTION: |
253 |
dberkholz |
1.124 |
# Echo's "true" if flag is set in {C,CXX,F,FC}FLAGS. Accepts shell globs. |
254 |
danarmak |
1.7 |
is-flag() { |
255 |
vapier |
1.113 |
is-flagq "$@" && echo true |
256 |
kevquinn |
1.105 |
} |
257 |
|
|
|
258 |
vapier |
1.121 |
# @FUNCTION: is-ldflagq |
259 |
|
|
# @USAGE: <flag> |
260 |
|
|
# @DESCRIPTION: |
261 |
|
|
# Returns shell true if <flag> is in LDFLAGS, else returns shell false. Accepts shell globs. |
262 |
kevquinn |
1.105 |
is-ldflagq() { |
263 |
vapier |
1.113 |
[[ -n $2 ]] && die "Usage: is-ldflag <flag>" |
264 |
|
|
_is_flagq LDFLAGS $1 |
265 |
verwilst |
1.1 |
} |
266 |
azarah |
1.8 |
|
267 |
vapier |
1.121 |
# @FUNCTION: is-ldflag |
268 |
|
|
# @USAGE: <flag> |
269 |
|
|
# @DESCRIPTION: |
270 |
|
|
# Echo's "true" if flag is set in LDFLAGS. Accepts shell globs. |
271 |
kevquinn |
1.105 |
is-ldflag() { |
272 |
vapier |
1.113 |
is-ldflagq "$@" && echo true |
273 |
kevquinn |
1.105 |
} |
274 |
|
|
|
275 |
vapier |
1.121 |
# @FUNCTION: filter-mfpmath |
276 |
|
|
# @USAGE: <math types> |
277 |
|
|
# @DESCRIPTION: |
278 |
|
|
# Remove specified math types from the fpmath flag. For example, if the user |
279 |
|
|
# has -mfpmath=sse,386, running `filter-mfpmath sse` will leave the user with |
280 |
|
|
# -mfpmath=386. |
281 |
vapier |
1.36 |
filter-mfpmath() { |
282 |
agriffis |
1.58 |
local orig_mfpmath new_math prune_math |
283 |
|
|
|
284 |
vapier |
1.36 |
# save the original -mfpmath flag |
285 |
vapier |
1.109 |
orig_mfpmath=$(get-flag -mfpmath) |
286 |
vapier |
1.36 |
# get the value of the current -mfpmath flag |
287 |
vapier |
1.109 |
new_math=$(get-flag mfpmath) |
288 |
|
|
new_math=" ${new_math//,/ } " |
289 |
vapier |
1.36 |
# figure out which math values are to be removed |
290 |
agriffis |
1.58 |
prune_math="" |
291 |
vapier |
1.36 |
for prune_math in "$@" ; do |
292 |
vapier |
1.109 |
new_math=${new_math/ ${prune_math} / } |
293 |
vapier |
1.36 |
done |
294 |
vapier |
1.109 |
new_math=$(echo ${new_math}) |
295 |
|
|
new_math=${new_math// /,} |
296 |
vapier |
1.36 |
|
297 |
vapier |
1.109 |
if [[ -z ${new_math} ]] ; then |
298 |
vapier |
1.36 |
# if we're removing all user specified math values are |
299 |
|
|
# slated for removal, then we just filter the flag |
300 |
|
|
filter-flags ${orig_mfpmath} |
301 |
|
|
else |
302 |
|
|
# if we only want to filter some of the user specified |
303 |
|
|
# math values, then we replace the current flag |
304 |
|
|
replace-flags ${orig_mfpmath} -mfpmath=${new_math} |
305 |
|
|
fi |
306 |
|
|
return 0 |
307 |
|
|
} |
308 |
|
|
|
309 |
vapier |
1.121 |
# @FUNCTION: strip-flags |
310 |
|
|
# @DESCRIPTION: |
311 |
|
|
# Strip C[XX]FLAGS of everything except known good/safe flags. |
312 |
azarah |
1.8 |
strip-flags() { |
313 |
dberkholz |
1.124 |
local x y flag NEW_CFLAGS NEW_CXXFLAGS NEW_FFLAGS NEW_FCFLAGS |
314 |
agriffis |
1.58 |
|
315 |
vapier |
1.36 |
setup-allowed-flags |
316 |
|
|
|
317 |
azarah |
1.8 |
local NEW_CFLAGS="" |
318 |
|
|
local NEW_CXXFLAGS="" |
319 |
dberkholz |
1.124 |
local NEW_FFLAGS="" |
320 |
|
|
local NEW_FCFLAGS="" |
321 |
azarah |
1.8 |
|
322 |
azarah |
1.17 |
# Allow unstable C[XX]FLAGS if we are using unstable profile ... |
323 |
vapier |
1.84 |
if has ~$(tc-arch) ${ACCEPT_KEYWORDS} ; then |
324 |
azarah |
1.17 |
ALLOWED_FLAGS="${ALLOWED_FLAGS} ${UNSTABLE_FLAGS}" |
325 |
|
|
fi |
326 |
|
|
|
327 |
agriffis |
1.58 |
set -f # disable pathname expansion |
328 |
azarah |
1.8 |
|
329 |
agriffis |
1.58 |
for x in ${CFLAGS}; do |
330 |
|
|
for y in ${ALLOWED_FLAGS}; do |
331 |
lostlogic |
1.14 |
flag=${x%%=*} |
332 |
vapier |
1.65 |
if [ "${flag%%${y}}" = "" ] ; then |
333 |
lostlogic |
1.14 |
NEW_CFLAGS="${NEW_CFLAGS} ${x}" |
334 |
|
|
break |
335 |
azarah |
1.8 |
fi |
336 |
|
|
done |
337 |
|
|
done |
338 |
|
|
|
339 |
agriffis |
1.58 |
for x in ${CXXFLAGS}; do |
340 |
|
|
for y in ${ALLOWED_FLAGS}; do |
341 |
lostlogic |
1.14 |
flag=${x%%=*} |
342 |
vapier |
1.65 |
if [ "${flag%%${y}}" = "" ] ; then |
343 |
lostlogic |
1.14 |
NEW_CXXFLAGS="${NEW_CXXFLAGS} ${x}" |
344 |
|
|
break |
345 |
azarah |
1.8 |
fi |
346 |
|
|
done |
347 |
|
|
done |
348 |
azarah |
1.30 |
|
349 |
dberkholz |
1.124 |
for x in ${FFLAGS}; do |
350 |
|
|
for y in ${ALLOWED_FLAGS}; do |
351 |
|
|
flag=${x%%=*} |
352 |
|
|
if [ "${flag%%${y}}" = "" ] ; then |
353 |
|
|
NEW_FFLAGS="${NEW_FFLAGS} ${x}" |
354 |
|
|
break |
355 |
|
|
fi |
356 |
|
|
done |
357 |
|
|
done |
358 |
|
|
|
359 |
|
|
for x in ${FCFLAGS}; do |
360 |
|
|
for y in ${ALLOWED_FLAGS}; do |
361 |
|
|
flag=${x%%=*} |
362 |
|
|
if [ "${flag%%${y}}" = "" ] ; then |
363 |
|
|
NEW_FCFLAGS="${NEW_FCFLAGS} ${x}" |
364 |
|
|
break |
365 |
|
|
fi |
366 |
|
|
done |
367 |
|
|
done |
368 |
|
|
|
369 |
azarah |
1.30 |
# In case we filtered out all optimization flags fallback to -O2 |
370 |
|
|
if [ "${CFLAGS/-O}" != "${CFLAGS}" -a "${NEW_CFLAGS/-O}" = "${NEW_CFLAGS}" ]; then |
371 |
|
|
NEW_CFLAGS="${NEW_CFLAGS} -O2" |
372 |
|
|
fi |
373 |
|
|
if [ "${CXXFLAGS/-O}" != "${CXXFLAGS}" -a "${NEW_CXXFLAGS/-O}" = "${NEW_CXXFLAGS}" ]; then |
374 |
|
|
NEW_CXXFLAGS="${NEW_CXXFLAGS} -O2" |
375 |
|
|
fi |
376 |
dberkholz |
1.124 |
if [ "${FFLAGS/-O}" != "${FFLAGS}" -a "${NEW_FFLAGS/-O}" = "${NEW_FFLAGS}" ]; then |
377 |
|
|
NEW_FFLAGS="${NEW_FFLAGS} -O2" |
378 |
|
|
fi |
379 |
|
|
if [ "${FCFLAGS/-O}" != "${FCFLAGS}" -a "${NEW_FCFLAGS/-O}" = "${NEW_FCFLAGS}" ]; then |
380 |
|
|
NEW_FCFLAGS="${NEW_FCFLAGS} -O2" |
381 |
|
|
fi |
382 |
azarah |
1.8 |
|
383 |
agriffis |
1.58 |
set +f # re-enable pathname expansion |
384 |
azarah |
1.8 |
|
385 |
|
|
export CFLAGS="${NEW_CFLAGS}" |
386 |
|
|
export CXXFLAGS="${NEW_CXXFLAGS}" |
387 |
dberkholz |
1.124 |
export FFLAGS="${NEW_FFLAGS}" |
388 |
|
|
export FCFLAGS="${NEW_FCFLAGS}" |
389 |
vapier |
1.36 |
return 0 |
390 |
puggy |
1.29 |
} |
391 |
|
|
|
392 |
azarah |
1.96 |
test-flag-PROG() { |
393 |
|
|
local comp=$1 |
394 |
|
|
local flags="$2" |
395 |
|
|
|
396 |
|
|
[[ -z ${comp} || -z ${flags} ]] && \ |
397 |
|
|
return 1 |
398 |
|
|
|
399 |
|
|
local PROG=$(tc-get${comp}) |
400 |
|
|
${PROG} ${flags} -S -o /dev/null -xc /dev/null \ |
401 |
|
|
> /dev/null 2>&1 |
402 |
|
|
} |
403 |
|
|
|
404 |
vapier |
1.121 |
# @FUNCTION: test-flag-CC |
405 |
|
|
# @USAGE: <flag> |
406 |
|
|
# @DESCRIPTION: |
407 |
|
|
# Returns shell true if <flag> is supported by the C compiler, else returns shell false. |
408 |
azarah |
1.96 |
test-flag-CC() { test-flag-PROG "CC" "$1"; } |
409 |
|
|
|
410 |
vapier |
1.121 |
# @FUNCTION: test-flag-CXX |
411 |
|
|
# @USAGE: <flag> |
412 |
|
|
# @DESCRIPTION: |
413 |
|
|
# Returns shell true if <flag> is supported by the C++ compiler, else returns shell false. |
414 |
azarah |
1.96 |
test-flag-CXX() { test-flag-PROG "CXX" "$1"; } |
415 |
|
|
|
416 |
dberkholz |
1.124 |
# @FUNCTION: test-flag-F77 |
417 |
|
|
# @USAGE: <flag> |
418 |
|
|
# @DESCRIPTION: |
419 |
|
|
# Returns shell true if <flag> is supported by the Fortran 77 compiler, else returns shell false. |
420 |
|
|
test-flag-F77() { test-flag-PROG "F77" "$1"; } |
421 |
|
|
|
422 |
|
|
# @FUNCTION: test-flag-FC |
423 |
|
|
# @USAGE: <flag> |
424 |
|
|
# @DESCRIPTION: |
425 |
|
|
# Returns shell true if <flag> is supported by the Fortran 90 compiler, else returns shell false. |
426 |
|
|
test-flag-FC() { test-flag-PROG "FC" "$1"; } |
427 |
|
|
|
428 |
azarah |
1.99 |
test-flags-PROG() { |
429 |
|
|
local comp=$1 |
430 |
|
|
local flags |
431 |
azarah |
1.96 |
local x |
432 |
azarah |
1.99 |
|
433 |
|
|
shift |
434 |
|
|
|
435 |
vapier |
1.113 |
[[ -z ${comp} ]] && return 1 |
436 |
swegener |
1.101 |
|
437 |
vapier |
1.113 |
x="" |
438 |
azarah |
1.96 |
for x in "$@" ; do |
439 |
vapier |
1.113 |
test-flag-${comp} "${x}" && flags="${flags}${flags:+ }${x}" |
440 |
azarah |
1.96 |
done |
441 |
|
|
|
442 |
azarah |
1.99 |
echo "${flags}" |
443 |
azarah |
1.96 |
|
444 |
azarah |
1.99 |
# Just bail if we dont have any flags |
445 |
|
|
[[ -n ${flags} ]] |
446 |
azarah |
1.96 |
} |
447 |
|
|
|
448 |
vapier |
1.121 |
# @FUNCTION: test-flags-CC |
449 |
|
|
# @USAGE: <flags> |
450 |
|
|
# @DESCRIPTION: |
451 |
|
|
# Returns shell true if <flags> are supported by the C compiler, else returns shell false. |
452 |
azarah |
1.99 |
test-flags-CC() { test-flags-PROG "CC" "$@"; } |
453 |
|
|
|
454 |
vapier |
1.121 |
# @FUNCTION: test-flags-CXX |
455 |
|
|
# @USAGE: <flags> |
456 |
|
|
# @DESCRIPTION: |
457 |
|
|
# Returns shell true if <flags> are supported by the C++ compiler, else returns shell false. |
458 |
azarah |
1.99 |
test-flags-CXX() { test-flags-PROG "CXX" "$@"; } |
459 |
|
|
|
460 |
dberkholz |
1.124 |
# @FUNCTION: test-flags-F77 |
461 |
|
|
# @USAGE: <flags> |
462 |
|
|
# @DESCRIPTION: |
463 |
|
|
# Returns shell true if <flags> are supported by the Fortran 77 compiler, else returns shell false. |
464 |
|
|
test-flags-F77() { test-flags-PROG "F77" "$@"; } |
465 |
|
|
|
466 |
|
|
# @FUNCTION: test-flags-FC |
467 |
|
|
# @USAGE: <flags> |
468 |
|
|
# @DESCRIPTION: |
469 |
|
|
# Returns shell true if <flags> are supported by the Fortran 90 compiler, else returns shell false. |
470 |
|
|
test-flags-FC() { test-flags-PROG "FC" "$@"; } |
471 |
|
|
|
472 |
vapier |
1.121 |
# @FUNCTION: test-flags |
473 |
|
|
# @USAGE: <flags> |
474 |
|
|
# @DESCRIPTION: |
475 |
azarah |
1.99 |
# Short-hand that should hopefully work for both C and C++ compiler, but |
476 |
azarah |
1.100 |
# its really only present due to the append-flags() abomination. |
477 |
azarah |
1.99 |
test-flags() { test-flags-CC "$@"; } |
478 |
|
|
|
479 |
vapier |
1.121 |
# @FUNCTION: test_flag |
480 |
|
|
# @DESCRIPTION: |
481 |
|
|
# DEPRICIATED, use test-flags() |
482 |
vapier |
1.36 |
test_flag() { |
483 |
kevquinn |
1.104 |
ewarn "test_flag: deprecated, please use test-flags()!" >&2 |
484 |
azarah |
1.96 |
|
485 |
azarah |
1.99 |
test-flags-CC "$@" |
486 |
puggy |
1.29 |
} |
487 |
|
|
|
488 |
vapier |
1.121 |
# @FUNCTION: test_version_info |
489 |
|
|
# @USAGE: <version> |
490 |
|
|
# @DESCRIPTION: |
491 |
|
|
# Returns shell true if the current C compiler version matches <version>, else returns shell false. |
492 |
|
|
# Accepts shell globs. |
493 |
agriffis |
1.58 |
test_version_info() { |
494 |
vapier |
1.75 |
if [[ $($(tc-getCC) --version 2>&1) == *$1* ]]; then |
495 |
agriffis |
1.58 |
return 0 |
496 |
|
|
else |
497 |
|
|
return 1 |
498 |
|
|
fi |
499 |
|
|
} |
500 |
|
|
|
501 |
vapier |
1.121 |
# @FUNCTION: strip-unsupported-flags |
502 |
|
|
# @DESCRIPTION: |
503 |
dberkholz |
1.124 |
# Strip {C,CXX,F,FC}FLAGS of any flags not supported by the active toolchain. |
504 |
puggy |
1.29 |
strip-unsupported-flags() { |
505 |
vapier |
1.113 |
export CFLAGS=$(test-flags-CC ${CFLAGS}) |
506 |
|
|
export CXXFLAGS=$(test-flags-CXX ${CXXFLAGS}) |
507 |
dberkholz |
1.124 |
export FFLAGS=$(test-flags-F77 ${FFLAGS}) |
508 |
|
|
export FCFLAGS=$(test-flags-FC ${FCFLAGS}) |
509 |
azarah |
1.8 |
} |
510 |
|
|
|
511 |
vapier |
1.121 |
# @FUNCTION: get-flag |
512 |
|
|
# @USAGE: <flag> |
513 |
|
|
# @DESCRIPTION: |
514 |
|
|
# Find and echo the value for a particular flag. Accepts shell globs. |
515 |
vapier |
1.10 |
get-flag() { |
516 |
agriffis |
1.58 |
local f findflag="$1" |
517 |
|
|
|
518 |
vapier |
1.36 |
# this code looks a little flaky but seems to work for |
519 |
|
|
# everything we want ... |
520 |
|
|
# for example, if CFLAGS="-march=i686": |
521 |
agriffis |
1.58 |
# `get-flag -march` == "-march=i686" |
522 |
|
|
# `get-flag march` == "i686" |
523 |
dberkholz |
1.124 |
for f in ${CFLAGS} ${CXXFLAGS} ${FFLAGS} ${FCFLAGS} ; do |
524 |
vapier |
1.10 |
if [ "${f/${findflag}}" != "${f}" ] ; then |
525 |
agriffis |
1.58 |
printf "%s\n" "${f/-${findflag}=}" |
526 |
vapier |
1.28 |
return 0 |
527 |
vapier |
1.10 |
fi |
528 |
|
|
done |
529 |
vapier |
1.28 |
return 1 |
530 |
joker |
1.16 |
} |
531 |
|
|
|
532 |
vapier |
1.121 |
# @FUNCTION: has_hardened |
533 |
|
|
# @DESCRIPTION: |
534 |
kevquinn |
1.92 |
# DEPRECATED - use gcc-specs-relro or gcc-specs-now from toolchain-funcs |
535 |
solar |
1.53 |
has_hardened() { |
536 |
kevquinn |
1.104 |
ewarn "has_hardened: deprecated, please use gcc-specs-{relro,now}()!" >&2 |
537 |
swegener |
1.101 |
|
538 |
lv |
1.69 |
test_version_info Hardened && return 0 |
539 |
azarah |
1.96 |
# The specs file wont exist unless gcc has GCC_SPECS support |
540 |
|
|
[[ -f ${GCC_SPECS} && ${GCC_SPECS} != ${GCC_SPECS/hardened/} ]] |
541 |
solar |
1.53 |
} |
542 |
|
|
|
543 |
vapier |
1.121 |
# @FUNCTION: has_pic |
544 |
|
|
# @DESCRIPTION: |
545 |
kevquinn |
1.92 |
# DEPRECATED - use gcc-specs-pie from toolchain-funcs |
546 |
solar |
1.81 |
# indicate whether PIC is set |
547 |
tseng |
1.42 |
has_pic() { |
548 |
kevquinn |
1.104 |
ewarn "has_pic: deprecated, please use gcc-specs-pie()!" >&2 |
549 |
swegener |
1.101 |
|
550 |
azarah |
1.96 |
[[ ${CFLAGS/-fPIC} != ${CFLAGS} || \ |
551 |
kevquinn |
1.105 |
${CFLAGS/-fpic} != ${CFLAGS} ]] || \ |
552 |
|
|
gcc-specs-pie |
553 |
tseng |
1.42 |
} |
554 |
|
|
|
555 |
vapier |
1.121 |
# @FUNCTION: has_pie |
556 |
|
|
# @DESCRIPTION: |
557 |
kevquinn |
1.92 |
# DEPRECATED - use gcc-specs-pie from toolchain-funcs |
558 |
solar |
1.81 |
# indicate whether PIE is set |
559 |
mr_bones_ |
1.83 |
has_pie() { |
560 |
kevquinn |
1.104 |
ewarn "has_pie: deprecated, please use gcc-specs-pie()!" >&2 |
561 |
swegener |
1.101 |
|
562 |
azarah |
1.96 |
[[ ${CFLAGS/-fPIE} != ${CFLAGS} || \ |
563 |
kevquinn |
1.105 |
${CFLAGS/-fpie} != ${CFLAGS} ]] || \ |
564 |
|
|
gcc-specs-pie |
565 |
tseng |
1.42 |
} |
566 |
mr_bones_ |
1.83 |
|
567 |
vapier |
1.121 |
# @FUNCTION: has_ssp_all |
568 |
|
|
# @DESCRIPTION: |
569 |
kevquinn |
1.92 |
# DEPRECATED - use gcc-specs-ssp from toolchain-funcs |
570 |
solar |
1.86 |
# indicate whether code for SSP is being generated for all functions |
571 |
|
|
has_ssp_all() { |
572 |
kevquinn |
1.104 |
ewarn "has_ssp_all: deprecated, please use gcc-specs-ssp()!" >&2 |
573 |
swegener |
1.101 |
|
574 |
solar |
1.86 |
# note; this matches only -fstack-protector-all |
575 |
azarah |
1.96 |
[[ ${CFLAGS/-fstack-protector-all} != ${CFLAGS} || \ |
576 |
|
|
-n $(echo | $(tc-getCC) ${CFLAGS} -E -dM - | grep __SSP_ALL__) ]] || \ |
577 |
gengor |
1.130 |
gcc-specs-ssp-to-all |
578 |
solar |
1.86 |
} |
579 |
|
|
|
580 |
vapier |
1.121 |
# @FUNCTION: has_ssp |
581 |
|
|
# @DESCRIPTION: |
582 |
kevquinn |
1.92 |
# DEPRECATED - use gcc-specs-ssp from toolchain-funcs |
583 |
solar |
1.81 |
# indicate whether code for SSP is being generated |
584 |
tseng |
1.42 |
has_ssp() { |
585 |
kevquinn |
1.104 |
ewarn "has_ssp: deprecated, please use gcc-specs-ssp()!" >&2 |
586 |
swegener |
1.101 |
|
587 |
solar |
1.81 |
# note; this matches both -fstack-protector and -fstack-protector-all |
588 |
azarah |
1.96 |
[[ ${CFLAGS/-fstack-protector} != ${CFLAGS} || \ |
589 |
|
|
-n $(echo | $(tc-getCC) ${CFLAGS} -E -dM - | grep __SSP__) ]] || \ |
590 |
|
|
gcc-specs-ssp |
591 |
tseng |
1.42 |
} |
592 |
|
|
|
593 |
vapier |
1.121 |
# @FUNCTION: has_m64 |
594 |
|
|
# @DESCRIPTION: |
595 |
|
|
# This doesn't test if the flag is accepted, it tests if the flag actually |
596 |
|
|
# WORKS. Non-multilib gcc will take both -m32 and -m64. If the flag works |
597 |
|
|
# return code is 0, else the return code is 1. |
598 |
lv |
1.56 |
has_m64() { |
599 |
lv |
1.62 |
# this doesnt test if the flag is accepted, it tests if the flag |
600 |
|
|
# actually -WORKS-. non-multilib gcc will take both -m32 and -m64! |
601 |
|
|
# please dont replace this function with test_flag in some future |
602 |
|
|
# clean-up! |
603 |
swegener |
1.101 |
|
604 |
vapier |
1.72 |
local temp="$(emktemp)" |
605 |
azarah |
1.96 |
echo "int main() { return(0); }" > "${temp}".c |
606 |
kugelfang |
1.74 |
MY_CC=$(tc-getCC) |
607 |
azarah |
1.96 |
${MY_CC/ .*/} -m64 -o "$(emktemp)" "${temp}".c > /dev/null 2>&1 |
608 |
vapier |
1.72 |
local ret=$? |
609 |
azarah |
1.96 |
rm -f "${temp}".c |
610 |
|
|
[[ ${ret} != 1 ]] && return 0 |
611 |
lv |
1.62 |
return 1 |
612 |
lv |
1.56 |
} |
613 |
|
|
|
614 |
vapier |
1.121 |
# @FUNCTION: has_m32 |
615 |
|
|
# @DESCRIPTION: |
616 |
|
|
# This doesn't test if the flag is accepted, it tests if the flag actually |
617 |
|
|
# WORKS. Non-mulilib gcc will take both -m32 and -64. If the flag works return |
618 |
|
|
# code is 0, else return code is 1. |
619 |
lv |
1.56 |
has_m32() { |
620 |
lv |
1.62 |
# this doesnt test if the flag is accepted, it tests if the flag |
621 |
|
|
# actually -WORKS-. non-multilib gcc will take both -m32 and -m64! |
622 |
|
|
# please dont replace this function with test_flag in some future |
623 |
|
|
# clean-up! |
624 |
eradicator |
1.80 |
|
625 |
|
|
[ "$(tc-arch)" = "amd64" ] && has_multilib_profile && return 0 |
626 |
|
|
|
627 |
vapier |
1.95 |
local temp=$(emktemp) |
628 |
|
|
echo "int main() { return(0); }" > "${temp}".c |
629 |
kugelfang |
1.74 |
MY_CC=$(tc-getCC) |
630 |
vapier |
1.95 |
${MY_CC/ .*/} -m32 -o "$(emktemp)" "${temp}".c > /dev/null 2>&1 |
631 |
vapier |
1.72 |
local ret=$? |
632 |
vapier |
1.95 |
rm -f "${temp}".c |
633 |
azarah |
1.96 |
[[ ${ret} != 1 ]] && return 0 |
634 |
lv |
1.62 |
return 1 |
635 |
lv |
1.56 |
} |
636 |
|
|
|
637 |
vapier |
1.121 |
# @FUNCTION: replace-sparc64-flags |
638 |
|
|
# @DESCRIPTION: |
639 |
|
|
# Sets mcpu to v8 and uses the original value as mtune if none specified. |
640 |
vapier |
1.18 |
replace-sparc64-flags() { |
641 |
fmccor |
1.98 |
local SPARC64_CPUS="ultrasparc3 ultrasparc v9" |
642 |
joker |
1.16 |
|
643 |
mr_bones_ |
1.83 |
if [ "${CFLAGS/mtune}" != "${CFLAGS}" ]; then |
644 |
agriffis |
1.58 |
for x in ${SPARC64_CPUS}; do |
645 |
joker |
1.16 |
CFLAGS="${CFLAGS/-mcpu=${x}/-mcpu=v8}" |
646 |
|
|
done |
647 |
mr_bones_ |
1.83 |
else |
648 |
swegener |
1.111 |
for x in ${SPARC64_CPUS}; do |
649 |
joker |
1.16 |
CFLAGS="${CFLAGS/-mcpu=${x}/-mcpu=v8 -mtune=${x}}" |
650 |
|
|
done |
651 |
|
|
fi |
652 |
mr_bones_ |
1.83 |
|
653 |
|
|
if [ "${CXXFLAGS/mtune}" != "${CXXFLAGS}" ]; then |
654 |
agriffis |
1.58 |
for x in ${SPARC64_CPUS}; do |
655 |
joker |
1.16 |
CXXFLAGS="${CXXFLAGS/-mcpu=${x}/-mcpu=v8}" |
656 |
|
|
done |
657 |
|
|
else |
658 |
swegener |
1.111 |
for x in ${SPARC64_CPUS}; do |
659 |
joker |
1.16 |
CXXFLAGS="${CXXFLAGS/-mcpu=${x}/-mcpu=v8 -mtune=${x}}" |
660 |
|
|
done |
661 |
|
|
fi |
662 |
vapier |
1.59 |
|
663 |
|
|
export CFLAGS CXXFLAGS |
664 |
solar |
1.27 |
} |
665 |
|
|
|
666 |
vapier |
1.121 |
# @FUNCTION: append-ldflags |
667 |
|
|
# @USAGE: <flags> |
668 |
|
|
# @DESCRIPTION: |
669 |
|
|
# Add extra <flags> to the current LDFLAGS. |
670 |
solar |
1.27 |
append-ldflags() { |
671 |
kevquinn |
1.105 |
[[ -z $* ]] && return 0 |
672 |
flameeyes |
1.123 |
local flag |
673 |
|
|
for flag in "$@"; do |
674 |
|
|
[[ ${flag} == -l* ]] && \ |
675 |
|
|
ewarn "Appending a library link instruction (${flag}); libraries to link to should not be passed through LDFLAGS" |
676 |
|
|
done |
677 |
|
|
|
678 |
vapier |
1.59 |
export LDFLAGS="${LDFLAGS} $*" |
679 |
vapier |
1.28 |
return 0 |
680 |
solar |
1.27 |
} |
681 |
|
|
|
682 |
vapier |
1.121 |
# @FUNCTION: filter-ldflags |
683 |
|
|
# @USAGE: <flags> |
684 |
|
|
# @DESCRIPTION: |
685 |
|
|
# Remove particular <flags> from LDFLAGS. Accepts shell globs. |
686 |
solar |
1.41 |
filter-ldflags() { |
687 |
kevquinn |
1.105 |
_filter-var LDFLAGS "$@" |
688 |
solar |
1.41 |
return 0 |
689 |
|
|
} |
690 |
|
|
|
691 |
vapier |
1.121 |
# @FUNCTION: raw-ldflags |
692 |
|
|
# @USAGE: <flags> |
693 |
|
|
# @DESCRIPTION: |
694 |
kevquinn |
1.105 |
# Turn C style ldflags (-Wl,-foo) into straight ldflags - the results |
695 |
|
|
# are suitable for passing directly to 'ld'; note LDFLAGS is usually passed |
696 |
|
|
# to gcc where it needs the '-Wl,'. |
697 |
vapier |
1.102 |
raw-ldflags() { |
698 |
|
|
local x input="$@" |
699 |
|
|
[[ -z ${input} ]] && input=${LDFLAGS} |
700 |
|
|
set -- |
701 |
|
|
for x in ${input} ; do |
702 |
vapier |
1.103 |
x=${x#-Wl,} |
703 |
|
|
set -- "$@" ${x//,/ } |
704 |
vapier |
1.102 |
done |
705 |
|
|
echo "$@" |
706 |
|
|
} |
707 |
|
|
|
708 |
vapier |
1.121 |
# @FUNCTION: bindnow-flags |
709 |
|
|
# @RETURN: Returns the flags to enable "now" binding in the current selected linker. |
710 |
|
|
# @DESCRIPTION: |
711 |
|
|
# DEPRECATED - Gets the flags needed for "NOW" binding |
712 |
flameeyes |
1.94 |
bindnow-flags() { |
713 |
vapier |
1.129 |
ewarn "QA: stop using the bindnow-flags function ... simply drop it from your ebuild" |
714 |
flameeyes |
1.94 |
} |
715 |
vapier |
1.113 |
|
716 |
|
|
|
717 |
|
|
# Some tests for when we screw with things and want to make |
718 |
|
|
# sure we didn't break anything |
719 |
|
|
#TESTS() { |
720 |
|
|
# CFLAGS="-a -b -c=1" |
721 |
|
|
# CXXFLAGS="-x -y -z=2" |
722 |
|
|
# LDFLAGS="-l -m -n=3" |
723 |
|
|
# |
724 |
|
|
# die() { exit 1; } |
725 |
|
|
# (is-flag 1 2 3) && die |
726 |
|
|
# (is-ldflag 1 2 3) && die |
727 |
|
|
# |
728 |
|
|
# is-flagq -l && die |
729 |
|
|
# is-ldflagq -a && die |
730 |
|
|
# is-flagq -a || die |
731 |
|
|
# is-flagq -x || die |
732 |
|
|
# is-ldflagq -n=* || die |
733 |
|
|
# is-ldflagq -n && die |
734 |
|
|
# |
735 |
|
|
# strip-unsupported-flags |
736 |
|
|
# [[ ${CFLAGS} == "-c=1" ]] || die |
737 |
|
|
# [[ ${CXXFLAGS} == "-y -z=2" ]] || die |
738 |
|
|
# |
739 |
|
|
# echo "All tests pass" |
740 |
|
|
#} |
741 |
|
|
#TESTS |