diff options
| author | Javier Miranda <miranda@adacore.com> | 2020-04-03 17:29:48 -0400 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-06-16 09:07:12 -0400 |
| commit | dae4f504c65a1c8af7db352618438910a4c69096 (patch) | |
| tree | 401fb92be0787fd1e33b591eec94d3a12ffd9031 | |
| parent | 1fe73fd6965364ba89ff2919ef8bfd416298615f (diff) | |
| download | gcc-dae4f504c65a1c8af7db352618438910a4c69096.zip gcc-dae4f504c65a1c8af7db352618438910a4c69096.tar.gz gcc-dae4f504c65a1c8af7db352618438910a4c69096.tar.bz2 | |
[Ada] Crash in tagged type constructor with task components
2020-06-16 Javier Miranda <miranda@adacore.com>
gcc/ada/
* restrict.adb (Global_No_Tasking): Adding
Targparm.Restrictions_On_Target Fixes regressions with zfp.
| -rw-r--r-- | gcc/ada/restrict.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/ada/restrict.adb b/gcc/ada/restrict.adb index ebdc7ce..0dab4c5 100644 --- a/gcc/ada/restrict.adb +++ b/gcc/ada/restrict.adb @@ -35,6 +35,7 @@ with Opt; use Opt; with Sinfo; use Sinfo; with Sinput; use Sinput; with Stand; use Stand; +with Targparm; use Targparm; with Uname; use Uname; package body Restrict is @@ -908,7 +909,8 @@ package body Restrict is function Global_No_Tasking return Boolean is begin - return Global_Restriction_No_Tasking; + return Global_Restriction_No_Tasking + or else Targparm.Restrictions_On_Target.Set (No_Tasking); end Global_No_Tasking; ------------------------------- |