From 5dcb924a55f56de08ed15432c8e1f51ef7348bd5 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 7 Feb 2014 09:34:12 +0000
Subject: [PATCH] IDE: less hints

git-svn-id: trunk@43929 -
---
 ide/compiler.pp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/ide/compiler.pp b/ide/compiler.pp
index b0533d0c1c..22918ef91f 100644
--- a/ide/compiler.pp
+++ b/ide/compiler.pp
@@ -1221,7 +1221,7 @@ begin
         end
         else
           if not fRootOptGroup.SelectOption(s) then
-            fInvalidOptions.AddObject(s, TObject(Pointer(i)));
+            fInvalidOptions.AddObject(s, TObject(Pointer(PtrUInt(i))));
         Inc(fCurOrigLine);
       end;
     end;
@@ -1244,7 +1244,7 @@ begin
     begin                                       // TCompilerOptSet
       s := TCompilerOptSet(aRoot).CollectSelectedOptions(fUseComments);
       if s <> '' then
-        fGenStrings.AddObject(s, TObject(Pointer(aRoot.fOrigLine)));
+        fGenStrings.AddObject(s, TObject(Pointer(PtrUInt(aRoot.fOrigLine))));
     end
     else begin                                  // TCompilerOptGroup
       for i := 0 to Children.Count-1 do
@@ -1253,7 +1253,7 @@ begin
   end
   else if aRoot.Value <> '' then                // TCompilerOpt
     fGenStrings.AddObject(aRoot.GenerateOptValue(fUseComments),
-                          TObject(Pointer(aRoot.fOrigLine)));
+                          TObject(Pointer(PtrUINt(aRoot.fOrigLine))));
 end;
 
 function TCompilerOptReader.FindLowestOrigLine(aStrings: TStrings;
@@ -1268,7 +1268,7 @@ begin
   MinOrigLine := MaxInt;
   for i := 0 to aStrings.Count-1 do
   begin
-    OriLine := Integer(Pointer(aStrings.Objects[i]));
+    OriLine := Integer(PtrUInt(Pointer(aStrings.Objects[i])));
     if (OriLine > -1) and (OriLine < MinOrigLine) then
     begin
       MinOrigLine := OriLine;