* Fixed 'mixed signed/unsigned' and pointer conversion warnings.

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@11444 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 2 insertions, 2 deletions

diff --git a/compiler/aoptobj.pas b/compiler/aoptobj.pas
index fd3e08e4ce..33ca522e55 100644
--- a/compiler/aoptobj.pas
+++ b/compiler/aoptobj.pas
@@ -884,8 +884,8 @@ Unit AoptObj;
 {$endif}
     function tAOptObj.getlabelwithsym(sym: tasmlabel): tai;
       begin
-        if (sym.labelnr >= labelinfo^.lowlabel) and
-           (sym.labelnr <= labelinfo^.highlabel) then   { range check, a jump can go past an assembler block! }
+        if (sym.labelnr >= aint(labelinfo^.lowlabel)) and
+           (sym.labelnr <= aint(labelinfo^.highlabel)) then   { range check, a jump can go past an assembler block! }
           getlabelwithsym := labelinfo^.labeltable^[sym.labelnr-labelinfo^.lowlabel].paiobj
         else
           getlabelwithsym := nil;