Commit ba622ca2 by Pascal Obry Committed by Arnaud Charlet

i-cobol.adb: Minor reformatting.

2008-08-04  Pascal Obry  <obry@adacore.com>

	* i-cobol.adb: Minor reformatting.

From-SVN: r138582
parent fbe0e1ad
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -337,7 +337,7 @@ package body Interfaces.COBOL is ...@@ -337,7 +337,7 @@ package body Interfaces.COBOL is
-- Here a swap is needed -- Here a swap is needed
declare declare
Len : constant Natural := B'Length; Len : constant Natural := B'Length;
begin begin
for J in 1 .. Len / 2 loop for J in 1 .. Len / 2 loop
...@@ -452,10 +452,15 @@ package body Interfaces.COBOL is ...@@ -452,10 +452,15 @@ package body Interfaces.COBOL is
-- Used for the nonseparate formats to embed the appropriate sign -- Used for the nonseparate formats to embed the appropriate sign
-- at the specified location (i.e. at Result (Loc)) -- at the specified location (i.e. at Result (Loc))
-------------
-- Convert --
-------------
procedure Convert (First, Last : Natural) is procedure Convert (First, Last : Natural) is
J : Natural := Last; J : Natural;
begin begin
J := Last;
while J >= First loop while J >= First loop
Result (J) := Result (J) :=
COBOL_Character'Val COBOL_Character'Val
...@@ -478,6 +483,10 @@ package body Interfaces.COBOL is ...@@ -478,6 +483,10 @@ package body Interfaces.COBOL is
raise Conversion_Error; raise Conversion_Error;
end Convert; end Convert;
----------------
-- Embed_Sign --
----------------
procedure Embed_Sign (Loc : Natural) is procedure Embed_Sign (Loc : Natural) is
Digit : Natural range 0 .. 9; Digit : Natural range 0 .. 9;
...@@ -559,6 +568,10 @@ package body Interfaces.COBOL is ...@@ -559,6 +568,10 @@ package body Interfaces.COBOL is
-- storing the result in Result (First .. Last). Raise Conversion_Error -- storing the result in Result (First .. Last). Raise Conversion_Error
-- if the value is too large to fit. -- if the value is too large to fit.
-------------
-- Convert --
-------------
procedure Convert (First, Last : Natural) is procedure Convert (First, Last : Natural) is
J : Natural := Last; J : Natural := Last;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment