diff options
| author | Robert Dewar <dewar@adacore.com> | 2009-04-07 14:52:29 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-07 16:52:29 +0200 |
| commit | dcd8728b8e5ad2b9920f184e028850553b243ba4 (patch) | |
| tree | 9f06a3c5b8275f9577f39b3bdb7771fd3f574e8f /gcc/ada/switch-c.adb | |
| parent | 0609b35537e3c1c5677632064635e24bc257ee25 (diff) | |
| download | gcc-dcd8728b8e5ad2b9920f184e028850553b243ba4.zip gcc-dcd8728b8e5ad2b9920f184e028850553b243ba4.tar.gz gcc-dcd8728b8e5ad2b9920f184e028850553b243ba4.tar.bz2 | |
gnat_ugn.texi: Document -gnatDnn/-gnatGnn
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
* make.adb: Minor reformatting
* mlib-tgt-specific-vms-alpha.adb: Minor reformatting
* mlib-tgt-specific-vms-ia64.adb: Minor reformatting
From-SVN: r145677
Diffstat (limited to 'gcc/ada/switch-c.adb')
| -rw-r--r-- | gcc/ada/switch-c.adb | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/gcc/ada/switch-c.adb b/gcc/ada/switch-c.adb index 0da8f66..a7299ab 100644 --- a/gcc/ada/switch-c.adb +++ b/gcc/ada/switch-c.adb @@ -279,6 +279,13 @@ package body Switch.C is 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. @@ -522,6 +529,13 @@ package body Switch.C is 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' => |