From 6f23dbf6c60bd5d24b0da0f687a6024b2b715c63 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Thu, 22 Jun 2000 18:37:49 +0000
Subject: [PATCH]   * removed unused vars

---
 rtl/linux/crt.pp | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/rtl/linux/crt.pp b/rtl/linux/crt.pp
index bfcb652a68..f87d8f7f38 100644
--- a/rtl/linux/crt.pp
+++ b/rtl/linux/crt.pp
@@ -1342,8 +1342,8 @@ Function CrtRead(Var F: TextRec): Integer;
   Read from CRT associated file.
 }
 var
-  c: char;
-  i, CurX, CurY : longint;
+  c : char;
+  i : longint;
 Begin
   if isATTY(F.Handle) then
     begin
@@ -1472,7 +1472,7 @@ End;
 
 
 const
-  KIOCSOUND = $4B2F;	// start sound generation (0 for off)
+  KIOCSOUND = $4B2F;    // start sound generation (0 for off)
 
 Procedure Sound(Hz: Word);
 begin
@@ -1663,7 +1663,10 @@ Begin
 End.
 {
   $Log$
-  Revision 1.30  2000-06-20 08:52:16  jonas
+  Revision 1.31  2000-06-22 18:37:49  peter
+    * removed unused vars
+
+  Revision 1.30  2000/06/20 08:52:16  jonas
     * crtread didn't set f.bufpos back to 0, so it failed if that wasn't
       already the case on entry
     * crtread now makes sure it doesn't try to read mode characters than