paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 12:29:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* removed unused AsmL parameter from FindLoHiLabels

Browse Source
This commit is contained in:
Jonas Maebe 1999-07-01 18:21:21 +00:00
parent a203fd13d7
commit 8c52e10620
1 changed files with 7 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/daopt386.pas
View File

@ -589,7 +589,7 @@ Var
{************************ Create the Label table ************************}
Function FindLoHiLabels(AsmL: PAasmOutput; Var LowLabel, HighLabel, LabelDif: Longint; BlockStart: Pai): Pai;
Function FindLoHiLabels(Var LowLabel, HighLabel, LabelDif: Longint; BlockStart: Pai): Pai;
{Walks through the paasmlist to find the lowest and highest label number}
Var LabelFound: Boolean;
P: Pai;
@ -611,15 +611,7 @@ Begin
LowLabel := Pai_Label(p)^.l^.labelnr;
If (Pai_Label(p)^.l^.labelnr > HighLabel) Then
HighLabel := Pai_Label(p)^.l^.labelnr;
End
{ Else
Begin
hp1 := pai(p^.next);
AsmL^.Remove(p);
Dispose(p, Done);
p := hp1;
continue;
End};
End;
GetNextInstruction(p, p);
End;
FindLoHiLabels := p;
@ -1574,7 +1566,7 @@ Function DFAPass1(AsmL: PAasmOutput; BlockStart: Pai): Pai;
avoid global vars}
Var BlockEnd: Pai;
Begin
BlockEnd := FindLoHiLabels(AsmL, LoLab, HiLab, LabDif, BlockStart);
BlockEnd := FindLoHiLabels(LoLab, HiLab, LabDif, BlockStart);
BuildLabelTableAndFixRegAlloc(AsmL, LTable, LoLab, LabDif, BlockStart, BlockEnd);
DFAPass1 := BlockEnd;
End;
@ -2105,7 +2097,10 @@ End.
{
$Log$
Revision 1.47 1999-05-27 19:44:24 peter
Revision 1.48 1999-07-01 18:21:21 jonas
* removed unused AsmL parameter from FindLoHiLabels
Revision 1.47 1999/05/27 19:44:24 peter
* removed oldasm
* plabel -> pasmlabel
* -a switches to source writing automaticly