Commit bdc193ba by Arnaud Charlet

[multiple changes]

2014-08-01  Bob Duff  <duff@adacore.com>

	* gnat_ugn.texi: Minor updates.

2014-08-01  Robert Dewar  <dewar@adacore.com>

	* atree.adb: Minor reformatting.

2014-08-01  Ed Schonberg  <schonberg@adacore.com>

	* exp_aggr.adb (Init_Hidden_Discriminants): If some ancestor is a
	private extension, get stored constraint, if any, from full view.

From-SVN: r213479
parent 8bef7ba9
2014-08-01 Bob Duff <duff@adacore.com>
* gnat_ugn.texi: Minor updates.
2014-08-01 Robert Dewar <dewar@adacore.com>
* atree.adb: Minor reformatting.
2014-08-01 Ed Schonberg <schonberg@adacore.com>
* exp_aggr.adb (Init_Hidden_Discriminants): If some ancestor is a
private extension, get stored constraint, if any, from full view.
2014-08-01 Robert Dewar <dewar@adacore.com> 2014-08-01 Robert Dewar <dewar@adacore.com>
* opt.ads (No_Elab_Code_All_Pragma): New global variable. * opt.ads (No_Elab_Code_All_Pragma): New global variable.
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2014, Free Software Foundation, Inc. --
-- -- -- --
-- GNAT 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -1800,18 +1800,17 @@ package body Atree is ...@@ -1800,18 +1800,17 @@ package body Atree is
New_Node := New_Copy (Source); New_Node := New_Copy (Source);
Fix_Parents (Ref_Node => Source, Fix_Node => New_Node); Fix_Parents (Ref_Node => Source, Fix_Node => New_Node);
-- We now set the parent of the new node to be the same as the -- We now set the parent of the new node to be the same as the parent of
-- parent of the source. Almost always this parent will be -- the source. Almost always this parent will be replaced by a new value
-- replaced by a new value when the relocated node is reattached -- when the relocated node is reattached to the tree, but by doing it
-- to the tree, but by doing it now, we ensure that this node is -- now, we ensure that this node is not even temporarily disconnected
-- not even temporarily disconnected from the tree. Note that this -- from the tree. Note that this does not happen free, because in the
-- does not happen free, because in the list case, the parent does -- list case, the parent does not get set.
-- not get set.
Set_Parent (New_Node, Parent (Source)); Set_Parent (New_Node, Parent (Source));
-- If the node being relocated was a rewriting of some original -- If the node being relocated was a rewriting of some original node,
-- node, then the relocated node has the same original node. -- then the relocated node has the same original node.
if Orig_Nodes.Table (Source) /= Source then if Orig_Nodes.Table (Source) /= Source then
Orig_Nodes.Table (New_Node) := Orig_Nodes.Table (Source); Orig_Nodes.Table (New_Node) := Orig_Nodes.Table (Source);
......
...@@ -14140,10 +14140,9 @@ tool argument. ...@@ -14140,10 +14140,9 @@ tool argument.
Incremental processing on a per-file basis. Source files are only Incremental processing on a per-file basis. Source files are only
processed if they have been modified, or if files they depend on have processed if they have been modified, or if files they depend on have
been modified. This is similar to the way gnatmake/gprbuild only been modified. This is similar to the way gnatmake/gprbuild only
compiles files that need to be recompiled. Note that in this mode compiles files that need to be recompiled. A project file is required
@command{gnatpp} is acting in place of the compiler, so if a project in this mode, and the gnat driver (as in @command{gnat pretty}) is not
file is used, the switches set for the compiler should not be set supported.
to switches recognized by @command{gcc}.
@item --pp-off=@var{xxx} @item --pp-off=@var{xxx}
@cindex @option{--pp-off} @command{gnatpp} @cindex @option{--pp-off} @command{gnatpp}
...@@ -14577,10 +14576,8 @@ options: ...@@ -14577,10 +14576,8 @@ options:
--incremental -- incremental processing on a per-file basis. Source files are --incremental -- incremental processing on a per-file basis. Source files are
only processed if they have been modified, or if files they depend only processed if they have been modified, or if files they depend
on have been modified. This is similar to the way gnatmake/gprbuild on have been modified. This is similar to the way gnatmake/gprbuild
only compiles files that need to be recompiled. Note that in this mode only compiles files that need to be recompiled. A project file
@command{gnat2xml} is acting in place of the compiler, so if a project is required in this mode.
file is used, the switches set for the compiler should not be set
to switches recognized by @command{gcc}.
-j@var{n} -- In @option{--incremental} mode, use @var{n} @command{gnat2xml} -j@var{n} -- In @option{--incremental} mode, use @var{n} @command{gnat2xml}
processes to perform XML generation in parallel. If @var{n} is 0, then processes to perform XML generation in parallel. If @var{n} is 0, then
......
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