+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
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
-- 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));
L : ptrdiff_t;
S : Pointer := Source;
begin
- if Source = null then
+ if Source = null or Target = null then
raise Dereference_Error;
end if;
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.
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);
(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;
-- 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 --
C : Task_Id;
Dummy : int;
+ Old : int;
begin
- Dummy := Int_Lock;
+ Old := Int_Lock;
C := All_Tasks_List;
while C /= null loop
C := C.Common.All_Tasks_Link;
end loop;
- Dummy := Int_Unlock;
+ Dummy := Int_Unlock (Old);
end Stop_All_Tasks;
---------------
-- --
-- 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- --
-- 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 --
-- --
-- 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- --
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
-- --
-- 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- --
-- 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;
-- --
-- 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- --
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
-- --
-- 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- --
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
projects / platform / upstream / gcc.git / commitdiff