+2015-02-20 Gary Dismukes <dismukes@adacore.com>
+
+ * sem_res.adb: Minor reformatting.
+
+2015-02-20 Vincent Celier <celier@adacore.com>
+
+ * switch-c.adb (Scan_Front_End_Switches): When comparing runtime
+ path name for several switches --RTS, use the normalized path
+ names.
+
+2015-02-20 Vincent Celier <celier@adacore.com>
+
+ * bindgen.adb: Minor reformatting and code reorganization.
+
+2015-02-20 Jose Ruiz <ruiz@adacore.com>
+
+ * a-stcoed.ads: Add spec for this package (Unimplemented_Unit).
+ * impunit.adb (Non_Imp_File_Names_12): Mark unit a-stcoed.ads as
+ defined by Ada 2012.
+
2015-02-20 Arnaud Charlet <charlet@adacore.com>
* sysdep.c, expect.c, s-oscons-tmplt.c, gsocket.h, adaint.c: Remove
--- /dev/null
+------------------------------------------------------------------------------
+-- --
+-- GNAT RUN-TIME COMPONENTS --
+-- --
+-- A D A . S Y N C H R O N O U S _ T A S K _ C O N T R O L . E D F --
+-- --
+-- S p e c --
+-- --
+-- This specification is derived from the Ada Reference Manual for use with --
+-- GNAT. In accordance with the copyright of that document, you can freely --
+-- copy and modify this specification, provided that if you redistribute a --
+-- modified version, any changes that you have made are clearly indicated. --
+-- --
+------------------------------------------------------------------------------
+
+-- This unit is not implemented in typical GNAT implementations that lie on
+-- top of operating systems, because it is infeasible to implement in such
+-- environments.
+
+-- If a target environment provides appropriate support for this package,
+-- then the Unimplemented_Unit pragma should be removed from this spec and
+-- an appropriate body provided.
+
+package Ada.Synchronous_Task_Control.EDF is
+
+ pragma Unimplemented_Unit;
+
+ procedure Suspend_Until_True_And_Set_Deadline
+ (S : in out Suspension_Object;
+ TS : Ada.Real_Time.Time_Span);
+end Ada.Synchronous_Task_Control.EDF;
-- --
-- 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- --
end loop;
end if;
+ if not (Opt.No_Run_Time_Mode or Opt.No_Stdlib) then
+ Name_Len := 0;
+
+ if Opt.Shared_Libgnat then
+ Add_Str_To_Name_Buffer ("-shared");
+ else
+ Add_Str_To_Name_Buffer ("-static");
+ end if;
+
+ -- Write directly to avoid inclusion in -K output as -static and
+ -- -shared are not usually specified linker options.
+
+ WBI (" -- " & Name_Buffer (1 .. Name_Len));
+ end if;
+
-- Sort linker options
-- This sort accomplishes two important purposes:
-- linking (not clear if this is still the case, but it is harmless).
if not (Opt.No_Run_Time_Mode or else Opt.No_Stdlib) then
- Name_Len := 0;
-
- if Opt.Shared_Libgnat then
- Add_Str_To_Name_Buffer ("-shared");
- else
- Add_Str_To_Name_Buffer ("-static");
- end if;
-
- -- Write directly to avoid -K output (why???)
-
- WBI (" -- " & Name_Buffer (1 .. Name_Len));
-
if With_GNARL then
Name_Len := 0;
end if;
end Check_Package;
- -- Start of processing for Check_Package
+ -- Start of processing for Resolve_Binder_Options
begin
for E in Elab_Order.First .. Elab_Order.Last loop
("a-extiin", T), -- Ada.Execution_Time.Interrupts
("a-iteint", T), -- Ada.Iterator_Interfaces
("a-locale", T), -- Ada.Locales
+ ("a-stcoed", T), -- Ada.Synchronous_Task_Control.EDF
("a-synbar", T), -- Ada.Synchronous_Barriers
("a-undesu", T), -- Ada.Unchecked_Deallocate_Subpool
Target : Entity_Id := Target_Typ;
begin
- -- If the type of the operand is a limited view, use the non-
- -- limited view when available. If it is a class-wide type,
- -- recover class_wide type of the non-limited view.
+ -- If the type of the operand is a limited view, use nonlimited
+ -- view when available. If it is a class-wide type, recover the
+ -- class-wide type of the nonlimited view.
if From_Limited_With (Opnd) then
if Ekind (Opnd) in Incomplete_Kind
return True;
-- If the operand is a class-wide type obtained through a limited_
- -- with clause, and the context includes the non-limited view, use
+ -- with clause, and the context includes the nonlimited view, use
-- it to determine whether the conversion is legal.
elsif Is_Class_Wide_Type (Opnd_Type)
end if;
end if;
- -- In the presence of limited_with clauses we have to use non-limited
+ -- In the presence of limited_with clauses we have to use nonlimited
-- views, if available.
Check_Limited : declare
else
declare
Runtime_Dir : String_Access;
-
begin
if System.OS_Lib.Is_Absolute_Path
(Switch_Chars (Ptr + 4 .. Max))
if RTS_Specified /= null then
if RTS_Src_Path_Name = null
or else RTS_Lib_Path_Name = null
- or else RTS_Specified.all /= RTS_Lib_Path_Name.all
+ or else
+ System.OS_Lib.Normalize_Pathname
+ (RTS_Specified.all) /=
+ System.OS_Lib.Normalize_Pathname
+ (RTS_Lib_Path_Name.all)
then
Osint.Fail
("--RTS cannot be specified multiple times");
projects / gcc.git / commitdiff