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

* patch by J. Gareth Moreton to unify the x86 assembler optimizer method headers, resolves #33908

Browse Source 
git-svn-id: trunk@39305 -
This commit is contained in:
florian 2018-06-25 20:13:34 +00:00
parent 5228cada27
commit 1472a81768
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/x86/aoptx86.pas
View File

@ -60,12 +60,12 @@ unit aoptx86;
function OptPass1AND(var p : tai) : boolean; function OptPass1AND(var p : tai) : boolean;
function OptPass1VMOVAP(var p : tai) : boolean; function OptPass1VMOVAP(var p : tai) : boolean;
function OptPass1VOP(const p : tai) : boolean; function OptPass1VOP(var p : tai) : boolean;
function OptPass1MOV(var p : tai) : boolean; function OptPass1MOV(var p : tai) : boolean;
function OptPass1Movx(var p : tai) : boolean; function OptPass1Movx(var p : tai) : boolean;
function OptPass1MOVAP(var p : tai) : boolean; function OptPass1MOVAP(var p : tai) : boolean;
function OptPass1MOVXX(var p : tai) : boolean; function OptPass1MOVXX(var p : tai) : boolean;
function OptPass1OP(const p : tai) : boolean; function OptPass1OP(var p : tai) : boolean;
function OptPass1LEA(var p : tai) : boolean; function OptPass1LEA(var p : tai) : boolean;
function OptPass1Sub(var p : tai) : boolean; function OptPass1Sub(var p : tai) : boolean;
function OptPass1SHLSAL(var p : tai) : boolean; function OptPass1SHLSAL(var p : tai) : boolean;
@ -75,15 +75,15 @@ unit aoptx86;
function OptPass2Jmp(var p : tai) : boolean; function OptPass2Jmp(var p : tai) : boolean;
function OptPass2Jcc(var p : tai) : boolean; function OptPass2Jcc(var p : tai) : boolean;
function PostPeepholeOptMov(const p : tai) : Boolean; function PostPeepholeOptMov(var p : tai) : Boolean;
{$ifdef x86_64} { These post-peephole optimisations only affect 64-bit registers. [Kit] } {$ifdef x86_64} { These post-peephole optimisations only affect 64-bit registers. [Kit] }
function PostPeepholeOptMovzx(const p : tai) : Boolean; function PostPeepholeOptMovzx(var p : tai) : Boolean;
function PostPeepholeOptXor(var p : tai) : Boolean; function PostPeepholeOptXor(var p : tai) : Boolean;
{$endif} {$endif}
function PostPeepholeOptCmp(var p : tai) : Boolean; function PostPeepholeOptCmp(var p : tai) : Boolean;
function PostPeepholeOptTestOr(var p : tai) : Boolean; function PostPeepholeOptTestOr(var p : tai) : Boolean;
function PostPeepholeOptCall(var p : tai) : Boolean; function PostPeepholeOptCall(var p : tai) : Boolean;
function PostPeepholeOptLea(const p : tai) : Boolean; function PostPeepholeOptLea(var p : tai) : Boolean;
procedure OptReferences; procedure OptReferences;
end; end;
@ -1077,7 +1077,7 @@ unit aoptx86;
end; end;
function TX86AsmOptimizer.OptPass1VOP(const p : tai) : boolean; function TX86AsmOptimizer.OptPass1VOP(var p : tai) : boolean;
var var
TmpUsedRegs : TAllUsedRegs; TmpUsedRegs : TAllUsedRegs;
hp1 : tai; hp1 : tai;
@ -1874,7 +1874,7 @@ unit aoptx86;
end; end;
function TX86AsmOptimizer.OptPass1OP(const p : tai) : boolean; function TX86AsmOptimizer.OptPass1OP(var p : tai) : boolean;
var var
TmpUsedRegs : TAllUsedRegs; TmpUsedRegs : TAllUsedRegs;
hp1 : tai; hp1 : tai;
@ -3176,7 +3176,7 @@ unit aoptx86;
end; end;
function TX86AsmOptimizer.PostPeepholeOptLea(const p : tai) : Boolean; function TX86AsmOptimizer.PostPeepholeOptLea(var p : tai) : Boolean;
begin begin
Result:=false; Result:=false;
if not (RegInUsedRegs(NR_DEFAULTFLAGS,UsedRegs)) and if not (RegInUsedRegs(NR_DEFAULTFLAGS,UsedRegs)) and
@ -3203,7 +3203,7 @@ unit aoptx86;
end; end;
function TX86AsmOptimizer.PostPeepholeOptMov(const p : tai) : Boolean; function TX86AsmOptimizer.PostPeepholeOptMov(var p : tai) : Boolean;
var var
Value, RegName: string; Value, RegName: string;
begin begin
@ -3405,7 +3405,7 @@ unit aoptx86;
{$ifdef x86_64} {$ifdef x86_64}
function TX86AsmOptimizer.PostPeepholeOptMovzx(const p : tai) : Boolean; function TX86AsmOptimizer.PostPeepholeOptMovzx(var p : tai) : Boolean;
var var
PreMessage: string; PreMessage: string;
begin begin