diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-04 09:05:29 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-04 09:05:29 +0000 |
| commit | 88bb9aa0691afa5845ae5a3d55ff9c28bfc8b4dd (patch) | |
| tree | 27d54e7db44b46bee3572159fef973f46d2c7180 /gcc/ada/i-cobol.adb | |
| parent | 0a4140519d9e1aa827f9105fa85d47942aa6ea5f (diff) | |
| download | gcc-88bb9aa0691afa5845ae5a3d55ff9c28bfc8b4dd.tar.gz | |
2008-08-04 Pascal Obry <obry@adacore.com>
* i-cobol.adb: Minor reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@138582 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/i-cobol.adb')
| -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 f9f696b9eee..3b46385ada2 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; |