From 66a6764d8a4b745da222237acb890f78bdfa43f8 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 24 Mar 2007 10:38:36 +0000
Subject: [PATCH] * TCFileStream.Seek should return the new position

git-svn-id: trunk@6969 -
---
 compiler/cstreams.pas | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/compiler/cstreams.pas b/compiler/cstreams.pas
index 38f79b6908..da1b74ecfc 100644
--- a/compiler/cstreams.pas
+++ b/compiler/cstreams.pas
@@ -417,7 +417,10 @@ begin
   {$I-}
    case Origin of
      soFromBeginning :
-       System.Seek(FHandle,Offset);
+       begin
+         System.Seek(FHandle,Offset);
+         l:=Offset;
+       end;
      soFromCurrent :
        begin
          l:=System.FilePos(FHandle);
@@ -435,7 +438,7 @@ begin
    end;
   {$I+}
   CStreamError:=IOResult;
-  Result:=CStreamError;
+  Result:=l;
 end;