Skip to content

R
riscv-gcc-1
Commit b6e5a1ec by Arnaud Charlet
Options

[multiple changes] 

2015-01-07  Vincent Celier  <celier@adacore.com>

	* clean.adb (Gnatclean): Warn that 'gnatclean -P' is obsolete.
	* make.adb (Initialize): Warn that 'gnatmake -P' is obsolete.

2015-01-07  Vincent Celier  <celier@adacore.com>

	* prj-conf.adb (Parse_Project_And_Apply_Config): Always finalize
	errors/warnings in the first parsing of the project files,
	to display the warnings when there is no errors.

2015-01-07  Tristan Gingold  <gingold@adacore.com>

	* i-cpoint.adb (Copy_Terminated_Array): Nicely handle null target.

2015-01-07  Doug Rupp  <rupp@adacore.com>

	* s-taprop-vxworks.adb (Stop_All_Tasks): Pass return
	value from Int_Lock as parameter to Int_Unlock.
	* s-osinte-vxworks.ads (Int_Unlock): Add parameter.
	* s-vxwext.ads (Int_Unlock): Likewise.
	* s-vxwext-kernel.adb (intUnlock, Int_Unlock): Likewise.
	* s-vxwext-kernel.ads (Int_Unlock): Likewise.
	* s-vxwext-rtp.adb (Int_Unlock): Likewise.
	* s-vxwext-rtp.ads (Int_Unlock): Likewise.

2015-01-07  Pierre-Marie de Rodat  <derodat@adacore.com>

	* exp_pakd.adb: Add a comment in exp_pakd.adb to explain why we
	keep ___XP suffixes

From-SVN: r219288
parent c3831524
Showing with 78 additions and 17 deletions
gcc/ada/ChangeLog
2015-01-07 Vincent Celier <celier@adacore.com>
* clean.adb (Gnatclean): Warn that 'gnatclean -P' is obsolete.
* make.adb (Initialize): Warn that 'gnatmake -P' is obsolete.
2015-01-07 Vincent Celier <celier@adacore.com>
* prj-conf.adb (Parse_Project_And_Apply_Config): Always finalize
errors/warnings in the first parsing of the project files,
to display the warnings when there is no errors.
2015-01-07 Tristan Gingold <gingold@adacore.com>
* i-cpoint.adb (Copy_Terminated_Array): Nicely handle null target.
2015-01-07 Doug Rupp <rupp@adacore.com>
* s-taprop-vxworks.adb (Stop_All_Tasks): Pass return
value from Int_Lock as parameter to Int_Unlock.
* s-osinte-vxworks.ads (Int_Unlock): Add parameter.
* s-vxwext.ads (Int_Unlock): Likewise.
* s-vxwext-kernel.adb (intUnlock, Int_Unlock): Likewise.
* s-vxwext-kernel.ads (Int_Unlock): Likewise.
* s-vxwext-rtp.adb (Int_Unlock): Likewise.
* s-vxwext-rtp.ads (Int_Unlock): Likewise.
2015-01-07 Pierre-Marie de Rodat <derodat@adacore.com>
* exp_pakd.adb: Add a comment in exp_pakd.adb to explain why we
keep ___XP suffixes
2015-01-07 Tristan Gingold <gingold@adacore.com>
* i-cpoint.adb (Copy_Terminated_Array): Use Copy_Array to
......
gcc/ada/clean.adb
......@@ -1383,6 +1383,14 @@ package body Clean is
if Project_File_Name /= null then
-- Warn about 'gnatclean -P'
if Project_File_Name /= null then
Put_Line
("warning: gnatclean -P is obsolete and will not be available " &
"in the next release. Use gprclean instead.");
end if;
-- A project file was specified by a -P switch
if Opt.Verbose_Mode then
......
gcc/ada/exp_pakd.adb
......@@ -763,6 +763,12 @@ package body Exp_Pakd is
-- a subtype that is equivalent to use Packed_Bytes{1,2,4} as needed.
elsif not Is_Constrained (Typ) then
-- When generating standard DWARF, the ___XP suffix will be stripped
-- by the back-end, but generate it anyway to ease compiler
-- debugging: this will help to distinguish implementation types from
-- original packed arrays.
PAT :=
Make_Defining_Identifier (Loc,
Chars => Make_Packed_Array_Impl_Type_Name (Typ, Csize));
......
gcc/ada/i-cpoint.adb
......@@ -146,7 +146,7 @@ package body Interfaces.C.Pointers is
L : ptrdiff_t;
S : Pointer := Source;
begin
if Source = null then
if Source = null or Target = null then
raise Dereference_Error;
end if;
......
gcc/ada/make.adb
......@@ -6486,6 +6486,14 @@ package body Make is
Make_Failed ("-i and -D cannot be used simultaneously");
end if;
-- Warn about 'gnatmake -P'
if Project_File_Name /= null then
Write_Line
("warning: gnatmake -P is obsolete and will not be available " &
"in the next release. Use gprbuild instead.");
end if;
-- If --subdirs= is specified, but not -P, this is equivalent to -D,
-- except that the directory is created if it does not exist.
......
gcc/ada/prj-conf.adb
......@@ -1604,6 +1604,8 @@ package body Prj.Conf is
Target_Try_Again : Boolean := True;
Config_Try_Again : Boolean;
Finalization : Prj.Part.Errout_Mode := Prj.Part.Always_Finalize;
S : State := No_State;
Conf_File_Name : String_Access := new String'(Config_File_Name);
......@@ -1663,13 +1665,15 @@ package body Prj.Conf is
(In_Tree => Project_Node_Tree,
Project => User_Project_Node,
Project_File_Name => Project_File_Name,
Errout_Handling => Prj.Part.Finalize_If_Error,
Errout_Handling => Finalization,
Packages_To_Check => Packages_To_Check,
Current_Directory => Current_Directory,
Is_Config_File => False,
Env => Env,
Implicit_Project => Implicit_Project);
Finalization := Prj.Part.Finalize_If_Error;
if User_Project_Node = Empty_Node then
return;
end if;
......
gcc/ada/s-osinte-vxworks.ads
......@@ -227,9 +227,11 @@ package System.OS_Interface is
-- If we are in the kernel space, lock interrupts. It typically maps to
-- intLock.
function Int_Unlock return int renames System.VxWorks.Ext.Int_Unlock;
function Int_Unlock (Old : int) return int
renames System.VxWorks.Ext.Int_Unlock;
-- If we are in the kernel space, unlock interrupts. It typically maps to
-- intUnlock.
-- intUnlock. The parameter Old is only used on PowerPC where it contains
-- the returned value from Int_Lock (the old MPSR).
----------
-- Time --
......
gcc/ada/s-taprop-vxworks.adb
......@@ -1299,9 +1299,10 @@ package body System.Task_Primitives.Operations is
C : Task_Id;
Dummy : int;
Old : int;
begin
Dummy := Int_Lock;
Old := Int_Lock;
C := All_Tasks_List;
while C /= null loop
......@@ -1314,7 +1315,7 @@ package body System.Task_Primitives.Operations is
C := C.Common.All_Tasks_Link;
end loop;
Dummy := Int_Unlock;
Dummy := Int_Unlock (Old);
end Stop_All_Tasks;
---------------
......
gcc/ada/s-vxwext-kernel.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2008-2011, Free Software Foundation, Inc. --
-- Copyright (C) 2008-2014, Free Software Foundation, Inc. --
-- --
-- GNARL 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- --
......@@ -49,10 +49,10 @@ package body System.VxWorks.Ext is
-- Int_Unlock --
----------------
function intUnlock return int;
function intUnlock (Old : int) return int;
pragma Import (C, intUnlock, "intUnlock");
function Int_Unlock return int renames intUnlock;
function Int_Unlock (Old : int) return int renames intUnlock;
---------------
-- semDelete --
......
gcc/ada/s-vxwext-kernel.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 2008-2011, Free Software Foundation, Inc. --
-- Copyright (C) 2008-2014, Free Software Foundation, Inc. --
-- --
-- GNARL 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- --
......@@ -53,7 +53,7 @@ package System.VxWorks.Ext is
function Int_Lock return int;
pragma Convention (C, Int_Lock);
function Int_Unlock return int;
function Int_Unlock (Old : int) return int;
pragma Convention (C, Int_Unlock);
function Interrupt_Connect
......
gcc/ada/s-vxwext-rtp.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2008-2011, Free Software Foundation, Inc. --
-- Copyright (C) 2008-2014, Free Software Foundation, Inc. --
-- --
-- GNARL 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- --
......@@ -48,7 +48,8 @@ package body System.VxWorks.Ext is
-- Int_Unlock --
----------------
function Int_Unlock return int is
function Int_Unlock (Old : int) return int is
pragma Unreferenced (Old);
begin
return ERROR;
end Int_Unlock;
......
gcc/ada/s-vxwext-rtp.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 2008-2011, Free Software Foundation, Inc. --
-- Copyright (C) 2008-2014, Free Software Foundation, Inc. --
-- --
-- GNARL 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- --
......@@ -53,7 +53,7 @@ package System.VxWorks.Ext is
function Int_Lock return int;
pragma Inline (Int_Lock);
function Int_Unlock return int;
function Int_Unlock (Old : int) return int;
pragma Inline (Int_Unlock);
function Interrupt_Connect
......
gcc/ada/s-vxwext.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 2008-2011, Free Software Foundation, Inc. --
-- Copyright (C) 2008-2014, Free Software Foundation, Inc. --
-- --
-- GNARL 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- --
......@@ -54,7 +54,7 @@ package System.VxWorks.Ext is
function Int_Lock return int;
pragma Import (C, Int_Lock, "intLock");
function Int_Unlock return int;
function Int_Unlock (Old : int) return int;
pragma Import (C, Int_Unlock, "intUnlock");
function Interrupt_Connect
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment