paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 17:49:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ small speedup of memoryimage.setsize

Browse Source
This commit is contained in:
michael 2005-01-31 22:12:23 +00:00
parent 4f43c7e09f
commit 6b1e79316f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fcl/image/fpimage.inc
View File

@ -488,7 +488,7 @@ begin
else else
begin begin
GetMem (NewData, r); GetMem (NewData, r);
Fillchar (Newdata^[0], r, 0); FillWord (Newdata^[0], r div sizeof(word), 0);
end; end;
// MG: missing "and (NewData<>nil)" // MG: missing "and (NewData<>nil)"
if (old <> 0) and assigned(FData) and (NewData<>nil) then if (old <> 0) and assigned(FData) and (NewData<>nil) then