diff options
Diffstat (limited to 'gcc/ada/s-traceb-hpux.adb')
| -rw-r--r-- | gcc/ada/s-traceb-hpux.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/s-traceb-hpux.adb b/gcc/ada/s-traceb-hpux.adb index 013435bd100..5457cb1d0ee 100644 --- a/gcc/ada/s-traceb-hpux.adb +++ b/gcc/ada/s-traceb-hpux.adb @@ -7,7 +7,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1999-2003 Ada Core Technologies, Inc. -- +-- Copyright (C) 1999-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- -- @@ -359,7 +359,7 @@ package body System.Traceback is return False; end if; - -- Now, safely call the unwinder and use the results. + -- Now, safely call the unwinder and use the results if U_get_previous_frame_x (Frame, Up_Frame'Access, @@ -510,7 +510,7 @@ package body System.Traceback is Frame_Info_Offset : constant := 8; begin - -- First try to locate the descriptor in the program's unwind table. + -- First try to locate the descriptor in the program's unwind table UWD_Address := U_get_unwind_entry (Frame.cur_rlo, Frame.cur_rls, @@ -562,7 +562,7 @@ package body System.Traceback is Pop_Success := Pop_Frame (Frame'Access); - -- Skip the requested number of frames. + -- Skip the requested number of frames for I in 1 .. Skip_Frames loop Pop_Success := Pop_Frame (Frame'Access); |