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

bugfix disp8*N global variable

Browse Source 
git-svn-id: branches/tg74/avx512-0037785@47215 -
This commit is contained in:
tg74 2020-10-27 05:16:06 +00:00
parent ab22f9b3fb
commit 673a113c0f
1 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/x86/aasmcpu.pas
View File

@ -2185,6 +2185,13 @@ implementation
if tuplesize > 0 then if tuplesize > 0 then
begin begin
if aInput.typ = top_ref then if aInput.typ = top_ref then
begin
// TODO delete
Message1(asmr_w_segment_override_ignored_in_64bit_mode, ' "top_ref: " ' + generic_regname(aInput.ref^.base));
if aInput.ref^.base <> NR_NO then
begin begin
if (aInput.ref^.offset <> 0) and if (aInput.ref^.offset <> 0) and
((aInput.ref^.offset mod tuplesize) = 0) and ((aInput.ref^.offset mod tuplesize) = 0) and
@ -2198,6 +2205,7 @@ implementation
end; end;
end; end;
end; end;
end;