OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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:
Arnaud Charlet 2015-10-16 12:25:58 +00:00 committed by Arnaud Charlet
parent e83ed69230
commit 57d3adcd5e
22 changed files with 49 additions and 5163 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
gcc/ada/ChangeLog
View File

@ -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

4
gcc/ada/a-textio.adb
View File

@ -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;

4
gcc/ada/a-tigeli.adb
View File

@ -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;

2
gcc/ada/ali.adb
View File

@ -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");

5
gcc/ada/back_end.ads
View File

@ -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;

2
gcc/ada/checks.adb
View File

@ -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);

3
gcc/ada/exp_aggr.adb
View File

@ -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

5
gcc/ada/exp_ch3.adb
View File

@ -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

11
gcc/ada/exp_ch7.adb
View File

@ -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,

3
gcc/ada/exp_intr.adb
View File

@ -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;

8
gcc/ada/g-dirope.ads
View File

@ -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;

4
gcc/ada/gnatlink.adb
View File

@ -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) +

15
gcc/ada/opt.ads
View File

@ -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

5101
gcc/ada/projects.texi
View File

File diff suppressed because it is too large Load Diff

4
gcc/ada/s-exctra.adb
View File

@ -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;

4
gcc/ada/s-multip.adb
View File

@ -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- --

3
gcc/ada/s-os_lib.ads
View File

@ -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;

6
gcc/ada/s-osinte-linux.ads
View File

@ -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

5
gcc/ada/s-solita.adb
View File

@ -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);

3
gcc/ada/sem_ch3.adb
View File

@ -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

2
gcc/ada/sinfo.ads
View File

@ -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

5
gcc/ada/types.ads
View File

@ -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