hyung-hwan/hcl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

removed unneeded procedures

Browse Source
This commit is contained in:
hyung-hwan 2014-06-19 14:15:01 +00:00
parent 0286526bf1
commit 710109bc28
1 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/h2-io-file.adb
View File

@ -18,14 +18,6 @@ package body File is
File.EOF := (Length <= 0); File.EOF := (Length <= 0);
end OS_Read_File; end OS_Read_File;
--procedure Shift_Buffer (Buffer: in out File_Buffer;
-- Length: in System_Length) is
-- pragma Inline (Shift_Buffer);
--begin
-- Buffer.Length := Buffer.Length - Length;
-- Buffer.Data(Buffer.Data'First .. Buffer.Data'First + Buffer.Length - 1) := Buffer.Data(Buffer.Data'First + Length .. Buffer.Data'First + Length + Buffer.Length - 1);
--end Shift_Buffer;
procedure Compact_Buffer (Buffer: in out File_Buffer) is procedure Compact_Buffer (Buffer: in out File_Buffer) is
A, B, L: System_Length; A, B, L: System_Length;
begin begin