paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-27 11:53:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use get_ref_address_size in the nasm writer, when handling the parameterized

Browse Source 
string instructions

git-svn-id: trunk@37471 -
This commit is contained in:
nickysn 2017-10-16 14:21:03 +00:00
parent 6f2e64ff90
commit 4cb1a96ec1
1 changed files with 4 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/x86/agx86nsm.pas
View File

@ -635,7 +635,6 @@ interface
prevfileinfo : tfileposinfo;
previnfile : tinputfile;
NewObject : boolean;
tmpreg: TRegister;
begin
if not assigned(p) then
exit;
@ -997,17 +996,12 @@ interface
for i:=0 to taicpu(hp).ops-1 do
if taicpu(hp).oper[i]^.typ=top_ref then
begin
tmpreg:=NR_NO;
if taicpu(hp).oper[i]^.ref^.base<>NR_NO then
tmpreg:=taicpu(hp).oper[i]^.ref^.base
else if taicpu(hp).oper[i]^.ref^.index<>NR_NO then
tmpreg:=taicpu(hp).oper[i]^.ref^.index;
case reg2opsize(tmpreg) of
S_W:
case get_ref_address_size(taicpu(hp).oper[i]^.ref^) of
16:
writer.AsmWrite('a16 ');
S_L:
32:
writer.AsmWrite('a32 ');
S_Q:
64:
writer.AsmWrite('a64 ');
end;
break;