Mercurial > hg > CbC > CbC_gcc

comparison gcc/ada/libgnat/s-traceb__hpux.adb @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children 1830386684a0
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
5 -- S Y S T E M . T R A C E B A C K -- 5 -- S Y S T E M . T R A C E B A C K --
6 -- (HP/UX Version) -- 6 -- (HP/UX Version) --
7 -- -- 7 -- --
8 -- B o d y -- 8 -- B o d y --
9 -- -- 9 -- --
10 -- Copyright (C) 2009-2017, Free Software Foundation, Inc. -- 10 -- Copyright (C) 2009-2018, Free Software Foundation, Inc. --
11 -- -- 11 -- --
12 -- GNAT is free software; you can redistribute it and/or modify it under -- 12 -- GNAT is free software; you can redistribute it and/or modify it under --
13 -- terms of the GNU General Public License as published by the Free Soft- -- 13 -- terms of the GNU General Public License as published by the Free Soft- --
14 -- ware Foundation; either version 3, or (at your option) any later ver- -- 14 -- ware Foundation; either version 3, or (at your option) any later ver- --
15 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- 15 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
393 Frame.top_r4 := Up_Frame.top_r4; 393 Frame.top_r4 := Up_Frame.top_r4;
394 394
395 return True; 395 return True;
396 end Pop_Frame; 396 end Pop_Frame;
397 397
398 --------------------------------- 398 ---------------------------
399 -- Prepare_State_For_Unwind_Of -- 399 -- Prepare_For_Unwind_Of --
400 --------------------------------- 400 ---------------------------
401 401
402 function Prepare_For_Unwind_Of 402 function Prepare_For_Unwind_Of
403 (Frame : not null access CFD) return Boolean 403 (Frame : not null access CFD) return Boolean
404 is 404 is
405 Caller_UWD : UWD_Ptr; 405 Caller_UWD : UWD_Ptr;