diff options
Diffstat (limited to 'gcc/ada/s-asthan-vms-alpha.adb')
| -rw-r--r-- | gcc/ada/s-asthan-vms-alpha.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/s-asthan-vms-alpha.adb b/gcc/ada/s-asthan-vms-alpha.adb index 867aafd183a..b6b8395d498 100644 --- a/gcc/ada/s-asthan-vms-alpha.adb +++ b/gcc/ada/s-asthan-vms-alpha.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1996-2006 Free Software Foundation, Inc. -- +-- Copyright (C) 1996-2007, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -31,7 +31,7 @@ -- -- ------------------------------------------------------------------------------ --- This is the OpenVMS/Alpha version. +-- This is the OpenVMS/Alpha version with System; use System; @@ -205,7 +205,7 @@ package body System.AST_Handling is end record; AST_Vector_Init : AST_Vector_Ptr; - -- Initial value, treated as constant, Vector will be null. + -- Initial value, treated as constant, Vector will be null package AST_Attribute is new Ada.Task_Attributes (Attribute => AST_Vector_Ptr, @@ -241,7 +241,7 @@ package body System.AST_Handling is AST_Service_Queue : array (AST_Service_Queue_Index) of AST_Instance; pragma Volatile_Components (AST_Service_Queue); - -- The circular buffer used to store active AST requests. + -- The circular buffer used to store active AST requests AST_Service_Queue_Put : AST_Service_Queue_Index := 0; AST_Service_Queue_Get : AST_Service_Queue_Index := 0; @@ -583,7 +583,7 @@ package body System.AST_Handling is if Is_Waiting (J) then Is_Waiting (J) := False; - -- Sleeps are handled by ASTs on VMS, so don't call Wakeup. + -- Sleeps are handled by ASTs on VMS, so don't call Wakeup STPOD.Interrupt_AST_Handler (To_Address (AST_Task_Ids (J))); exit; |