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

* more aint() type casts replaced by int64() type casts

Browse Source 
git-svn-id: trunk@12073 -
This commit is contained in:
Jonas Maebe 2008-11-13 19:44:30 +00:00
parent c72c091277
commit c1c1b2deac
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/aopt.pas
View File

@ -90,9 +90,9 @@ Unit aopt;
(tai_Label(p).labsym.is_used) Then
Begin
LabelFound := True;
If (tai_Label(p).labsym.labelnr < aint(LowLabel)) Then
If (tai_Label(p).labsym.labelnr < int64(LowLabel)) Then
LowLabel := tai_Label(p).labsym.labelnr;
If (tai_Label(p).labsym.labelnr > aint(HighLabel)) Then
If (tai_Label(p).labsym.labelnr > int64(HighLabel)) Then
HighLabel := tai_Label(p).labsym.labelnr
End;
GetNextInstruction(p, p)
@ -127,7 +127,7 @@ Unit aopt;
(tai_Label(p).labsym.labeltype=alt_jump) then
begin
LabelIdx:=tai_label(p).labsym.labelnr-LowLabel;
if LabelIdx>aint(LabelDif) then
if LabelIdx>int64(LabelDif) then
internalerror(200604202);
LabelTable^[LabelIdx].PaiObj := p;
end;