Commit cd3cd5b1 by Arnaud Charlet

[multiple changes]

2007-08-16  Robert Dewar  <dewar@adacore.com>

	* gnat_ugn.texi: Add note on preprocessing (output file not written)

2007-08-16  Thomas Quinot  <quinot@adacore.com>

	* a-tags.adb: Minor reformatting.

2007-08-16  Bob Duff  <duff@adacore.com>

	* sem_type.ads, sem_ch4.adb: Minor reformatting.

From-SVN: r127552
parent a14782e1
...@@ -351,8 +351,8 @@ package body Ada.Tags is ...@@ -351,8 +351,8 @@ package body Ada.Tags is
Obj_Base := Obj_Base + Obj_Base := Obj_Base +
Iface_Table.Ifaces_Table (Id).Offset_To_Top_Value; Iface_Table.Ifaces_Table (Id).Offset_To_Top_Value;
-- Otherwise we call the function generated by the expander -- Otherwise call the function generated by the expander to
-- to provide us with this value -- provide the value.
else else
Obj_Base := Obj_Base + Obj_Base := Obj_Base +
...@@ -637,11 +637,10 @@ package body Ada.Tags is ...@@ -637,11 +637,10 @@ package body Ada.Tags is
-- Handle library-level tagged types -- Handle library-level tagged types
else else
-- Make a copy of the string representing the external tag with -- Make NUL-terminated copy of external tag string
-- a null at the end.
Ext_Copy (External'Range) := External; Ext_Copy (External'Range) := External;
Ext_Copy (Ext_Copy'Last) := ASCII.NUL; Ext_Copy (Ext_Copy'Last) := ASCII.NUL;
Res := External_Tag_HTable.Get (Ext_Copy'Address); Res := External_Tag_HTable.Get (Ext_Copy'Address);
end if; end if;
......
...@@ -6855,7 +6855,8 @@ and communicates it to the compiler using this switch. ...@@ -6855,7 +6855,8 @@ and communicates it to the compiler using this switch.
@subsection Integrated Preprocessing @subsection Integrated Preprocessing
@noindent @noindent
GNAT sources may be preprocessed immediately before compilation; the actual GNAT sources may be preprocessed immediately before compilation.
In this case, the actual
text of the source is not the text of the source file, but is derived from it text of the source is not the text of the source file, but is derived from it
through a process called preprocessing. Integrated preprocessing is specified through a process called preprocessing. Integrated preprocessing is specified
through switches @option{-gnatep} and/or @option{-gnateD}. @option{-gnatep} through switches @option{-gnatep} and/or @option{-gnateD}. @option{-gnatep}
...@@ -6863,6 +6864,13 @@ indicates, through a text file, the preprocessing data to be used. ...@@ -6863,6 +6864,13 @@ indicates, through a text file, the preprocessing data to be used.
@option{-gnateD} specifies or modifies the values of preprocessing symbol. @option{-gnateD} specifies or modifies the values of preprocessing symbol.
@noindent @noindent
Note that when integrated preprocessing is used, the output from the
preprocessor is not written to any external file. Instead it is passed
internally to the compiler. If you need to preserve the result of
preprocessing in a file, then you should use @command{gnatprep}
to perform the desired preprocessing in stand-alone mode.
@noindent
It is recommended that @command{gnatmake} switch ^-s^/SWITCH_CHECK^ should be It is recommended that @command{gnatmake} switch ^-s^/SWITCH_CHECK^ should be
used when Integrated Preprocessing is used. The reason is that preprocessing used when Integrated Preprocessing is used. The reason is that preprocessing
with another Preprocessing Data file without changing the sources will with another Preprocessing Data file without changing the sources will
...@@ -1005,10 +1005,10 @@ package body Sem_Ch4 is ...@@ -1005,10 +1005,10 @@ package body Sem_Ch4 is
Analyze_Expression (L); Analyze_Expression (L);
Analyze_Expression (R); Analyze_Expression (R);
-- If the entity is present, the node appears in an instance, -- If the entity is present, the node appears in an instance, and
-- and denotes a predefined concatenation operation. The resulting -- denotes a predefined concatenation operation. The resulting type is
-- type is obtained from the arguments when possible. If the arguments -- obtained from the arguments when possible. If the arguments are
-- are aggregates, the array type and the concatenation type must be -- aggregates, the array type and the concatenation type must be
-- visible. -- visible.
if Present (Op_Id) then if Present (Op_Id) then
......
...@@ -53,7 +53,7 @@ package Sem_Type is ...@@ -53,7 +53,7 @@ package Sem_Type is
-- Both these structures are initialized at the beginning of every complete -- Both these structures are initialized at the beginning of every complete
-- context. -- context.
-- Corresponding to the set of interpretation for a given overloadable -- Corresponding to the set of interpretations for a given overloadable
-- identifier, there is a set of possible types corresponding to the types -- identifier, there is a set of possible types corresponding to the types
-- that the overloaded call may return. We keep a 1-to-1 correspondence -- that the overloaded call may return. We keep a 1-to-1 correspondence
-- between interpretations and types: for user-defined subprograms the -- between interpretations and types: for user-defined subprograms the
......
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