[multiple changes]
2014-11-20 Arnaud Charlet <charlet@adacore.com> * s-taspri-solaris.ads: Replace 64 by long_long_integer'size. 2014-11-20 Olivier Hainque <hainque@adacore.com> * init.c (__gnat_map_signal for VxWorks): Use a common mapping scheme for VxWorks version >= 6, instead of falling back to the vx5 scheme for versions > 6. 2014-11-20 Ed Schonberg <schonberg@adacore.com> * exp_strm.adb (Build_Mutable_Record_Read_Procedure): Use base type when constructing subtype indication for constrained target object. 2014-11-20 Jose Ruiz <ruiz@adacore.com> * projects.texi: Minor spelling fix. 2014-11-20 Bob Duff <duff@adacore.com> * gnat_ugn.texi: Add doc for --split-line-before-op switch in gnatpp. 2014-11-20 Vincent Celier <celier@adacore.com> * prj-attr.adb (Register_New_Package): Allow the registration of an already unknown package and make it known. From-SVN: r217873
This commit is contained in:
parent
509793471a
commit
7e4f00b47c
@ -1,3 +1,32 @@
|
||||
2014-11-20 Arnaud Charlet <charlet@adacore.com>
|
||||
|
||||
* s-taspri-solaris.ads: Replace 64 by long_long_integer'size.
|
||||
|
||||
2014-11-20 Olivier Hainque <hainque@adacore.com>
|
||||
|
||||
* init.c (__gnat_map_signal for VxWorks): Use a common mapping
|
||||
scheme for VxWorks version >= 6, instead of falling back to the
|
||||
vx5 scheme for versions > 6.
|
||||
|
||||
2014-11-20 Ed Schonberg <schonberg@adacore.com>
|
||||
|
||||
* exp_strm.adb (Build_Mutable_Record_Read_Procedure): Use
|
||||
base type when constructing subtype indication for constrained
|
||||
target object.
|
||||
|
||||
2014-11-20 Jose Ruiz <ruiz@adacore.com>
|
||||
|
||||
* projects.texi: Minor spelling fix.
|
||||
|
||||
2014-11-20 Bob Duff <duff@adacore.com>
|
||||
|
||||
* gnat_ugn.texi: Add doc for --split-line-before-op switch in gnatpp.
|
||||
|
||||
2014-11-20 Vincent Celier <celier@adacore.com>
|
||||
|
||||
* prj-attr.adb (Register_New_Package): Allow the registration
|
||||
of an already unknown package and make it known.
|
||||
|
||||
2014-11-20 Trevor Saunders <tsaunders@mozilla.com>
|
||||
|
||||
* gcc-interface/decl.c, gcc-interface/utils.c: replace htab with
|
||||
|
@ -978,7 +978,7 @@ package body Exp_Strm is
|
||||
Defining_Identifier => Tmp,
|
||||
Object_Definition =>
|
||||
Make_Subtype_Indication (Loc,
|
||||
Subtype_Mark => New_Occurrence_Of (Typ, Loc),
|
||||
Subtype_Mark => New_Occurrence_Of (Base_Type (Typ), Loc),
|
||||
Constraint =>
|
||||
Make_Index_Or_Discriminant_Constraint (Loc,
|
||||
Constraints => Cstr))));
|
||||
|
@ -13970,6 +13970,12 @@ Same as @code{--decimal-grouping}, but for based literals. For
|
||||
example, with @code{--based-grouping=4}, @code{16#0001FFFE#} will be
|
||||
changed to @code{16#0001_FFFE#}.
|
||||
|
||||
@item --split-line-before-op
|
||||
@cindex @option{--split-line-before-op} (@command{gnatpp})
|
||||
If it is necessary to split a line at a binary operator, by default
|
||||
the line is split after the operator. With this option, it is split
|
||||
before the operator.
|
||||
|
||||
@item --RM-style-spacing
|
||||
@cindex @option{--RM-style-spacing} (@command{gnatpp})
|
||||
Do not insert an extra blank before various occurrences of
|
||||
|
@ -1800,7 +1800,7 @@ __gnat_map_signal (int sig, siginfo_t *si ATTRIBUTE_UNUSED,
|
||||
msg = "SIGBUS: possible stack overflow";
|
||||
break;
|
||||
#endif
|
||||
#elif (_WRS_VXWORKS_MAJOR == 6)
|
||||
#elif (_WRS_VXWORKS_MAJOR >= 6)
|
||||
case SIGILL:
|
||||
exception = &constraint_error;
|
||||
msg = "SIGILL";
|
||||
|
@ -905,6 +905,7 @@ package body Prj.Attr is
|
||||
|
||||
procedure Register_New_Package (Name : String; Id : out Package_Node_Id) is
|
||||
Pkg_Name : Name_Id;
|
||||
Found : Boolean := False;
|
||||
|
||||
begin
|
||||
if Name'Length = 0 then
|
||||
@ -917,17 +918,27 @@ package body Prj.Attr is
|
||||
|
||||
for Index in Package_Attributes.First .. Package_Attributes.Last loop
|
||||
if Package_Attributes.Table (Index).Name = Pkg_Name then
|
||||
Fail ("cannot register a package with a non unique name """
|
||||
& Name
|
||||
& """");
|
||||
Id := Empty_Package;
|
||||
return;
|
||||
if Package_Attributes.Table (Index).Known then
|
||||
Fail ("cannot register a package with a non unique name """
|
||||
& Name
|
||||
& """");
|
||||
Id := Empty_Package;
|
||||
return;
|
||||
|
||||
else
|
||||
Found := True;
|
||||
Id := (Value => Index);
|
||||
exit;
|
||||
end if;
|
||||
end if;
|
||||
end loop;
|
||||
|
||||
Package_Attributes.Increment_Last;
|
||||
Id := (Value => Package_Attributes.Last);
|
||||
Package_Attributes.Table (Package_Attributes.Last) :=
|
||||
if not Found then
|
||||
Package_Attributes.Increment_Last;
|
||||
Id := (Value => Package_Attributes.Last);
|
||||
end if;
|
||||
|
||||
Package_Attributes.Table (Id.Value) :=
|
||||
(Name => Pkg_Name,
|
||||
Known => True,
|
||||
First_Attribute => Empty_Attr);
|
||||
|
@ -2643,7 +2643,7 @@ themselves (so for instance you cannot use it to change the value
|
||||
of your PATH as seen from the spawned compiler).
|
||||
|
||||
This attribute affects the external values as seen in the rest of
|
||||
the aggreate projects, and in the aggregated projects.
|
||||
the aggregate project, and in the aggregated projects.
|
||||
|
||||
The exact value of external a variable comes from one of three
|
||||
sources (each level overrides the previous levels):
|
||||
|
@ -78,7 +78,7 @@ package System.Task_Primitives is
|
||||
|
||||
private
|
||||
|
||||
type Private_Task_Serial_Number is mod 2 ** 64;
|
||||
type Private_Task_Serial_Number is mod 2 ** Long_Long_Integer'Size;
|
||||
-- Used to give each task a unique serial number
|
||||
|
||||
type Base_Lock is new System.OS_Interface.mutex_t;
|
||||
|
Loading…
Reference in New Issue
Block a user