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

* revert the parameter type change of the last commit, it was an overleft from a failed fix attempt

Browse Source 
git-svn-id: trunk@22116 -
This commit is contained in:
florian 2012-08-17 19:36:37 +00:00
parent ba6ba52e7f
commit 54e2b40ab4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/arm/aoptcpu.pas
View File

@ -40,7 +40,7 @@ Type
function PeepHoleOptPass1Cpu(var p: tai): boolean; override; function PeepHoleOptPass1Cpu(var p: tai): boolean; override;
procedure PeepHoleOptPass2;override; procedure PeepHoleOptPass2;override;
Function RegInInstruction(Reg: TRegister; p1: tai): Boolean;override; Function RegInInstruction(Reg: TRegister; p1: tai): Boolean;override;
procedure RemoveSuperfluousMove(var p: tai; movp: tai; const optimizer: string); procedure RemoveSuperfluousMove(const p: tai; movp: tai; const optimizer: string);
function RegUsedAfterInstruction(reg: Tregister; p: tai; function RegUsedAfterInstruction(reg: Tregister; p: tai;
var AllUsedRegs: TAllUsedRegs): Boolean; var AllUsedRegs: TAllUsedRegs): Boolean;
End; End;
@ -262,7 +262,7 @@ Implementation
); );
end; end;
procedure TCpuAsmOptimizer.RemoveSuperfluousMove(var p: tai; movp: tai; const optimizer: string); procedure TCpuAsmOptimizer.RemoveSuperfluousMove(const p: tai; movp: tai; const optimizer: string);
var var
TmpUsedRegs: TAllUsedRegs; TmpUsedRegs: TAllUsedRegs;
begin begin