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

* skip align directives after unconditional jumps

Browse Source 
git-svn-id: trunk@40160 -
This commit is contained in:
florian 2018-11-01 20:49:18 +00:00
parent a092da723a
commit 2a016889de
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/aoptobj.pas
View File

@ -1551,7 +1551,7 @@ Unit AoptObj;
and (hp1.typ <> ait_jcatch)
{$endif}
do
if not(hp1.typ in ([ait_label,ait_align]+skipinstr)) then
if not(hp1.typ in ([ait_label]+skipinstr)) then
begin
if (hp1.typ = ait_instruction) and
taicpu(hp1).is_jmp and
@ -1560,7 +1560,7 @@ Unit AoptObj;
TAsmLabel(JumpTargetOp(taicpu(hp1))^.ref^.symbol).decrefs;
{ don't kill start/end of assembler block,
no-line-info-start/end etc }
if hp1.typ<>ait_marker then
if not(hp1.typ in [ait_align,ait_marker]) then
begin
{$ifdef cpudelayslot}
if (hp1.typ=ait_instruction) and (taicpu(hp1).is_jmp) then

4
compiler/i386/aoptcpu.pas
View File

@ -531,11 +531,11 @@ begin
hp2:=p;
while GetNextInstruction(hp2, hp1) and
(hp1.typ <> ait_label) do
if not(hp1.typ in ([ait_label,ait_align]+skipinstr)) then
if not(hp1.typ in ([ait_label]+skipinstr)) then
begin
{ don't kill start/end of assembler block,
no-line-info-start/end etc }
if hp1.typ<>ait_marker then
if not(hp1.typ in [ait_align,ait_marker]) then
begin
asml.remove(hp1);
hp1.free;