Re: [PATCH 2/3][GCC] GNAT/testsuite: Pass the `ada' option to target compilation
Jacob Bachmeyer <[email protected]>
| Newsgroups | gmane.comp.gcc.patches,gmane.comp.sysutils.dejagnu.general |
|---|---|
| Message-ID | <[email protected]> |
Maciej W. Rozycki wrote:
> [...]
> ---
> gcc/testsuite/lib/gnat.exp | 2 ++
> 1 file changed, 2 insertions(+)
>
> gcc-test-gnat-options-ada.diff
> Index: gcc/gcc/testsuite/lib/gnat.exp
> ===================================================================
> --- gcc.orig/gcc/testsuite/lib/gnat.exp
> +++ gcc/gcc/testsuite/lib/gnat.exp
> @@ -167,6 +167,8 @@ proc gnat_target_compile { source dest t
> set options [concat "additional_flags=$TOOL_OPTIONS" $options]
> }
>
> + set options [concat "{ada}" $options]
> +
> return [target_compile $source $dest $type $options]
> }
>
Your Tcl syntax looks suspicious to me. Is there a reason for "ada" to
be in both double quotes and braces?
Perhaps {lappend options ada} might be simpler? Is placing ada at the
beginning of the list important?
-- Jacob