paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 23:21:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

* compilation fixed

Browse Source 
git-svn-id: trunk@38280 -
This commit is contained in:
florian 2018-02-18 09:29:36 +00:00
parent 2eff55436d
commit e92422383a
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/x86/aoptx86.pas
View File

@ -3080,6 +3080,7 @@ unit aoptx86;
function TX86AsmOptimizer.PostPeepholeOptCall(var p : tai) : Boolean;
var
hp1 : tai;
hp2 : taicpu;
begin
Result:=false;
{$ifndef x86_64}
@ -3090,7 +3091,7 @@ unit aoptx86;
GetNextInstruction(p, hp1) and
MatchInstruction(hp1,A_JMP,[S_NO]) and
MatchOpType(taicpu(hp1),top_ref) and
(taicpu(hp1).oper[0]^.ref^.refaddr=addr_full)) then
(taicpu(hp1).oper[0]^.ref^.refaddr=addr_full) then
begin
hp2 := taicpu.Op_sym(A_PUSH,S_L,taicpu(hp1).oper[0]^.ref^.symbol);
InsertLLItem(p.previous, p, hp2);