added Get_Line into h2-io-file

2014-06-17 15:23:35 +00:00
parent 1ac2a37358
commit b441709a02
15 changed files with 356 additions and 146 deletions
--- a/lib/posix/h2-os-file.adb
+++ b/lib/posix/h2-os-file.adb
@ -140,7 +140,7 @@ package body File is
 	end Close;

 	procedure Read (File:   in     File_Pointer; 
-	                Buffer: in out System_Byte_Array;
+	                Buffer: out    System_Byte_Array;
 	                Length: out    System_Length) is
 		pragma Assert (Buffer'Length > 0);
 		F: Posix_File_Pointer := Posix_File_Pointer(File);