+2009-04-07 Robert Dewar <dewar@adacore.com>
+
+ * gnat_ugn.texi: Document -gnatDnn/-gnatGnn
+
+ * opt.ads (Sprint_Line_Limit): New parameter
+
+ * sprint.adb: Usa Sprint_Line_Limit instead of Line_Limit throughout
+
+ * switch-c.adb: Recognize -gnatDnnn and -gnatGnnn switches
+
+ * usage.adb: Output information for -gnatGnn -gnatDnn
+
+2009-04-07 Robert Dewar <dewar@adacore.com>
+
+ * make.adb: Minor reformatting
+
+2009-04-07 Robert Dewar <dewar@adacore.com>
+
+ * mlib-tgt-specific-vms-alpha.adb: Minor reformatting
+
+2009-04-07 Robert Dewar <dewar@adacore.com>
+
+ * mlib-tgt-specific-vms-ia64.adb: Minor reformatting
+
2009-04-07 Robert Dewar <dewar@adacore.com>
* checks.adb:
users guide.
@item -gnatD
-@cindex @option{-gnatD} (@command{gcc})
+@cindex @option{-gnatD[nn]} (@command{gcc})
Create expanded source files for source level debugging. This switch
also suppress generation of cross-reference information
(see @option{-gnatx}).
so that all standard warnings and all standard style options are turned on.
All warnings and style error messages are treated as errors.
-@item -gnatG
-@cindex @option{-gnatG} (@command{gcc})
+@item -gnatGnn
+@cindex @option{-gnatG[nn]} (@command{gcc})
List generated expanded code in source form.
@item ^-gnath^/HELP^
file @file{debug.adb}.
@end ifclear
-@item -gnatG
+@item -gnatG[nn]
@cindex @option{-gnatG} (@command{gcc})
This switch causes the compiler to generate auxiliary output containing
a pseudo-source listing of the generated expanded code. Like most Ada
these cases, and consider whether it may be desirable to modify the coding
approach to improve efficiency.
+The optional parameter @code{nn} if present after -gnatG specifies an
+alternative maximum line length that overrides the normal default of 72.
+This value is in the range 40-999999, values less than 40 being silently
+reset to 40.
+
The format of the output is very similar to standard Ada source, and is
easily understood by an Ada programmer. The following special syntactic
additions correspond to low level features used in the generated code that
evaluation of the expression 1.0/27.0).
@end table
-@item -gnatD
+@item -gnatD[nn]
@cindex @option{-gnatD} (@command{gcc})
When used in conjunction with @option{-gnatG}, this switch causes
the expanded source, as described above for
@option{-gnatDG}, then the original source lines are interspersed
in the expanded source (as comment lines with the original line number).
+The optional parameter @code{nn} if present after -gnatD specifies an
+alternative maximum line length that overrides the normal default of 72.
+This value is in the range 40-999999, values less than 40 being silently
+reset to 40.
+
@item -gnatr
@cindex @option{-gnatr} (@command{gcc})
@cindex pragma Restrictions
return;
end if;
- -- Do the same check for each of the withed units.
+ -- Do the same check for each of the withed units
W_Check :
for W in Units.Table (U).First_With
package body MLib.Tgt.Specific is
- -- Non default subprogram. See comment in mlib-tgt.ads.
+ -- Non default subprogram. See comment in mlib-tgt.ads
procedure Build_Dynamic_Library
(Ofiles : Argument_List;
package body MLib.Tgt.Specific is
- -- Non default subprogram. See comment in mlib-tgt.ads.
+ -- Non default subprogram, see comment in mlib-tgt.ads
procedure Build_Dynamic_Library
(Ofiles : Argument_List;
-- option for GNATBIND and to False when using the -static option. The
-- value of this flag is set by Gnatbind.Scan_Bind_Arg.
+ Sprint_Line_Limit : Nat := 72;
+ -- Limit values for chopping long lines in Sprint output, can be reset
+ -- by use of NNN parameter with -gnatG or -gnatD switches.
+
Stack_Checking_Enabled : Boolean;
-- GNAT
-- Set to indicate if -fstack-check switch is set for the compilation. True
-- This keeps track of the physical line number of the last source line
-- that has been output. The value is only valid in Dump_Source_Text mode.
- Line_Limit : constant := 72;
- -- Limit value for chopping long lines
-
-------------------------------
-- Operator Precedence Table --
-------------------------------
procedure Col_Check (N : Nat) is
begin
- if N + Column > Line_Limit then
+ if N + Column > Sprint_Line_Limit then
Write_Indent_Str (" ");
end if;
end Col_Check;
Sprint_Indented_List (Statements (Node));
when N_Character_Literal =>
- if Column > 70 then
+ if Column > Sprint_Line_Limit - 2 then
Write_Indent_Str (" ");
end if;
Write_Char (')');
when N_String_Literal =>
- if String_Length (Strval (Node)) + Column > 75 then
+ if String_Length (Strval (Node)) + Column > Sprint_Line_Limit then
Write_Indent_Str (" ");
end if;
procedure Write_Str_With_Col_Check (S : String) is
begin
- if Int (S'Last) + Column > Line_Limit then
+ if Int (S'Last) + Column > Sprint_Line_Limit then
Write_Indent_Str (" ");
if S (S'First) = ' ' then
procedure Write_Str_With_Col_Check_Sloc (S : String) is
begin
- if Int (S'Last) + Column > Line_Limit then
+ if Int (S'Last) + Column > Sprint_Line_Limit then
Write_Indent_Str (" ");
if S (S'First) = ' ' then
when 'D' =>
Ptr := Ptr + 1;
+ -- Scan option integer line limit value
+
+ if Ptr <= Max and then Switch_Chars (Ptr) in '0' .. '9' then
+ Scan_Nat (Switch_Chars, Max, Ptr, Sprint_Line_Limit, 'D');
+ Sprint_Line_Limit := Nat'Max (Sprint_Line_Limit, 40);
+ end if;
+
-- Note: -gnatD also sets -gnatx (to turn off cross-reference
-- generation in the ali file) since otherwise this generation
-- gets confused by the "wrong" Sloc values put in the tree.
Ptr := Ptr + 1;
Print_Generated_Code := True;
+ -- Scan option integer line limit value
+
+ if Ptr <= Max and then Switch_Chars (Ptr) in '0' .. '9' then
+ Scan_Nat (Switch_Chars, Max, Ptr, Sprint_Line_Limit, 'G');
+ Sprint_Line_Limit := Nat'Max (Sprint_Line_Limit, 40);
+ end if;
+
-- Processing for h switch
when 'h' =>
-- Line for -gnatD switch
Write_Switch_Char ("D");
- Write_Line ("Debug expanded generated code rather than source code");
+ Write_Line ("Debug expanded generated code (max line length = 72)");
+ Write_Switch_Char ("Dnn");
+ Write_Line ("Debug expanded generated code (max line length = nnn)");
-- Line for -gnatec switch
Write_Switch_Char ("g");
Write_Line ("GNAT implementation mode (used for compiling GNAT units)");
- -- Line for -gnatG switch
+ -- Lines for -gnatG switch
Write_Switch_Char ("G");
- Write_Line ("Output generated expanded code in source form");
+ Write_Line ("Output generated expanded code (max line length = 72)");
+ Write_Switch_Char ("Gnn");
+ Write_Line ("Output generated expanded code (max line length = nn)");
-- Line for -gnath switch
projects / thirdparty / gcc.git / commitdiff
