mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-14 13:29:14 +02:00
The scheduler pass of the ARM optimizer left markers in the instruction list, which could prevent further peephole optimizations
git-svn-id: trunk@24781 -
This commit is contained in:
parent
7edabc64e6
commit
2d823452b7
@ -122,6 +122,7 @@ interface
|
|||||||
type
|
type
|
||||||
TAsmList = class(tlinkedlist)
|
TAsmList = class(tlinkedlist)
|
||||||
constructor create;
|
constructor create;
|
||||||
|
constructor create_without_marker;
|
||||||
function empty : boolean;
|
function empty : boolean;
|
||||||
function getlasttaifilepos : pfileposinfo;
|
function getlasttaifilepos : pfileposinfo;
|
||||||
end;
|
end;
|
||||||
@ -288,6 +289,10 @@ implementation
|
|||||||
insert(tai_marker.create(mark_BlockStart));
|
insert(tai_marker.create(mark_BlockStart));
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
constructor TAsmList.create_without_marker;
|
||||||
|
begin
|
||||||
|
inherited create;
|
||||||
|
end;
|
||||||
|
|
||||||
function TAsmList.empty : boolean;
|
function TAsmList.empty : boolean;
|
||||||
begin
|
begin
|
||||||
|
@ -2081,7 +2081,7 @@ Implementation
|
|||||||
begin
|
begin
|
||||||
result:=true;
|
result:=true;
|
||||||
|
|
||||||
list:=TAsmList.Create;
|
list:=TAsmList.create_without_marker;
|
||||||
p:=BlockStart;
|
p:=BlockStart;
|
||||||
while p<>BlockEnd Do
|
while p<>BlockEnd Do
|
||||||
begin
|
begin
|
||||||
|
Loading…
Reference in New Issue
Block a user