index 346ee9edaa9a81e6b086a74923351ea2365b6bdd..36e73f96e45d24dd09afed6127c864b4a3a05b61 100644 (file)
--- a/src/shared/xstreams.pas
+++ b/src/shared/xstreams.pas
-(* 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
- * the Free Software Foundation, either version 3 of the License, or
- * (at your option) any later version.
+ * the Free Software Foundation, version 3 of the License ONLY.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
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;