paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 06:29:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix order of parameters of FillChar as suggested by Alexey Torgashin

Browse Source
This commit is contained in:
Pierre Muller 2023-07-25 09:09:05 +02:00
parent 0dcb555aca
commit fad52c62ed
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/hermes/src/hermes_converter.inc
View File

@ -45,8 +45,8 @@ begin
newinstance^.dither := nil;
newinstance^.ditherstretch := nil;
newinstance^.flags := flags;
FillChar(newinstance^.source, 0, SizeOf(THermesFormat));
FillChar(newinstance^.dest, 0, SizeOf(THermesFormat));
FillChar(newinstance^.source, SizeOf(THermesFormat), 0);
FillChar(newinstance^.dest, SizeOf(THermesFormat), 0);
Result := THermesConverterHandle(newinstance);
end;