paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-07-21 22:56:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

* in the nasm writer, only output a segment prefix for the [si] operand, in

Browse Source 
case there's a segment operand, different that DS (the default source
  segment) for parameterized x86 string instructions

git-svn-id: trunk@37459 -
This commit is contained in:
nickysn 2017-10-14 16:58:15 +00:00
parent a8232ac477
commit acfa199b09
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/x86/agx86nsm.pas
View File

@ -991,7 +991,8 @@ interface
writer.AsmWrite(#9#9); writer.AsmWrite(#9#9);
i:=get_x86_string_op_si_param(fixed_opcode); i:=get_x86_string_op_si_param(fixed_opcode);
if (i<>-1) and (taicpu(hp).oper[i]^.typ=top_ref) and if (i<>-1) and (taicpu(hp).oper[i]^.typ=top_ref) and
(taicpu(hp).oper[i]^.ref^.segment<>NR_NO) then (taicpu(hp).oper[i]^.ref^.segment<>NR_NO) and
(taicpu(hp).oper[i]^.ref^.segment<>NR_DS) then
writer.AsmWrite(std_regname(taicpu(hp).oper[i]^.ref^.segment)+' '); writer.AsmWrite(std_regname(taicpu(hp).oper[i]^.ref^.segment)+' ');
for i:=0 to taicpu(hp).ops-1 do for i:=0 to taicpu(hp).ops-1 do
if taicpu(hp).oper[i]^.typ=top_ref then if taicpu(hp).oper[i]^.typ=top_ref then