From c1c1b2deac1f201f821d12468f77457fbb7e0def Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Thu, 13 Nov 2008 19:44:30 +0000
Subject: [PATCH]   * more aint() type casts replaced by int64() type casts

git-svn-id: trunk@12073 -
---
 compiler/aopt.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/compiler/aopt.pas b/compiler/aopt.pas
index cde40dc142..1403030d21 100644
--- a/compiler/aopt.pas
+++ b/compiler/aopt.pas
@@ -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;