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

* another mayewriterex added, fixes #7261

Browse Source 
git-svn-id: trunk@4511 -
This commit is contained in:
florian 2006-08-27 18:49:12 +00:00
parent c9c56996cc
commit 5118e35016
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/x86/aasmcpu.pas
View File

@ -1966,6 +1966,10 @@ implementation
* \327 - indicates that this instruction is only valid when the * \327 - indicates that this instruction is only valid when the
* operand size is the default (instruction to disassembler, * operand size is the default (instruction to disassembler,
* generates no code in the assembler) * generates no code in the assembler)
* \331 - instruction not valid with REP prefix. Hint for
* disassembler only; for SSE instructions.
* \332 - disassemble a rep (0xF3 byte) prefix as repe not rep.
* \333 - REP prefix (0xF3 byte); for SSE instructions. Not encoded
* \335 - removes rex size prefix, i.e. rex.w must be the last opcode * \335 - removes rex size prefix, i.e. rex.w must be the last opcode
} }
@ -2242,6 +2246,9 @@ implementation
end; end;
219 : 219 :
begin begin
{$ifdef x86_64}
maybewriterex;
{$endif x86_64}
bytes[0]:=$f3; bytes[0]:=$f3;
objdata.writebytes(bytes,1); objdata.writebytes(bytes,1);
end; end;
@ -2258,7 +2265,11 @@ implementation
217,218 : 217,218 :
begin begin
{ these are dissambler hints or 32 bit prefixes which { these are dissambler hints or 32 bit prefixes which
are not needed } are not needed
It's usefull to write rex :) (FK) }
{$ifdef x86_64}
maybewriterex;
{$endif x86_64}
end; end;
31, 31,
48,49,50 : 48,49,50 :