diff options
Diffstat (limited to 'gcc/ada/g-exctra.adb')
| -rw-r--r-- | gcc/ada/g-exctra.adb | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/gcc/ada/g-exctra.adb b/gcc/ada/g-exctra.adb index c05f964bc0b..7d51ba4b79b 100644 --- a/gcc/ada/g-exctra.adb +++ b/gcc/ada/g-exctra.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2000-2002 Ada Core Technologies, Inc. -- +-- Copyright (C) 2000-2005, AdaCore -- -- -- -- 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- -- @@ -48,8 +48,7 @@ package body GNAT.Exception_Traces is function Decorator_Wrapper (Traceback : System.Address; - Len : Natural) - return String; + Len : Natural) return String; -- The wrapper to be called when a decorator is in place for exception -- backtraces. -- @@ -68,8 +67,7 @@ package body GNAT.Exception_Traces is function Decorator_Wrapper (Traceback : System.Address; - Len : Natural) - return String + Len : Natural) return String is Decorator_Traceback : Tracebacks_Array (1 .. Len); for Decorator_Traceback'Address use Traceback; |