paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-12 01:59:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

fixed setting memstream capacity to 0

Browse Source 
git-svn-id: trunk@590 -
This commit is contained in:
Vincent Snijders 2005-07-05 21:54:32 +00:00
parent f6ca017761
commit a879211175
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/classes/streams.inc
View File

@ -600,7 +600,7 @@ begin
else else
begin begin
Result:=Reallocmem(FMemory,Newcapacity); Result:=Reallocmem(FMemory,Newcapacity);
If Result=Nil then If (Result=Nil) and (Newcapacity>0) then
Raise EStreamError.Create(SMemoryStreamError); Raise EStreamError.Create(SMemoryStreamError);
end; end;
end; end;