X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fshared%2Fxstreams.pas;h=e27f73ad0eb9c94c8f964649e0d969a22b0e78e6;hb=dfc542926a3a356709f099050b2d2d59cb101e9d;hp=346ee9edaa9a81e6b086a74923351ea2365b6bdd;hpb=3255b0825dd8a2db15ea04c21e34da5279cbaa5e;p=d2df-sdl.git

diff --git a/src/shared/xstreams.pas b/src/shared/xstreams.pas
index 346ee9e..e27f73a 100644
--- a/src/shared/xstreams.pas
+++ b/src/shared/xstreams.pas
@@ -1,4 +1,4 @@
-(* Copyright (C)  DooM 2D:Forever Developers
+(* Copyright (C)  Doom 2D: Forever Developers
  *
  * This program is free software: you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -127,7 +127,7 @@ type
   end;
 
   // fixed memory chunk
-  TSFSMemoryChunkStream = class(TCustomMemoryStream)
+  TSFSMemoryChunkStream = class(TStream)
   private
     fFreeMem: Boolean;
     fMemBuf: PByte;
@@ -558,7 +558,6 @@ begin
   left := fMemSize-fCurPos;
   if (left < 0) then raise XStreamError.Create('internal error in TSFSMemoryChunkStream (write)');
   if (count > left) then count := left;
-  //writeln('mcs: writing ', count, ' bytes at ofs ', fCurPos, ' (total size is ', fMemSize, ')');
   if (count > 0) then Move(buffer, (fMemBuf+fCurPos)^, count);
   Inc(fCurPos, count);
   result := count;