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

+ additional debug message

Browse Source 
git-svn-id: trunk@34722 -
This commit is contained in:
florian 2016-10-15 17:51:09 +00:00
parent 76961dbc70
commit 239c6639d7
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/x86/aoptx86.pas
View File

@ -834,6 +834,7 @@ unit aoptx86;
mov reg2, mem2} mov reg2, mem2}
begin begin
AllocRegBetween(taicpu(hp2).oper[1]^.reg,p,hp2,usedregs); AllocRegBetween(taicpu(hp2).oper[1]^.reg,p,hp2,usedregs);
DebugMsg('PeepHole Optimization,MovMovMov2MovMov 1',p);
taicpu(p).loadoper(1,taicpu(hp2).oper[1]^); taicpu(p).loadoper(1,taicpu(hp2).oper[1]^);
taicpu(hp1).loadoper(0,taicpu(hp2).oper[1]^); taicpu(hp1).loadoper(0,taicpu(hp2).oper[1]^);
asml.remove(hp2); asml.remove(hp2);