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

* fix findlohilabel

Browse Source 
git-svn-id: trunk@3299 -
This commit is contained in:
peter 2006-04-20 13:59:14 +00:00
parent a9df7aa81a
commit 89f5d65784
1 changed files with 27 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
compiler/aopt.pas
View File

@ -57,6 +57,7 @@ Unit aopt;
uses
globtype, globals,
verbose,
aoptda,aoptcpu,aoptcpud;
Constructor TAsmOptimizer.create(_AsmL: TAsmList);
@ -85,22 +86,20 @@ Unit aopt;
((P.typ <> Ait_Marker) Or
(tai_Marker(P).Kind <> mark_AsmBlockStart)) Do
Begin
If (p.typ = ait_label) Then
If (tai_Label(p).labsym.is_used) Then
Begin
LabelFound := True;
If (tai_Label(p).labsym.labelnr < LowLabel) Then
LowLabel := tai_Label(p).labsym.labelnr;
If (tai_Label(p).labsym.labelnr > HighLabel) Then
HighLabel := tai_Label(p).labsym.labelnr
End;
If (p.typ = ait_label) and
(tai_Label(p).labsym.labeltype=alt_jump) and
(tai_Label(p).labsym.is_used) Then
Begin
LabelFound := True;
If (tai_Label(p).labsym.labelnr < LowLabel) Then
LowLabel := tai_Label(p).labsym.labelnr;
If (tai_Label(p).labsym.labelnr > HighLabel) Then
HighLabel := tai_Label(p).labsym.labelnr
End;
prev := p;
GetNextInstruction(p, p)
End;
if (prev.typ = ait_marker) and
(tai_marker(prev).kind = mark_AsmBlockStart) then
blockend := prev
else blockend := nil;
blockend:=p;
If LabelFound
Then LabelDif := HighLabel-LowLabel+1
Else LabelDif := 0
@ -112,6 +111,7 @@ Unit aopt;
{ Also fixes some RegDeallocs like "# %eax released; push (%eax)" }
Var p, hp1, hp2: tai;
UsedRegs: TRegSet;
LabelIdx : longint;
Begin
UsedRegs := [];
With LabelInfo^ Do
@ -124,8 +124,16 @@ Unit aopt;
Begin
Case p.typ Of
ait_Label:
If tai_label(p).labsym.is_used Then
LabelTable^[tai_label(p).labsym.labelnr-LowLabel].PaiObj := p;
begin
If tai_label(p).labsym.is_used and
(tai_Label(p).labsym.labeltype=alt_jump) then
begin
LabelIdx:=tai_label(p).labsym.labelnr-LowLabel;
if LabelIdx>LabelDif then
internalerror(200604202);
LabelTable^[LabelIdx].PaiObj := p;
end;
end;
ait_regAlloc:
begin
{!!!!!!!!!
@ -178,11 +186,14 @@ Unit aopt;
procedure tasmoptimizer.clear;
begin
if LabelInfo^.labeldif <> 0 then
if assigned(LabelInfo^.labeltable) then
begin
freemem(LabelInfo^.labeltable);
LabelInfo^.labeltable := nil;
end;
LabelInfo^.labeldif:=0;
LabelInfo^.lowlabel:=high(AWord);
LabelInfo^.highlabel:=0;
end;
procedure tasmoptimizer.pass_1;