index 346ee9edaa9a81e6b086a74923351ea2365b6bdd..1668518eeab8b992b96800522f17b93ee977c34d 100644 (file)
--- a/src/shared/xstreams.pas
+++ b/src/shared/xstreams.pas
end;
// fixed memory chunk
- TSFSMemoryChunkStream = class(TCustomMemoryStream)
+ TSFSMemoryChunkStream = class(TStream)
private
fFreeMem: Boolean;
fMemBuf: PByte;
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;