summaryrefslogtreecommitdiff
path: root/gcc/ada/5staprop.adb
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/5staprop.adb')
-rw-r--r--gcc/ada/5staprop.adb6
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/5staprop.adb b/gcc/ada/5staprop.adb
index 3815b5fb751..e0b56c0f54a 100644
--- a/gcc/ada/5staprop.adb
+++ b/gcc/ada/5staprop.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- $Revision: 1.92 $
+-- $Revision: 1.1 $
-- --
-- Copyright (C) 1991-2001, Florida State University --
-- --
@@ -257,7 +257,7 @@ package body System.Task_Primitives.Operations is
function New_Fake_ATCB (Stack_Base : Interfaces.C.unsigned) return Task_ID;
-- Allocate and Initialize a new ATCB. This code can safely be called from
- -- a foreign thread, as it doesn't access implicitely or explicitely
+ -- a foreign thread, as it doesn't access implicitly or explicitly
-- "self" before having initialized the new ATCB.
------------
@@ -549,7 +549,7 @@ package body System.Task_Primitives.Operations is
---------------------
-- Note: mutexes and cond_variables needed per-task basis are
- -- initialized in Intialize_TCB and the Storage_Error is
+ -- initialized in Initialize_TCB and the Storage_Error is
-- handled. Other mutexes (such as All_Tasks_L, Memory_Lock...)
-- used in RTS is initialized before any status change of RTS.
-- Therefore rasing Storage_Error in the following routines