diff options
Diffstat (limited to 'gcc/ada/s-inmaop-vms.adb')
| -rw-r--r-- | gcc/ada/s-inmaop-vms.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/ada/s-inmaop-vms.adb b/gcc/ada/s-inmaop-vms.adb index ebd66950652..3c04bb0e074 100644 --- a/gcc/ada/s-inmaop-vms.adb +++ b/gcc/ada/s-inmaop-vms.adb @@ -283,6 +283,8 @@ package body System.Interrupt_Management.Operations is P1 => To_unsigned_long (Interrupt'Address), P2 => Interrupt_ID'Size / 8); + -- The following could use a comment ??? + pragma Assert ((Status and 1) = 1); end Interrupt_Self_Process; |