From 21a5279d3880a501c8ae4e81a9b62b6e1005b0fa Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Fri, 17 Aug 2012 17:22:10 -0400
Subject: [PATCH] PurgeInput change

---
 mdl/m_io_base.pas | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/mdl/m_io_base.pas b/mdl/m_io_base.pas
index 9dcce65..aa304c7 100644
--- a/mdl/m_io_base.pas
+++ b/mdl/m_io_base.pas
@@ -57,14 +57,14 @@ Begin
 End;
 
 Procedure TIOBase.PurgeInputData;
-Var
-  Buf : Array[1..2048] of Char;
+//Var
+//  Buf : Array[1..2048] of Char;
 Begin
   FInBufPos := 0;
   FInBufEnd := 0;
 
-  While DataWaiting Do
-    ReadBuf(Buf, SizeOf(Buf));
+//  While DataWaiting Do
+//    ReadBuf(Buf, SizeOf(Buf));
 End;
 
 Function TIOBase.DataWaiting : Boolean;