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

* fixed fillchar parameters

Browse Source 
git-svn-id: trunk@1257 -
This commit is contained in:
florian 2005-10-02 17:06:06 +00:00
parent 79ea4bb52f
commit 1b6364ceba
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/inc/elfres32.inc
View File

@ -82,7 +82,7 @@ begin
begin
FPCRuntimeResourceInfoArray:=GetMem(SizeOf(TFPCRuntimeResourceInfo)*ResInfoCount);
{ we must zero out this because name is an ansistring }
fillchar(FPCRuntimeResourceInfoArray^,0,SizeOf(TFPCRuntimeResourceInfo)*ResInfoCount);
fillchar(FPCRuntimeResourceInfoArray^,SizeOf(TFPCRuntimeResourceInfo)*ResInfoCount,0);
for i:=0 to ResInfoCount-1 do
begin