[Jcl-checkins-diff] SF.net SVN: jcl:[2641] trunk/jcl/source/common/JclStreams.pas

[<ou...@us...>]

Revision: 2641
          http://jcl.svn.sourceforge.net/jcl/?rev=2641&view=rev
Author:   outchy
Date:     2009-02-15 15:11:49 +0000 (Sun, 15 Feb 2009)

Log Message:
-----------
Fixed wrong arithmetic computations for the position while seeking to the end of a split stream.

Modified Paths:
--------------
    trunk/jcl/source/common/JclStreams.pas

Modified: trunk/jcl/source/common/JclStreams.pas
===================================================================
--- trunk/jcl/source/common/JclStreams.pas	2009-02-15 14:43:52 UTC (rev 2640)
+++ trunk/jcl/source/common/JclStreams.pas	2009-02-15 15:11:49 UTC (rev 2641)
@@ -2544,7 +2544,7 @@
     soCurrent:
       ExpectedPosition := FPosition + Offset;
     soEnd:
-      ExpectedPosition := Size - Offset;
+      ExpectedPosition := Size + Offset;
   else
     {$IFDEF CLR}
     raise EJclStreamError.Create(RsStreamsSeekError);


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.