checks.adb: Fix typo.
2015-10-16 Arnaud Charlet <charlet@adacore.com> * checks.adb: Fix typo. * s-osinte-linux.ads: Add header. * projects.texi: Removed, no longer used. * s-multip.adb: Minor: fix header. * sem_ch3.adb, exp_ch7.adb, g-dirope.ads, sinfo.ads, types.ads, a-textio.adb, s-exctra.adb, ali.adb, back_end.ads, exp_intr.adb, a-tigeli.adb, exp_ch3.adb, s-os_lib.ads: Remove further references to .NET. * gnatlink.adb, opt.ads, exp_aggr.adb, s-solita.adb: Minor comment updates. From-SVN: r228880
This commit is contained in:
parent
e83ed69230
commit
57d3adcd5e
|
@ -1,3 +1,16 @@
|
||||||
|
2015-10-16 Arnaud Charlet <charlet@adacore.com>
|
||||||
|
|
||||||
|
* checks.adb: Fix typo.
|
||||||
|
* s-osinte-linux.ads: Add header.
|
||||||
|
* projects.texi: Removed, no longer used.
|
||||||
|
* s-multip.adb: Minor: fix header.
|
||||||
|
* sem_ch3.adb, exp_ch7.adb, g-dirope.ads, sinfo.ads, types.ads,
|
||||||
|
a-textio.adb, s-exctra.adb, ali.adb, back_end.ads, exp_intr.adb,
|
||||||
|
a-tigeli.adb, exp_ch3.adb, s-os_lib.ads: Remove further references to
|
||||||
|
.NET.
|
||||||
|
* gnatlink.adb, opt.ads, exp_aggr.adb, s-solita.adb: Minor comment
|
||||||
|
updates.
|
||||||
|
|
||||||
2015-10-16 Gary Dismukes <dismukes@adacore.com>
|
2015-10-16 Gary Dismukes <dismukes@adacore.com>
|
||||||
|
|
||||||
* exp_ch9.adb (Build_Simple_Entry_Call): Set_Is_Internal on
|
* exp_ch9.adb (Build_Simple_Entry_Call): Set_Is_Internal on
|
||||||
|
|
|
@ -6,7 +6,7 @@
|
||||||
-- --
|
-- --
|
||||||
-- B o d y --
|
-- B o d y --
|
||||||
-- --
|
-- --
|
||||||
-- Copyright (C) 1992-2014, Free Software Foundation, Inc. --
|
-- Copyright (C) 1992-2015, Free Software Foundation, Inc. --
|
||||||
-- --
|
-- --
|
||||||
-- GNAT is free software; you can redistribute it and/or modify it under --
|
-- 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- --
|
-- terms of the GNU General Public License as published by the Free Soft- --
|
||||||
|
@ -695,7 +695,7 @@ package body Ada.Text_IO is
|
||||||
-- The implementation of Ada.Text_IO.Get_Line is split into a subunit so
|
-- The implementation of Ada.Text_IO.Get_Line is split into a subunit so
|
||||||
-- that different implementations can be used on different systems. In
|
-- that different implementations can be used on different systems. In
|
||||||
-- particular the standard implementation uses low level stuff that is
|
-- particular the standard implementation uses low level stuff that is
|
||||||
-- not appropriate for the JVM and .NET implementations.
|
-- not appropriate for the VMs.
|
||||||
|
|
||||||
procedure Get_Line
|
procedure Get_Line
|
||||||
(Item : out String;
|
(Item : out String;
|
||||||
|
|
|
@ -6,7 +6,7 @@
|
||||||
-- --
|
-- --
|
||||||
-- B o d y --
|
-- B o d y --
|
||||||
-- --
|
-- --
|
||||||
-- Copyright (C) 1992-2010, Free Software Foundation, Inc. --
|
-- Copyright (C) 1992-2015, Free Software Foundation, Inc. --
|
||||||
-- --
|
-- --
|
||||||
-- GNAT is free software; you can redistribute it and/or modify it under --
|
-- 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- --
|
-- terms of the GNU General Public License as published by the Free Soft- --
|
||||||
|
@ -32,7 +32,7 @@
|
||||||
-- The implementation of Ada.Text_IO.Get_Line is split into a subunit so that
|
-- The implementation of Ada.Text_IO.Get_Line is split into a subunit so that
|
||||||
-- different implementations can be used on different systems. This is the
|
-- different implementations can be used on different systems. This is the
|
||||||
-- standard implementation (it uses low level features not suitable for use
|
-- standard implementation (it uses low level features not suitable for use
|
||||||
-- in the JVM or .NET implementations).
|
-- on virtual machines).
|
||||||
|
|
||||||
with System; use System;
|
with System; use System;
|
||||||
with System.Storage_Elements; use System.Storage_Elements;
|
with System.Storage_Elements; use System.Storage_Elements;
|
||||||
|
|
|
@ -385,7 +385,7 @@ package body ALI is
|
||||||
Write_Str ("make sure you are using consistent versions " &
|
Write_Str ("make sure you are using consistent versions " &
|
||||||
|
|
||||||
-- Split the following line so that it can easily be transformed for
|
-- Split the following line so that it can easily be transformed for
|
||||||
-- e.g. JVM/.NET back-ends where the compiler has a different name.
|
-- other back-ends where the compiler might have a different name.
|
||||||
|
|
||||||
"of gcc/gnatbind");
|
"of gcc/gnatbind");
|
||||||
|
|
||||||
|
|
|
@ -82,8 +82,7 @@ package Back_End is
|
||||||
--
|
--
|
||||||
-- This is a no-op with the gcc back-end (the object file is generated by
|
-- This is a no-op with the gcc back-end (the object file is generated by
|
||||||
-- the assembler afterwards), but is needed for back-ends that directly
|
-- the assembler afterwards), but is needed for back-ends that directly
|
||||||
-- generate the final object file (such as the .NET backend) so that the
|
-- generate the final object file so that the object file's timestamp is
|
||||||
-- object file's timestamp is correct when compared with the corresponding
|
-- correct when compared with the corresponding ali file by gnatmake.
|
||||||
-- ali file by gnatmake.
|
|
||||||
|
|
||||||
end Back_End;
|
end Back_End;
|
||||||
|
|
|
@ -3231,7 +3231,7 @@ package body Checks is
|
||||||
Rewrite (R_Cno, Make_Null_Statement (Loc));
|
Rewrite (R_Cno, Make_Null_Statement (Loc));
|
||||||
end if;
|
end if;
|
||||||
|
|
||||||
-- The range check raises Constrant_Error explicitly
|
-- The range check raises Constraint_Error explicitly
|
||||||
|
|
||||||
else
|
else
|
||||||
Install_Static_Check (R_Cno, Loc);
|
Install_Static_Check (R_Cno, Loc);
|
||||||
|
|
|
@ -650,7 +650,8 @@ package body Exp_Aggr is
|
||||||
-- component associations that actually need tag adjustment, similar
|
-- component associations that actually need tag adjustment, similar
|
||||||
-- to the test in Component_Not_OK_For_Backend for record aggregates
|
-- to the test in Component_Not_OK_For_Backend for record aggregates
|
||||||
-- with tagged components, but not clear whether it's worthwhile ???;
|
-- with tagged components, but not clear whether it's worthwhile ???;
|
||||||
-- in the case of the JVM, object tags are handled implicitly)
|
-- in the case of virtual machines (no Tagged_Type_Expansion), object
|
||||||
|
-- tags are handled implicitly).
|
||||||
|
|
||||||
if Is_Tagged_Type (Component_Type (Typ))
|
if Is_Tagged_Type (Component_Type (Typ))
|
||||||
and then Tagged_Type_Expansion
|
and then Tagged_Type_Expansion
|
||||||
|
|
|
@ -10420,10 +10420,7 @@ package body Exp_Ch3 is
|
||||||
-- we don't want an abstract version created because types derived from
|
-- we don't want an abstract version created because types derived from
|
||||||
-- the abstract type may not even have Input available (for example if
|
-- the abstract type may not even have Input available (for example if
|
||||||
-- derived from a private view of the abstract type that doesn't have
|
-- derived from a private view of the abstract type that doesn't have
|
||||||
-- a visible Input), but a VM such as .NET or the Java VM can treat the
|
-- a visible Input).
|
||||||
-- operation as inherited anyway, and we don't want an abstract function
|
|
||||||
-- to be (implicitly) inherited in that case because it can lead to a VM
|
|
||||||
-- exception.
|
|
||||||
|
|
||||||
-- Do not generate stream routines for type Finalization_Master because
|
-- Do not generate stream routines for type Finalization_Master because
|
||||||
-- a master may never appear in types and therefore cannot be read or
|
-- a master may never appear in types and therefore cannot be read or
|
||||||
|
|
|
@ -3318,7 +3318,7 @@ package body Exp_Ch7 is
|
||||||
Expr : Node_Id;
|
Expr : Node_Id;
|
||||||
|
|
||||||
begin
|
begin
|
||||||
-- Standard run-time and .NET/JVM targets use the specialized routine
|
-- Standard run-time use the specialized routine
|
||||||
-- Raise_From_Controlled_Operation.
|
-- Raise_From_Controlled_Operation.
|
||||||
|
|
||||||
if Exception_Extra_Info
|
if Exception_Extra_Info
|
||||||
|
@ -7656,8 +7656,8 @@ package body Exp_Ch7 is
|
||||||
-- Procedure call or raise statement
|
-- Procedure call or raise statement
|
||||||
|
|
||||||
begin
|
begin
|
||||||
-- Standard run-time, .NET/JVM targets: add choice parameter E and pass
|
-- Standard run-time: add choice parameter E and pass it to
|
||||||
-- it to Raise_From_Controlled_Operation so that the original exception
|
-- Raise_From_Controlled_Operation so that the original exception
|
||||||
-- name and message can be recorded in the exception message for
|
-- name and message can be recorded in the exception message for
|
||||||
-- Program_Error.
|
-- Program_Error.
|
||||||
|
|
||||||
|
@ -8083,11 +8083,10 @@ package body Exp_Ch7 is
|
||||||
Curr_S := Current_Scope;
|
Curr_S := Current_Scope;
|
||||||
Encl_S := Scope (Curr_S);
|
Encl_S := Scope (Curr_S);
|
||||||
|
|
||||||
-- Insert all actions inluding cleanup generated while analyzing or
|
-- Insert all actions including cleanup generated while analyzing or
|
||||||
-- expanding the transient context back into the tree. Manage the
|
-- expanding the transient context back into the tree. Manage the
|
||||||
-- secondary stack when the object declaration appears in a library
|
-- secondary stack when the object declaration appears in a library
|
||||||
-- level package [body]. This is not needed for .NET/JVM as those do
|
-- level package [body].
|
||||||
-- not support the secondary stack.
|
|
||||||
|
|
||||||
Insert_Actions_In_Scope_Around
|
Insert_Actions_In_Scope_Around
|
||||||
(N => N,
|
(N => N,
|
||||||
|
|
|
@ -1317,8 +1317,7 @@ package body Exp_Intr is
|
||||||
|
|
||||||
-- Generate:
|
-- Generate:
|
||||||
-- if Raised and then not Abort then
|
-- if Raised and then not Abort then
|
||||||
-- raise Program_Error; -- for .NET and
|
-- raise Program_Error; -- for restricted RTS
|
||||||
-- -- restricted RTS
|
|
||||||
-- <or>
|
-- <or>
|
||||||
-- Raise_From_Controlled_Operation (E); -- all other cases
|
-- Raise_From_Controlled_Operation (E); -- all other cases
|
||||||
-- end if;
|
-- end if;
|
||||||
|
|
|
@ -6,7 +6,7 @@
|
||||||
-- --
|
-- --
|
||||||
-- S p e c --
|
-- S p e c --
|
||||||
-- --
|
-- --
|
||||||
-- Copyright (C) 1998-2014, AdaCore --
|
-- Copyright (C) 1998-2015, AdaCore --
|
||||||
-- --
|
-- --
|
||||||
-- GNAT is free software; you can redistribute it and/or modify it under --
|
-- 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- --
|
-- terms of the GNU General Public License as published by the Free Soft- --
|
||||||
|
@ -248,12 +248,6 @@ private
|
||||||
|
|
||||||
type Dir_Type_Value is new System.Address;
|
type Dir_Type_Value is new System.Address;
|
||||||
-- Low-level address directory structure as returned by opendir in C
|
-- Low-level address directory structure as returned by opendir in C
|
||||||
--
|
|
||||||
-- Note that we used to define this type in the body of this package,
|
|
||||||
-- but this was causing troubles in the context of .NET code generation
|
|
||||||
-- (because Taft amendment types are not fully implemented and cause
|
|
||||||
-- undefined references to the class), so we moved the type declaration
|
|
||||||
-- to the spec's private part, which is no problem in any case here.
|
|
||||||
|
|
||||||
type Dir_Type is access Dir_Type_Value;
|
type Dir_Type is access Dir_Type_Value;
|
||||||
|
|
||||||
|
|
|
@ -1861,10 +1861,6 @@ begin
|
||||||
|
|
||||||
-- Now, actually link the program
|
-- Now, actually link the program
|
||||||
|
|
||||||
-- Skip this step for now on JVM since the Java interpreter will do
|
|
||||||
-- the actual link at run time. We might consider packing all class files
|
|
||||||
-- in a .zip file during this step.
|
|
||||||
|
|
||||||
Link_Step : declare
|
Link_Step : declare
|
||||||
Num_Args : Natural :=
|
Num_Args : Natural :=
|
||||||
(Linker_Options.Last - Linker_Options.First + 1) +
|
(Linker_Options.Last - Linker_Options.First + 1) +
|
||||||
|
|
|
@ -745,9 +745,8 @@ package Opt is
|
||||||
GNAT_Encodings : Int;
|
GNAT_Encodings : Int;
|
||||||
pragma Import (C, GNAT_Encodings, "gnat_encodings");
|
pragma Import (C, GNAT_Encodings, "gnat_encodings");
|
||||||
-- Constant controlling the balance between GNAT encodings and standard
|
-- Constant controlling the balance between GNAT encodings and standard
|
||||||
-- DWARF to emit in the debug information. See jmissing.c and aamissing.c
|
-- DWARF to emit in the debug information. See aamissing.c for definitions
|
||||||
-- for definitions for dotnet/jgnat and GNAAMP back ends. It accepts the
|
-- for the GNAAMP back end. It accepts the following values.
|
||||||
-- following values.
|
|
||||||
|
|
||||||
DWARF_GNAT_Encodings_All : constant Int := 0;
|
DWARF_GNAT_Encodings_All : constant Int := 0;
|
||||||
DWARF_GNAT_Encodings_GDB : constant Int := 1;
|
DWARF_GNAT_Encodings_GDB : constant Int := 1;
|
||||||
|
@ -1158,14 +1157,13 @@ package Opt is
|
||||||
Optimization_Level : Int;
|
Optimization_Level : Int;
|
||||||
pragma Import (C, Optimization_Level, "optimize");
|
pragma Import (C, Optimization_Level, "optimize");
|
||||||
-- Constant reflecting the optimization level (0,1,2,3 for -O0,-O1,-O2,-O3)
|
-- Constant reflecting the optimization level (0,1,2,3 for -O0,-O1,-O2,-O3)
|
||||||
-- See jmissing.c and aamissing.c for definitions for dotnet/jgnat and
|
-- See e.g. aamissing.c for definitions for the GNAAMP back end.
|
||||||
-- GNAAMP back ends.
|
|
||||||
|
|
||||||
Optimize_Size : Int;
|
Optimize_Size : Int;
|
||||||
pragma Import (C, Optimize_Size, "optimize_size");
|
pragma Import (C, Optimize_Size, "optimize_size");
|
||||||
-- Constant reflecting setting of -Os (optimize for size). Set to nonzero
|
-- Constant reflecting setting of -Os (optimize for size). Set to nonzero
|
||||||
-- in -Os mode and set to zero otherwise. See jmissing.c and aamissing.c
|
-- in -Os mode and set to zero otherwise. See aamissing.c for definition
|
||||||
-- for definitions of "optimize_size" for dotnet/jgnat and GNAAMP backends
|
-- of "optimize_size" for the GNAAMP backend.
|
||||||
|
|
||||||
Output_File_Name_Present : Boolean := False;
|
Output_File_Name_Present : Boolean := False;
|
||||||
-- GNATBIND, GNAT, GNATMAKE
|
-- GNATBIND, GNAT, GNATMAKE
|
||||||
|
@ -1431,8 +1429,7 @@ package Opt is
|
||||||
-- GNAT
|
-- GNAT
|
||||||
-- Set True if tagged types and interfaces should be expanded by the
|
-- Set True if tagged types and interfaces should be expanded by the
|
||||||
-- front-end. If False, the original tree is left unexpanded for tagged
|
-- front-end. If False, the original tree is left unexpanded for tagged
|
||||||
-- types and dispatching calls, assuming the underlying target supports
|
-- types and dispatching calls, assuming the underlying target supports it.
|
||||||
-- it (e.g. in the JVM case).
|
|
||||||
|
|
||||||
Target_Dependent_Info_Read_Name : String_Ptr := null;
|
Target_Dependent_Info_Read_Name : String_Ptr := null;
|
||||||
-- GNAT
|
-- GNAT
|
||||||
|
|
File diff suppressed because it is too large
Load Diff
|
@ -6,7 +6,7 @@
|
||||||
-- --
|
-- --
|
||||||
-- B o d y --
|
-- B o d y --
|
||||||
-- --
|
-- --
|
||||||
-- Copyright (C) 2000-2014, AdaCore --
|
-- Copyright (C) 2000-2015, AdaCore --
|
||||||
-- --
|
-- --
|
||||||
-- GNAT is free software; you can redistribute it and/or modify it under --
|
-- 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- --
|
-- terms of the GNU General Public License as published by the Free Soft- --
|
||||||
|
@ -69,8 +69,6 @@ package body System.Exception_Traces is
|
||||||
(Traceback : System.Address;
|
(Traceback : System.Address;
|
||||||
Len : Natural) return String
|
Len : Natural) return String
|
||||||
is
|
is
|
||||||
-- Note: do not use an address clause, which is not supported under .NET
|
|
||||||
|
|
||||||
subtype Trace_Array is Traceback_Entries.Tracebacks_Array (1 .. Len);
|
subtype Trace_Array is Traceback_Entries.Tracebacks_Array (1 .. Len);
|
||||||
type Trace_Array_Access is access all Trace_Array;
|
type Trace_Array_Access is access all Trace_Array;
|
||||||
|
|
||||||
|
|
|
@ -6,9 +6,9 @@
|
||||||
-- --
|
-- --
|
||||||
-- B o d y --
|
-- B o d y --
|
||||||
-- --
|
-- --
|
||||||
-- Copyright (C) 2010-2013, Free Software Foundation, Inc. --
|
-- Copyright (C) 2010-2015, Free Software Foundation, Inc. --
|
||||||
-- --
|
-- --
|
||||||
-- GNARL is free software; you can redistribute it and/or modify it under --
|
-- 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- --
|
-- terms of the GNU General Public License as published by the Free Soft- --
|
||||||
-- ware Foundation; either version 3, or (at your option) any later ver- --
|
-- ware Foundation; either version 3, or (at your option) any later ver- --
|
||||||
-- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
|
-- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
|
||||||
|
|
|
@ -48,9 +48,6 @@
|
||||||
-- be used by other predefined packages. User access to this package is via
|
-- be used by other predefined packages. User access to this package is via
|
||||||
-- a renaming of this package in GNAT.OS_Lib (file g-os_lib.ads).
|
-- a renaming of this package in GNAT.OS_Lib (file g-os_lib.ads).
|
||||||
|
|
||||||
-- Note: a distinct body for this spec is included in the .NET runtime library
|
|
||||||
-- and must be kept in sync with changes made in this file.
|
|
||||||
|
|
||||||
pragma Compiler_Unit_Warning;
|
pragma Compiler_Unit_Warning;
|
||||||
|
|
||||||
with System;
|
with System;
|
||||||
|
|
|
@ -7,7 +7,7 @@
|
||||||
-- S p e c --
|
-- S p e c --
|
||||||
-- --
|
-- --
|
||||||
-- Copyright (C) 1991-1994, Florida State University --
|
-- Copyright (C) 1991-1994, Florida State University --
|
||||||
-- Copyright (C) 1995-2014, Free Software Foundation, Inc. --
|
-- Copyright (C) 1995-2015, Free Software Foundation, Inc. --
|
||||||
-- --
|
-- --
|
||||||
-- GNAT is free software; you can redistribute it and/or modify it under --
|
-- 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- --
|
-- terms of the GNU General Public License as published by the Free Soft- --
|
||||||
|
@ -526,6 +526,10 @@ package System.OS_Interface is
|
||||||
destructor : destructor_pointer) return int;
|
destructor : destructor_pointer) return int;
|
||||||
pragma Import (C, pthread_key_create, "pthread_key_create");
|
pragma Import (C, pthread_key_create, "pthread_key_create");
|
||||||
|
|
||||||
|
----------------
|
||||||
|
-- Extensions --
|
||||||
|
----------------
|
||||||
|
|
||||||
CPU_SETSIZE : constant := 1_024;
|
CPU_SETSIZE : constant := 1_024;
|
||||||
-- Size of the cpu_set_t mask on most linux systems (SUSE 11 uses 4_096).
|
-- Size of the cpu_set_t mask on most linux systems (SUSE 11 uses 4_096).
|
||||||
-- This is kept for backward compatibility (System.Task_Info uses it), but
|
-- This is kept for backward compatibility (System.Task_Info uses it), but
|
||||||
|
|
|
@ -6,7 +6,7 @@
|
||||||
-- --
|
-- --
|
||||||
-- B o d y --
|
-- B o d y --
|
||||||
-- --
|
-- --
|
||||||
-- Copyright (C) 2004-2014, Free Software Foundation, Inc. --
|
-- Copyright (C) 2004-2015, Free Software Foundation, Inc. --
|
||||||
-- --
|
-- --
|
||||||
-- GNAT is free software; you can redistribute it and/or modify it under --
|
-- 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- --
|
-- terms of the GNU General Public License as published by the Free Soft- --
|
||||||
|
@ -159,8 +159,7 @@ package body System.Soft_Links.Tasking is
|
||||||
|
|
||||||
-- We do not want to enable this check and e.g. call System.OS_Lib.Abort
|
-- We do not want to enable this check and e.g. call System.OS_Lib.Abort
|
||||||
-- here because some restricted run-times may not have System.OS_Lib
|
-- here because some restricted run-times may not have System.OS_Lib
|
||||||
-- (e.g. JVM), and calling abort may do more harm than good to the
|
-- and calling abort may do more harm than good to the main application.
|
||||||
-- main application.
|
|
||||||
|
|
||||||
pragma Assert (Self_Id = STPO.Environment_Task);
|
pragma Assert (Self_Id = STPO.Environment_Task);
|
||||||
|
|
||||||
|
|
|
@ -10024,9 +10024,6 @@ package body Sem_Ch3 is
|
||||||
-- operations used in dispatching selects since we always provide
|
-- operations used in dispatching selects since we always provide
|
||||||
-- automatic overridings for these subprograms.
|
-- automatic overridings for these subprograms.
|
||||||
|
|
||||||
-- Also ignore this rule for convention CIL since .NET libraries
|
|
||||||
-- do bizarre things with interfaces???
|
|
||||||
|
|
||||||
-- The partial view of T may have been a private extension, for
|
-- The partial view of T may have been a private extension, for
|
||||||
-- which inherited functions dispatching on result are abstract.
|
-- which inherited functions dispatching on result are abstract.
|
||||||
-- If the full view is a null extension, there is no need for
|
-- If the full view is a null extension, there is no need for
|
||||||
|
|
|
@ -6539,7 +6539,7 @@ package Sinfo is
|
||||||
-- For some back ends, such as gcc with ZCX, "at end" is implemented
|
-- For some back ends, such as gcc with ZCX, "at end" is implemented
|
||||||
-- entirely in the back end. In this case, a handled sequence of
|
-- entirely in the back end. In this case, a handled sequence of
|
||||||
-- statements with an "at end" cannot also have exception handlers.
|
-- statements with an "at end" cannot also have exception handlers.
|
||||||
-- For other back ends, such as gcc with SJLJ and .NET, the
|
-- For other back ends, such as gcc with front-end SJLJ, the
|
||||||
-- implementation is split between the front end and back end; the front
|
-- implementation is split between the front end and back end; the front
|
||||||
-- end implements 3, and the back end implements 1 and 2. In this case,
|
-- end implements 3, and the back end implements 1 and 2. In this case,
|
||||||
-- if there is an "at end", the front end inserts the appropriate
|
-- if there is an "at end", the front end inserts the appropriate
|
||||||
|
|
|
@ -844,10 +844,7 @@ package Types is
|
||||||
-- Note on ordering of references. For the tables in Ada.Exceptions units,
|
-- Note on ordering of references. For the tables in Ada.Exceptions units,
|
||||||
-- usually the ordering does not matter, and we use the same ordering as
|
-- usually the ordering does not matter, and we use the same ordering as
|
||||||
-- is used here (note the requirement in the ordering here that CE/PE/SE
|
-- is used here (note the requirement in the ordering here that CE/PE/SE
|
||||||
-- codes be kept together, so the subtype declarations work OK). However,
|
-- codes be kept together, so the subtype declarations work OK).
|
||||||
-- there is an important exception, which is in a-except-2005.adb, where
|
|
||||||
-- ordering of the Rcheck routines must correspond to the ordering of the
|
|
||||||
-- Rmsg_xx messages. This is required by the .NET scripts.
|
|
||||||
|
|
||||||
type RT_Exception_Code is
|
type RT_Exception_Code is
|
||||||
(CE_Access_Check_Failed, -- 00
|
(CE_Access_Check_Failed, -- 00
|
||||||
|
|
Loading…
Reference in New Issue