Mercurial > hg > CbC > CbC_gcc

comparison gcc/ada/libgnat/a-except.adb @ 145:1830386684a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents 84e7813d76e9
children
comparison
equal deleted inserted replaced
131:84e7813d76e9 145:1830386684a0
4 -- -- 4 -- --
5 -- A D A . E X C E P T I O N S -- 5 -- A D A . E X C E P T I O N S --
6 -- -- 6 -- --
7 -- B o d y -- 7 -- B o d y --
8 -- -- 8 -- --
9 -- Copyright (C) 1992-2018, Free Software Foundation, Inc. -- 9 -- Copyright (C) 1992-2019, Free Software Foundation, Inc. --
10 -- -- 10 -- --
11 -- GNAT is free software; you can redistribute it and/or modify it under -- 11 -- GNAT is free software; you can redistribute it and/or modify it under --
12 -- terms of the GNU General Public License as published by the Free Soft- -- 12 -- terms of the GNU General Public License as published by the Free Soft- --
13 -- ware Foundation; either version 3, or (at your option) any later ver- -- 13 -- ware Foundation; either version 3, or (at your option) any later ver- --
14 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- 14 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
1622 1622
1623 Target.Id := Source.Id; 1623 Target.Id := Source.Id;
1624 Target.Machine_Occurrence := System.Null_Address; 1624 Target.Machine_Occurrence := System.Null_Address;
1625 Target.Msg_Length := Source.Msg_Length; 1625 Target.Msg_Length := Source.Msg_Length;
1626 Target.Num_Tracebacks := Source.Num_Tracebacks; 1626 Target.Num_Tracebacks := Source.Num_Tracebacks;
1627 Target.Exception_Raised := Source.Exception_Raised;
1627 Target.Pid := Source.Pid; 1628 Target.Pid := Source.Pid;
1628 1629
1629 Target.Msg (1 .. Target.Msg_Length) := 1630 Target.Msg (1 .. Target.Msg_Length) :=
1630 Source.Msg (1 .. Target.Msg_Length); 1631 Source.Msg (1 .. Target.Msg_Length);
1631 1632