diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2007-02-18 13:43:05 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2007-02-18 13:43:05 +0000 |
| commit | 0028647ea7acc9af2e27bd246faac9bb073c94e5 (patch) | |
| tree | a7e54291e75ed1ab5ce9b4b8ee378d006d8b0c80 | |
| parent | 3034b4535a3329ae1bc856f35ed1730f57373bbd (diff) | |
| download | gcc-0028647ea7acc9af2e27bd246faac9bb073c94e5.zip gcc-0028647ea7acc9af2e27bd246faac9bb073c94e5.tar.gz gcc-0028647ea7acc9af2e27bd246faac9bb073c94e5.tar.bz2 | |
test_prio_p.adb: Compile with -gnatws.
* gnat.dg/test_prio_p.adb: Compile with -gnatws.
* lib/gnat.exp (gnat_target_compile): Pass -f to the driver.
From-SVN: r122093
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gnat.dg/test_prio_p.adb | 2 | ||||
| -rw-r--r-- | gcc/testsuite/lib/gnat.exp | 2 |
3 files changed, 8 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index d678133..05fdf91 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-02-18 Eric Botcazou <ebotcazou@adacore.com> + + * gnat.dg/test_prio_p.adb: Compile with -gnatws. + * lib/gnat.exp (gnat_target_compile): Pass -f to the driver. + 2007-02-16 Uros Bizjak <ubizjak@gmail.com> * gcc.target/i386/builtin-bswap-1.c: Remove -march=nocona. diff --git a/gcc/testsuite/gnat.dg/test_prio_p.adb b/gcc/testsuite/gnat.dg/test_prio_p.adb index dd0d99a..333ab92 100644 --- a/gcc/testsuite/gnat.dg/test_prio_p.adb +++ b/gcc/testsuite/gnat.dg/test_prio_p.adb @@ -1,3 +1,5 @@ +-- { dg-options "-gnatws" } + package body test_prio_p is protected body Protected_Queue_T is entry Seize when True is begin null; end; diff --git a/gcc/testsuite/lib/gnat.exp b/gcc/testsuite/lib/gnat.exp index 7960672..8832373 100644 --- a/gcc/testsuite/lib/gnat.exp +++ b/gcc/testsuite/lib/gnat.exp @@ -129,7 +129,7 @@ proc gnat_target_compile { source dest type options } { setenv ADA_INCLUDE_PATH "${rootme}/ada/rts" set ld_library_path ".:${gnat_libgcc_s_path}" - lappend options "compiler=$GNAT_UNDER_TEST -q" + lappend options "compiler=$GNAT_UNDER_TEST -q -f" lappend options "incdir=${rootme}/ada/rts" if { [target_info needs_status_wrapper]!="" && [info exists gluefile] } { |