From 710109bc28710ff1a823bbc8bfe4734361bf1a93 Mon Sep 17 00:00:00 2001
From: hyung-hwan <hyunghwan.chung@gmail.com>
Date: Thu, 19 Jun 2014 14:15:01 +0000
Subject: [PATCH] removed unneeded procedures

---
 lib/h2-io-file.adb | 8 --------
 1 file changed, 8 deletions(-)

diff --git a/lib/h2-io-file.adb b/lib/h2-io-file.adb
index 940749c..6689081 100644
--- a/lib/h2-io-file.adb
+++ b/lib/h2-io-file.adb
@@ -18,14 +18,6 @@ package body File is
 		File.EOF := (Length <= 0);
 	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
 		A, B, L: System_Length;
 	begin