From 6e00bdf39bb13e7d38db3d45905607acfb6dfb55 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sun, 13 Aug 2000 08:59:37 +0000
Subject: [PATCH]   * fixed fileseek() typo (merged)

---
 compiler/files.pas | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/compiler/files.pas b/compiler/files.pas
index 3cad2ca8cb..7dfe44a3a9 100644
--- a/compiler/files.pas
+++ b/compiler/files.pas
@@ -627,7 +627,7 @@ uses
     function tdosinputfile.fileseek(pos: longint): boolean;
       begin
         {$I-}
-         seek(f,BufStart);
+         seek(f,Pos);
         {$I+}
         fileseek:=(ioresult=0);
       end;
@@ -1477,7 +1477,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.3  2000-08-12 15:30:44  peter
+  Revision 1.4  2000-08-13 08:59:37  peter
+    * fixed fileseek() typo (merged)
+
+  Revision 1.3  2000/08/12 15:30:44  peter
     * IDE patch for stream reading (merged)
 
   Revision 1.2  2000/07/13 11:32:41  michael