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

* simplified RegInInstruction() and fixed range errors

Browse Source 
git-svn-id: trunk@25950 -
This commit is contained in:
Jonas Maebe 2013-11-06 10:46:22 +00:00
parent 98a230d20f
commit 3c7ad95f7d
1 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/aoptbase.pas
View File

@ -117,17 +117,16 @@ unit aoptbase;
Function TAOptBase.RegInInstruction(Reg: TRegister; p1: tai): Boolean; Function TAOptBase.RegInInstruction(Reg: TRegister; p1: tai): Boolean;
Var Count: AWord; Var
TmpResult: Boolean; Count: longint;
Begin Begin
TmpResult := False; result:=false;
Count := 0; if p1.typ<>ait_instruction then
If (p1.typ = ait_instruction) and assigned(TInstr(p1).oper[0]) Then exit;
Repeat for Count:=0 to TInstr(p1).ops-1 do
TmpResult := RegInOp(Reg, TInstr(p1).oper[Count]^); if RegInOp(Reg, TInstr(p1).oper[Count]^) then
Inc(Count) exit(true);
Until (TInstr(p1).oper[Count]=nil) or (Count = MaxOps) or TmpResult; result:=false;
RegInInstruction := TmpResult
End; End;