[JVCL-Checkins] CVS: jvcl/source JvSysComp.pas,1.5,1.6

[Remko B. <rem...@us...>]

Update of /cvsroot/jvcl/jvcl/source
In directory usw-pr-cvs1:/tmp/cvs-serv22701

Modified Files:
	JvSysComp.pas 
Log Message:
See Mantis #247

Index: JvSysComp.pas
===================================================================
RCS file: /cvsroot/jvcl/jvcl/source/JvSysComp.pas,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** JvSysComp.pas	10 Aug 2002 11:47:20 -0000	1.5
--- JvSysComp.pas	4 Oct 2002 20:41:41 -0000	1.6
***************
*** 26,29 ****
--- 26,31 ----
  Known Issues:
  -----------------------------------------------------------------------------}
+ 
+ unit JvSysComp;
  {$I JVCL.INC}
  {$IFDEF COMPILER6_UP}
***************
*** 35,40 ****
  {$ENDIF}
[...1250 lines suppressed...]
+     // If not all data in FInputBuffer is copied to ABuffer, then place
+     // the data not copied at the begin of FInputBuffer.
+     if FInputBufferEnd > ABufferSize then
+       Move(FInputBuffer[ABufferSize], FInputBuffer[0],
+         FInputBufferEnd - ABufferSize);
+ 
+     Dec(FInputBufferEnd, ABufferSize);
+   finally
+     FReadLock.Release;
+   end;
+ end;
+ 
+ procedure TJvReadThread.TerminateThread;
+ begin
+   Terminate;
+   CloseRead;
+ end;
+ 
  end.
+