2004-04-23 Emmanuel Briot <briot@act-europe.fr>

[pf3gnuchains/gcc-fork.git] / gcc / ada / s-soflin.ads

diff --git a/gcc/ada/s-soflin.ads b/gcc/ada/s-soflin.ads
index eaef71b..5b34562 100644 (file)
--- a/gcc/ada/s-soflin.ads
+++ b/gcc/ada/s-soflin.ads
@@ -6,9 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---                            $Revision$
---                                                                          --
---          Copyright (C) 1992-2001, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2002, 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- --
@@ -29,7 +27,7 @@
 -- covered by the  GNU Public License.                                      --
 --                                                                          --
 -- GNAT was originally developed  by the GNAT team at  New York University. --
--- It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). --
+-- Extensive contributions were provided by Ada Core Technologies Inc.      --
 --                                                                          --
 ------------------------------------------------------------------------------
 
@@ -328,9 +326,12 @@ package System.Soft_Links is
       --  current exception. Note that any exception in the same task
       --  destroys this information, so the data in this variable must
       --  be copied out before another exception can occur.
+      --
+      --  Also act as a list of the active exceptions in the case of the GCC
+      --  exception mechanism, organized as a stack with the most recent first.
 
       Machine_State_Addr : Address := Null_Address;
-      --
+      --  Machine state address. Used by front-end zero cost exception
    end record;
 
    procedure Create_TSD (New_TSD : in out TSD);