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
_______________________________________________
DejaGnu mailing list
DejaGnu@gnu.org
https://lists.gnu.org/mailman/listinfo/dejagnu
