summaryrefslogtreecommitdiff
path: root/gcc/ada/s-imgint.adb
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/s-imgint.adb')
-rw-r--r--gcc/ada/s-imgint.adb10
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/s-imgint.adb b/gcc/ada/s-imgint.adb
index 94fdb3ace47..1de3660b791 100644
--- a/gcc/ada/s-imgint.adb
+++ b/gcc/ada/s-imgint.adb
@@ -1,12 +1,12 @@
------------------------------------------------------------------------------
-- --
--- GNAT RUNTIME COMPONENTS --
+-- GNAT RUN-TIME COMPONENTS --
-- --
-- S Y S T E M . I M G _ I N T --
-- --
-- B o d y --
-- --
--- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005 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- --
@@ -58,9 +58,9 @@ package body System.Img_Int is
-----------------------
procedure Set_Image_Integer
- (V : Integer;
- S : out String;
- P : in out Natural)
+ (V : Integer;
+ S : out String;
+ P : in out Natural)
is
procedure Set_Digits (T : Integer);
-- Set digits of absolute value of T, which is zero or negative. We work