From dae4f504c65a1c8af7db352618438910a4c69096 Mon Sep 17 00:00:00 2001 From: Javier Miranda Date: Fri, 3 Apr 2020 17:29:48 -0400 Subject: [PATCH] [Ada] Crash in tagged type constructor with task components 2020-06-16 Javier Miranda gcc/ada/ * restrict.adb (Global_No_Tasking): Adding Targparm.Restrictions_On_Target Fixes regressions with zfp. --- gcc/ada/restrict.adb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/gcc/ada/restrict.adb b/gcc/ada/restrict.adb index ebdc7ce1c23..0dab4c5879d 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; ------------------------------- -- 2.30.2