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

+ added x86 helper functions is_x86_string_instruction_op,

Browse Source 
is_x86_parameterless_string_instruction_op and
  is_x86_parameterized_string_instruction_op

git-svn-id: trunk@37447 -
This commit is contained in:
nickysn 2017-10-12 13:18:38 +00:00
parent 0fb79946a5
commit 98c4986b6d
1 changed files with 69 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

69
compiler/x86/cpubase.pas
View File

@ -315,6 +315,15 @@ uses
{ checks whether two segment registers are normally equal in the current memory model } { checks whether two segment registers are normally equal in the current memory model }
function segment_regs_equal(r1,r2:tregister):boolean; function segment_regs_equal(r1,r2:tregister):boolean;
{ checks whether the specified op is an x86 string instruction (e.g. cmpsb, movsd, scasw, etc.) }
function is_x86_string_instruction_op(op: TAsmOp): boolean;
{ checks whether the specified op is an x86 parameterless string instruction
(e.g. returns true for movsb, cmpsw, etc, but returns false for movs, cmps, etc.) }
function is_x86_parameterless_string_instruction_op(op: TAsmOp): boolean;
{ checks whether the specified op is an x86 parameterized string instruction
(e.g. returns true for movs, cmps, etc, but returns false for movsb, cmpsb, etc.) }
function is_x86_parameterized_string_instruction_op(op: TAsmOp): boolean;
{$ifdef i8086} {$ifdef i8086}
{ return whether we need to add an extra FWAIT instruction before the given { return whether we need to add an extra FWAIT instruction before the given
instruction, when we're targeting the i8087. This includes almost all x87 instruction, when we're targeting the i8087. This includes almost all x87
@ -639,6 +648,66 @@ implementation
end; end;
function is_x86_string_instruction_op(op: TAsmOp): boolean;
begin
case op of
{$ifdef x86_64}
A_MOVSQ,
A_CMPSQ,
A_SCASQ,
A_LODSQ,
A_STOSQ,
{$endif x86_64}
A_MOVSB,A_MOVSW,A_MOVSD,
A_CMPSB,A_CMPSW,A_CMPSD,
A_SCASB,A_SCASW,A_SCASD,
A_LODSB,A_LODSW,A_LODSD,
A_STOSB,A_STOSW,A_STOSD,
A_INSB, A_INSW, A_INSD,
A_OUTSB,A_OUTSW,A_OUTSD,
A_MOVS,A_CMPS,A_SCAS,A_LODS,A_STOS,A_INS,A_OUTS:
result:=true;
else
result:=false;
end;
end;
function is_x86_parameterless_string_instruction_op(op: TAsmOp): boolean;
begin
case op of
{$ifdef x86_64}
A_MOVSQ,
A_CMPSQ,
A_SCASQ,
A_LODSQ,
A_STOSQ,
{$endif x86_64}
A_MOVSB,A_MOVSW,A_MOVSD,
A_CMPSB,A_CMPSW,A_CMPSD,
A_SCASB,A_SCASW,A_SCASD,
A_LODSB,A_LODSW,A_LODSD,
A_STOSB,A_STOSW,A_STOSD,
A_INSB, A_INSW, A_INSD,
A_OUTSB,A_OUTSW,A_OUTSD:
result:=true;
else
result:=false;
end;
end;
function is_x86_parameterized_string_instruction_op(op: TAsmOp): boolean;
begin
case op of
A_MOVS,A_CMPS,A_SCAS,A_LODS,A_STOS,A_INS,A_OUTS:
result:=true;
else
result:=false;
end;
end;
{$ifdef i8086} {$ifdef i8086}
function requires_fwait_on_8087(op: TAsmOp): boolean; function requires_fwait_on_8087(op: TAsmOp): boolean;
begin begin