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

* i386 version of fix from r21113

Browse Source 
git-svn-id: trunk@21127 -
This commit is contained in:
Jonas Maebe 2012-04-29 22:27:00 +00:00
parent 8a7123eed8
commit dd03bc3e66
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/i386/popt386.pas
View File

@ -637,12 +637,20 @@ begin
because it can never be executed}
if (taicpu(p).opcode = A_JMP) then
begin
while GetNextInstruction(p, hp1) and
hp2:=p;
while GetNextInstruction(hp2, hp1) and
(hp1.typ <> ait_label) do
if not(hp1.typ in ([ait_label,ait_align]+skipinstr)) then
begin
asml.remove(hp1);
hp1.free;
{ don't kill start/end of assembler block,
no-line-info-start/end etc }
if hp1.typ<>ait_marker then
begin
asml.remove(hp1);
hp1.free;
end
else
hp2:=hp1;
end
else break;
end;