diff options
| author | Pascal Obry <obry@adacore.com> | 2008-08-04 11:05:29 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-04 11:05:29 +0200 |
| commit | ba622ca2e157b81d29f21969bd0bea8bd3781189 (patch) | |
| tree | 27d54e7db44b46bee3572159fef973f46d2c7180 /gcc | |
| parent | fbe0e1ad3ff312ef5284f3a3c8a659dd84b7d177 (diff) | |
| download | gcc-ba622ca2e157b81d29f21969bd0bea8bd3781189.zip gcc-ba622ca2e157b81d29f21969bd0bea8bd3781189.tar.gz gcc-ba622ca2e157b81d29f21969bd0bea8bd3781189.tar.bz2 | |
i-cobol.adb: Minor reformatting.
2008-08-04 Pascal Obry <obry@adacore.com>
* i-cobol.adb: Minor reformatting.
From-SVN: r138582
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/i-cobol.adb | 19 |
1 files changed, 16 insertions, 3 deletions
diff --git a/gcc/ada/i-cobol.adb b/gcc/ada/i-cobol.adb index f9f696b..3b46385 100644 --- a/gcc/ada/i-cobol.adb +++ b/gcc/ada/i-cobol.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2008, Free Software Foundation, Inc. -- -- -- -- 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- -- @@ -337,7 +337,7 @@ package body Interfaces.COBOL is -- Here a swap is needed declare - Len : constant Natural := B'Length; + Len : constant Natural := B'Length; begin for J in 1 .. Len / 2 loop @@ -452,10 +452,15 @@ package body Interfaces.COBOL is -- Used for the nonseparate formats to embed the appropriate sign -- at the specified location (i.e. at Result (Loc)) + ------------- + -- Convert -- + ------------- + procedure Convert (First, Last : Natural) is - J : Natural := Last; + J : Natural; begin + J := Last; while J >= First loop Result (J) := COBOL_Character'Val @@ -478,6 +483,10 @@ package body Interfaces.COBOL is raise Conversion_Error; end Convert; + ---------------- + -- Embed_Sign -- + ---------------- + procedure Embed_Sign (Loc : Natural) is Digit : Natural range 0 .. 9; @@ -559,6 +568,10 @@ package body Interfaces.COBOL is -- storing the result in Result (First .. Last). Raise Conversion_Error -- if the value is too large to fit. + ------------- + -- Convert -- + ------------- + procedure Convert (First, Last : Natural) is J : Natural := Last; |