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>
|
||||
|
||||
* exp_ch9.adb (Build_Simple_Entry_Call): Set_Is_Internal on
|
||||
|
|
|
@ -6,7 +6,7 @@
|
|||
-- --
|
||||
-- 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 --
|
||||
-- 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
|
||||
-- that different implementations can be used on different systems. In
|
||||
-- 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
|
||||
(Item : out String;
|
||||
|
|
|
@ -6,7 +6,7 @@
|
|||
-- --
|
||||
-- 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 --
|
||||
-- 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
|
||||
-- different implementations can be used on different systems. This is the
|
||||
-- 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.Storage_Elements; use System.Storage_Elements;
|
||||
|
|
|
@ -385,7 +385,7 @@ package body ALI is
|
|||
Write_Str ("make sure you are using consistent versions " &
|
||||
|
||||
-- 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");
|
||||
|
||||
|
|
|
@ -82,8 +82,7 @@ package Back_End is
|
|||
--
|
||||
-- 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
|
||||
-- generate the final object file (such as the .NET backend) so that the
|
||||
-- object file's timestamp is correct when compared with the corresponding
|
||||
-- ali file by gnatmake.
|
||||
-- generate the final object file so that the object file's timestamp is
|
||||
-- correct when compared with the corresponding ali file by gnatmake.
|
||||
|
||||
end Back_End;
|
||||
|
|
|
@ -3231,7 +3231,7 @@ package body Checks is
|
|||
Rewrite (R_Cno, Make_Null_Statement (Loc));
|
||||
end if;
|
||||
|
||||
-- The range check raises Constrant_Error explicitly
|
||||
-- The range check raises Constraint_Error explicitly
|
||||
|
||||
else
|
||||
Install_Static_Check (R_Cno, Loc);
|
||||
|
|
|
@ -650,7 +650,8 @@ package body Exp_Aggr is
|
|||
-- component associations that actually need tag adjustment, similar
|
||||
-- to the test in Component_Not_OK_For_Backend for record aggregates
|
||||
-- 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))
|
||||
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
|
||||
-- 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
|
||||
-- a visible Input), but a VM such as .NET or the Java VM can treat the
|
||||
-- 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.
|
||||
-- a visible Input).
|
||||
|
||||
-- Do not generate stream routines for type Finalization_Master because
|
||||
-- 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;
|
||||
|
||||
begin
|
||||
-- Standard run-time and .NET/JVM targets use the specialized routine
|
||||
-- Standard run-time use the specialized routine
|
||||
-- Raise_From_Controlled_Operation.
|
||||
|
||||
if Exception_Extra_Info
|
||||
|
@ -7656,8 +7656,8 @@ package body Exp_Ch7 is
|
|||
-- Procedure call or raise statement
|
||||
|
||||
begin
|
||||
-- Standard run-time, .NET/JVM targets: add choice parameter E and pass
|
||||
-- it to Raise_From_Controlled_Operation so that the original exception
|
||||
-- Standard run-time: add choice parameter E and pass it to
|
||||
-- Raise_From_Controlled_Operation so that the original exception
|
||||
-- name and message can be recorded in the exception message for
|
||||
-- Program_Error.
|
||||
|
||||
|
@ -8083,11 +8083,10 @@ package body Exp_Ch7 is
|
|||
Curr_S := Current_Scope;
|
||||
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
|
||||
-- secondary stack when the object declaration appears in a library
|
||||
-- level package [body]. This is not needed for .NET/JVM as those do
|
||||
-- not support the secondary stack.
|
||||
-- level package [body].
|
||||
|
||||
Insert_Actions_In_Scope_Around
|
||||
(N => N,
|
||||
|
|
|
@ -1317,8 +1317,7 @@ package body Exp_Intr is
|
|||
|
||||
-- Generate:
|
||||
-- if Raised and then not Abort then
|
||||
-- raise Program_Error; -- for .NET and
|
||||
-- -- restricted RTS
|
||||
-- raise Program_Error; -- for restricted RTS
|
||||
-- <or>
|
||||
-- Raise_From_Controlled_Operation (E); -- all other cases
|
||||
-- end if;
|
||||
|
|
|
@ -6,7 +6,7 @@
|
|||
-- --
|
||||
-- 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 --
|
||||
-- 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;
|
||||
-- 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;
|
||||
|
||||
|
|
|
@ -1861,10 +1861,6 @@ begin
|
|||
|
||||
-- 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
|
||||
Num_Args : Natural :=
|
||||
(Linker_Options.Last - Linker_Options.First + 1) +
|
||||
|
|
|
@ -745,9 +745,8 @@ package Opt is
|
|||
GNAT_Encodings : Int;
|
||||
pragma Import (C, GNAT_Encodings, "gnat_encodings");
|
||||
-- Constant controlling the balance between GNAT encodings and standard
|
||||
-- DWARF to emit in the debug information. See jmissing.c and aamissing.c
|
||||
-- for definitions for dotnet/jgnat and GNAAMP back ends. It accepts the
|
||||
-- following values.
|
||||
-- DWARF to emit in the debug information. See aamissing.c for definitions
|
||||
-- for the GNAAMP back end. It accepts the following values.
|
||||
|
||||
DWARF_GNAT_Encodings_All : constant Int := 0;
|
||||
DWARF_GNAT_Encodings_GDB : constant Int := 1;
|
||||
|
@ -1158,14 +1157,13 @@ package Opt is
|
|||
Optimization_Level : Int;
|
||||
pragma Import (C, Optimization_Level, "optimize");
|
||||
-- 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
|
||||
-- GNAAMP back ends.
|
||||
-- See e.g. aamissing.c for definitions for the GNAAMP back end.
|
||||
|
||||
Optimize_Size : Int;
|
||||
pragma Import (C, Optimize_Size, "optimize_size");
|
||||
-- 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
|
||||
-- for definitions of "optimize_size" for dotnet/jgnat and GNAAMP backends
|
||||
-- in -Os mode and set to zero otherwise. See aamissing.c for definition
|
||||
-- of "optimize_size" for the GNAAMP backend.
|
||||
|
||||
Output_File_Name_Present : Boolean := False;
|
||||
-- GNATBIND, GNAT, GNATMAKE
|
||||
|
@ -1431,8 +1429,7 @@ package Opt is
|
|||
-- GNAT
|
||||
-- Set True if tagged types and interfaces should be expanded by the
|
||||
-- front-end. If False, the original tree is left unexpanded for tagged
|
||||
-- types and dispatching calls, assuming the underlying target supports
|
||||
-- it (e.g. in the JVM case).
|
||||
-- types and dispatching calls, assuming the underlying target supports it.
|
||||
|
||||
Target_Dependent_Info_Read_Name : String_Ptr := null;
|
||||
-- GNAT
|
||||
|
|
File diff suppressed because it is too large
Load Diff
|
@ -6,7 +6,7 @@
|
|||
-- --
|
||||
-- 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 --
|
||||
-- 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;
|
||||
Len : Natural) return String
|
||||
is
|
||||
-- Note: do not use an address clause, which is not supported under .NET
|
||||
|
||||
subtype Trace_Array is Traceback_Entries.Tracebacks_Array (1 .. Len);
|
||||
type Trace_Array_Access is access all Trace_Array;
|
||||
|
||||
|
|
|
@ -6,9 +6,9 @@
|
|||
-- --
|
||||
-- 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- --
|
||||
-- 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- --
|
||||
|
|
|
@ -48,9 +48,6 @@
|
|||
-- 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).
|
||||
|
||||
-- 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;
|
||||
|
||||
with System;
|
||||
|
|
|
@ -7,7 +7,7 @@
|
|||
-- S p e c --
|
||||
-- --
|
||||
-- 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 --
|
||||
-- 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;
|
||||
pragma Import (C, pthread_key_create, "pthread_key_create");
|
||||
|
||||
----------------
|
||||
-- Extensions --
|
||||
----------------
|
||||
|
||||
CPU_SETSIZE : constant := 1_024;
|
||||
-- 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
|
||||
|
|
|
@ -6,7 +6,7 @@
|
|||
-- --
|
||||
-- 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 --
|
||||
-- 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
|
||||
-- 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
|
||||
-- main application.
|
||||
-- and calling abort may do more harm than good to the main application.
|
||||
|
||||
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
|
||||
-- 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
|
||||
-- which inherited functions dispatching on result are abstract.
|
||||
-- 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
|
||||
-- entirely in the back end. In this case, a handled sequence of
|
||||
-- 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
|
||||
-- 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
|
||||
|
|
|
@ -844,10 +844,7 @@ package Types is
|
|||
-- 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
|
||||
-- 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,
|
||||
-- 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.
|
||||
-- codes be kept together, so the subtype declarations work OK).
|
||||
|
||||
type RT_Exception_Code is
|
||||
(CE_Access_Check_Failed, -- 00
|
||||
|
|
Loading…
Reference in New Issue