paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 21:10:28 +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

20
compiler/x86/aasmcpu.pas
View File

@ -2186,12 +2186,20 @@ implementation
begin begin
if aInput.typ = top_ref then if aInput.typ = top_ref then
begin begin
if (aInput.ref^.offset <> 0) and
((aInput.ref^.offset mod tuplesize) = 0) and // TODO delete
(abs(aInput.ref^.offset) div tuplesize <= 127) then Message1(asmr_w_segment_override_ignored_in_64bit_mode, ' "top_ref: " ' + generic_regname(aInput.ref^.base));
begin
aInput.ref^.offset := aInput.ref^.offset div tuplesize;
EVEXTupleState := etsIsTuple; if aInput.ref^.base <> NR_NO then
begin
if (aInput.ref^.offset <> 0) and
((aInput.ref^.offset mod tuplesize) = 0) and
(abs(aInput.ref^.offset) div tuplesize <= 127) then
begin
aInput.ref^.offset := aInput.ref^.offset div tuplesize;
EVEXTupleState := etsIsTuple;
end;
end; end;
end; end;
end; end;