From: Pascal Obry <obry@adacore.com>
Date: Mon, 4 Aug 2008 09:05:29 +0000 (+0200)
Subject: i-cobol.adb: Minor reformatting.
X-Git-Tag: releases/gcc-4.4.0~3443
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ba622ca2e157b81d29f21969bd0bea8bd3781189;p=thirdparty%2Fgcc.git

i-cobol.adb: Minor reformatting.

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

	* i-cobol.adb: Minor reformatting.

From-SVN: r138582
---

diff --git a/gcc/ada/i-cobol.adb b/gcc/ada/i-cobol.adb
index f9f696b9eeea..3b46385ada23 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;