diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-20 14:17:42 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-20 14:17:42 +0200 |
| commit | 8737a29a325411b422a550958bd4a01613c5a48f (patch) | |
| tree | 4bebcf3a2e3f9d1be7744405c508ced9f3c8cbad /gcc/ada/output.adb | |
| parent | 85087bcb0d17eeb4d3621f7b4baa954fb17e96d1 (diff) | |
| download | gcc-8737a29a325411b422a550958bd4a01613c5a48f.zip gcc-8737a29a325411b422a550958bd4a01613c5a48f.tar.gz gcc-8737a29a325411b422a550958bd4a01613c5a48f.tar.bz2 | |
[multiple changes]
2009-04-20 Robert Dewar <dewar@adacore.com>
* sinfo.ads: Minor comment fixes
* exp_disp.adb: Minor reformatting
* gnat1drv.adb: Minor reformatting
* output.adb: Minor reformatting
* s-vxwext-kernel.ads: Minor reformatting
* sem.ads: Minor reformatting
* sem.adb: Minor reformatting
* sem_elim.adb: Minor reformatting
* uname.ads: Minor reformatting
2009-04-20 Eric Botcazou <ebotcazou@adacore.com>
* init.c (__gnat_adjust_context_for_raise): On x86{-64}/Linux, add
a small dope of 4 words to the adjustment to the stack pointer.
2009-04-20 Thomas Quinot <quinot@adacore.com>
* xoscons.adb: generate C header s-oscons.h in
addition to s-oscons.ads.
* socket.c: On VMS, use s-oscons.h.
* sem_ch3.adb: Minor reformatting
* exp_ch9.adb: Minor reformatting
From-SVN: r146401
Diffstat (limited to 'gcc/ada/output.adb')
| -rw-r--r-- | gcc/ada/output.adb | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/gcc/ada/output.adb b/gcc/ada/output.adb index 851f118..745d47f 100644 --- a/gcc/ada/output.adb +++ b/gcc/ada/output.adb @@ -162,9 +162,11 @@ package body Output is procedure Indent is begin + -- The "mod" in the following assignment is to cause a wrap around in + -- the case where there is too much indentation. + Cur_Indentation := (Cur_Indentation + Indentation_Amount) mod Indentation_Limit; - -- The "mod" is to wrap around in case there's too much indentation end Indent; ------------- @@ -173,6 +175,8 @@ package body Output is procedure Outdent is begin + -- The "mod" here undoes the wrap around from Indent above + Cur_Indentation := (Cur_Indentation - Indentation_Amount) mod Indentation_Limit; end Outdent; |