Mercurial > hg > CbC > CbC_gcc

comparison gcc/ada/types.ads @ 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
4 -- -- 4 -- --
5 -- T Y P E S -- 5 -- T Y P E S --
6 -- -- 6 -- --
7 -- S p e c -- 7 -- S p e c --
8 -- -- 8 -- --
9 -- Copyright (C) 1992-2017, Free Software Foundation, Inc. -- 9 -- Copyright (C) 1992-2018, 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- --
849 -- static string constant. Note that there is more than one version 849 -- static string constant. Note that there is more than one version
850 -- of a-except.adb which must be modified. 850 -- of a-except.adb which must be modified.
851 851
852 -- Note on ordering of references. For the tables in Ada.Exceptions units, 852 -- Note on ordering of references. For the tables in Ada.Exceptions units,
853 -- usually the ordering does not matter, and we use the same ordering as 853 -- usually the ordering does not matter, and we use the same ordering as
854 -- is used here (note the requirement in the ordering here that CE/PE/SE 854 -- is used here.
855 -- codes be kept together, so the subtype declarations work OK).
856 855
857 type RT_Exception_Code is 856 type RT_Exception_Code is
858 (CE_Access_Check_Failed, -- 00 857 (CE_Access_Check_Failed, -- 00
859 CE_Access_Parameter_Is_Null, -- 01 858 CE_Access_Parameter_Is_Null, -- 01
860 CE_Discriminant_Check_Failed, -- 02 859 CE_Discriminant_Check_Failed, -- 02
892 PE_Non_Transportable_Actual, -- 31 891 PE_Non_Transportable_Actual, -- 31
893 SE_Empty_Storage_Pool, -- 32 892 SE_Empty_Storage_Pool, -- 32
894 SE_Explicit_Raise, -- 33 893 SE_Explicit_Raise, -- 33
895 SE_Infinite_Recursion, -- 34 894 SE_Infinite_Recursion, -- 34
896 SE_Object_Too_Large, -- 35 895 SE_Object_Too_Large, -- 35
897 PE_Stream_Operation_Not_Allowed); -- 36 896 PE_Stream_Operation_Not_Allowed, -- 36
898 897 PE_Build_In_Place_Mismatch); -- 37
899 Last_Reason_Code : constant := 36; 898
899 Last_Reason_Code : constant :=
900 RT_Exception_Code'Pos (RT_Exception_Code'Last);
900 -- Last reason code 901 -- Last reason code
901 902
902 type Reason_Kind is (CE_Reason, PE_Reason, SE_Reason); 903 type Reason_Kind is (CE_Reason, PE_Reason, SE_Reason);
903 -- Categorization of reason codes by exception raised 904 -- Categorization of reason codes by exception raised
904 905
935 PE_Potentially_Blocking_Operation => PE_Reason, 936 PE_Potentially_Blocking_Operation => PE_Reason,
936 PE_Stubbed_Subprogram_Called => PE_Reason, 937 PE_Stubbed_Subprogram_Called => PE_Reason,
937 PE_Unchecked_Union_Restriction => PE_Reason, 938 PE_Unchecked_Union_Restriction => PE_Reason,
938 PE_Non_Transportable_Actual => PE_Reason, 939 PE_Non_Transportable_Actual => PE_Reason,
939 PE_Stream_Operation_Not_Allowed => PE_Reason, 940 PE_Stream_Operation_Not_Allowed => PE_Reason,
941 PE_Build_In_Place_Mismatch => PE_Reason,
940 942
941 SE_Empty_Storage_Pool => SE_Reason, 943 SE_Empty_Storage_Pool => SE_Reason,
942 SE_Explicit_Raise => SE_Reason, 944 SE_Explicit_Raise => SE_Reason,
943 SE_Infinite_Recursion => SE_Reason, 945 SE_Infinite_Recursion => SE_Reason,
944 SE_Object_Too_Large => SE_Reason); 946 SE_Object_Too_Large => SE_Reason);