OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

g-stheme.adb: Minor reformatting 

2008-08-20  Robert Dewar  <dewar@adacore.com>

	* g-stheme.adb: Minor reformatting

From-SVN: r139276
This commit is contained in:
Robert Dewar 2008-08-20 14:07:45 +02:00 committed by Arnaud Charlet
parent 8173c2769a
commit 8477055dcc
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/g-stheme.adb
View File

@ -51,7 +51,8 @@ package body Host_Error_Messages is
use Interfaces.C.Strings;
function TCP
(P : char_array_access; Nul_Check : Boolean := False) return chars_ptr
renames To_Chars_Ptr;
renames To_Chars_Ptr;
begin
case H_Errno is
when SOSC.HOST_NOT_FOUND =>
@ -66,7 +67,7 @@ package body Host_Error_Messages is
when SOSC.NO_DATA =>
return TCP (Messages.NO_DATA'Access);
when others =>
when others =>
return TCP (Messages.Unknown_Error'Access);
end case;