pascal `{}` comment support in parser

[d2df-sdl.git] / src / shared / xstreams.pas

diff --git a/src/shared/xstreams.pas b/src/shared/xstreams.pas
index 346ee9edaa9a81e6b086a74923351ea2365b6bdd..1668518eeab8b992b96800522f17b93ee977c34d 100644 (file)
--- a/src/shared/xstreams.pas
+++ b/src/shared/xstreams.pas
@@ -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;