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

* sib is required for r12 based addressing too

Browse Source 
git-svn-id: trunk@3069 -
This commit is contained in:
florian 2006-03-28 21:15:00 +00:00
parent a3e0315a72
commit 2cfd698273
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/x86/aasmcpu.pas
View File

@ -1569,7 +1569,7 @@ implementation
else else
output.bytes:=md; output.bytes:=md;
{ SIB needed ? } { SIB needed ? }
if (ir=NR_NO) and (br<>NR_RSP)then if (ir=NR_NO) and (br<>NR_RSP) and (br<>NR_R12) then
begin begin
output.sib_present:=false; output.sib_present:=false;
output.modrm:=(md shl 6) or (rfield shl 3) or base; output.modrm:=(md shl 6) or (rfield shl 3) or base;