diff options
Diffstat (limited to 'gcc/ada/s-soflin.ads')
| -rw-r--r-- | gcc/ada/s-soflin.ads | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/gcc/ada/s-soflin.ads b/gcc/ada/s-soflin.ads index 96d2155..5b34562 100644 --- a/gcc/ada/s-soflin.ads +++ b/gcc/ada/s-soflin.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- 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- -- @@ -326,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); |