diff options
Diffstat (limited to 'gcc/ada/gnat1drv.adb')
| -rw-r--r-- | gcc/ada/gnat1drv.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/ada/gnat1drv.adb b/gcc/ada/gnat1drv.adb index a2e6e89..34aea34 100644 --- a/gcc/ada/gnat1drv.adb +++ b/gcc/ada/gnat1drv.adb @@ -543,9 +543,11 @@ procedure Gnat1drv is Write_Line ("(requesting support for Frontend ZCX exceptions)"); raise Unrecoverable_Error; + when False => Exception_Mechanism := Front_End_SJLJ; end case; + when False => case Targparm.ZCX_By_Default_On_Target is when True => |