mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-15 09:00:29 +08:00
Code Issues Packages Projects Releases Wiki Activity

lib-util.adb: Minor code reorganization.

Browse Source 
2010-06-14  Thomas Quinot  <quinot@adacore.com>

	* lib-util.adb: Minor code reorganization.

From-SVN: r160738
This commit is contained in:
Thomas Quinot 2010-06-14 13:09:06 +00:00 committed by Arnaud Charlet
parent 7eaa7cdf7d
commit b14bd03f5d
2 changed files with 25 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/ChangeLog
View File

@ -1,3 +1,7 @@
2010-06-14 Thomas Quinot <quinot@adacore.com>
* lib-util.adb: Minor code reorganization.
2010-06-14 Robert Dewar <dewar@adacore.com>
* ali.adb (Scan_ALI): Implement reading and storing of N lines

47
gcc/ada/lib-util.adb
View File

@ -40,8 +40,13 @@ package body Lib.Util is
Info_Buffer_Col : Natural := 1;
-- Column number of next character to be written.
-- Can be different from Info_Buffer_Len + 1.
-- because of tab characters written by Write_Info_Tab.
-- Can be different from Info_Buffer_Len + 1 because of tab characters
-- written by Write_Info_Tab.
procedure Write_Info_Hex_Byte (J : Natural);
-- Place two hex digits representing the value J (which is in the range
-- 0-255) in Info_Buffer, incrementing Info_Buffer_Len by 2. The digits
-- are output using lower case letters.
---------------------
-- Write_Info_Char --
@ -59,20 +64,6 @@ package body Lib.Util is
--------------------------
procedure Write_Info_Char_Code (Code : Char_Code) is
procedure Write_Info_Hex_Byte (J : Natural);
-- Write single hex digit
procedure Write_Info_Hex_Byte (J : Natural) is
Hexd : constant String := "0123456789abcdef";
begin
Write_Info_Char (Hexd (J / 16 + 1));
Write_Info_Char (Hexd (J mod 16 + 1));
end Write_Info_Hex_Byte;
-- Start of processing for Write_Info_Char_Code
begin
-- 00 .. 7F
@ -128,6 +119,17 @@ package body Lib.Util is
end if;
end Write_Info_EOL;
-------------------------
-- Write_Info_Hex_Byte --
-------------------------
procedure Write_Info_Hex_Byte (J : Natural) is
Hexd : constant array (0 .. 15) of Character := "0123456789abcdef";
begin
Write_Info_Char (Hexd (J / 16));
Write_Info_Char (Hexd (J mod 16));
end Write_Info_Hex_Byte;
-------------------------
-- Write_Info_Initiate --
-------------------------
@ -210,16 +212,9 @@ package body Lib.Util is
end if;
else
declare
Hex : constant array (0 .. 15) of Character :=
"0123456789ABCDEF";
begin
Write_Info_Char ('{');
Write_Info_Char (Hex (Character'Pos (C) / 16));
Write_Info_Char (Hex (Character'Pos (C) mod 16));
Write_Info_Char ('}');
end;
Write_Info_Char ('{');
Write_Info_Hex_Byte (Character'Pos (C));
Write_Info_Char ('}');
end if;
end loop;