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

* more clean variable initialization

Browse Source
This commit is contained in:
florian 2024-01-01 19:31:04 +01:00
parent f48282d7b3
commit 27be091c44
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/x86/aoptx86.pas
View File

@ -12377,12 +12377,12 @@ unit aoptx86;
c := 0;
{ Initialise RegWrites, ConstRegs, ConstVals, ConstSizes, ConstWriteSizes and ConstMovs }
FillChar(RegWrites[0], MAX_CMOV_INSTRUCTIONS * 2 * SizeOf(TRegister), 0);
FillChar(ConstRegs[0], MAX_CMOV_REGISTERS * SizeOf(TRegister), 0);
FillChar(ConstVals[0], MAX_CMOV_REGISTERS * SizeOf(TCGInt), 0);
FillChar(ConstSizes[0], MAX_CMOV_REGISTERS * SizeOf(TSubRegister), 0);
FillChar(ConstWriteSizes[0], first_int_imreg * SizeOf(TOpSize), 0);
FillChar(ConstMovs[0], MAX_CMOV_REGISTERS * SizeOf(taicpu), 0);
FillChar(RegWrites, SizeOf(RegWrites), 0);
FillChar(ConstRegs, SizeOf(ConstRegs), 0);
FillChar(ConstVals, SizeOf(ConstVals), 0);
FillChar(ConstSizes, SizeOf(ConstSizes), 0);
FillChar(ConstWriteSizes, SizeOf(ConstWriteSizes), 0);
FillChar(ConstMovs, SizeOf(ConstMovs), 0);
RefModified := False;
while assigned(hp1) and