* x86_64 compilation fixed

ide/fpviews.pas

@@ -4158,7 +4158,7 @@ begin
           begin
             W:=FirstEditorWindow;
             if Assigned(W) and Assigned(Report) then
-              Message(W,evCommand,cmAddChar,pointer(ord(Report^.AsciiChar)));
+              Message(W,evCommand,cmAddChar,pointer(ptrint(ord(Report^.AsciiChar))));
             ClearEvent(Event);
           end;
         cmSearchWindow+1..cmSearchWindow+99 :
@@ -4439,7 +4439,10 @@ end;
 END.
 {
   $Log$
-  Revision 1.51  2004-11-20 14:21:19  florian
+  Revision 1.52  2004-12-19 13:55:42  florian
+    * x86_64 compilation fixed
+
+  Revision 1.51  2004/11/20 14:21:19  florian
     * implemented reload menu item
     * increased file history to 9 files
 

ide/whlpview.pas

@@ -103,7 +103,7 @@ type
       PLinePosCollection = ^TLinePosCollection;
       TLinePosCollection = object(TNoDisposeCollection)
         function At(Index: sw_Integer): sw_integer;
-        procedure Insert (Item: longint);virtual;
+        procedure Insert (Item: ptrint);virtual;
       end;
 
       PHelpTopic = ^THelpTopic;
@@ -402,7 +402,7 @@ begin
   at := longint (inherited at(Index));
 end;
 
-procedure TLinePosCollection.Insert (Item: longint);
+procedure TLinePosCollection.Insert (Item: ptrint);
 begin
   Inherited Insert(pointer(Item));
 end;
@@ -1406,7 +1406,10 @@ end;
 END.
 {
   $Log$
-  Revision 1.11  2004-11-08 20:28:29  peter
+  Revision 1.12  2004-12-19 13:55:42  florian
+    * x86_64 compilation fixed
+
+  Revision 1.11  2004/11/08 20:28:29  peter
     * Breakpoints are now deleted when removed from source, disabling is
       still possible from the breakpoint list
     * COMPILER_1_0, FVISION, GABOR defines removed, only support new

ide/wutils.pas

@@ -114,9 +114,9 @@ type
   TIntCollection = object(TSortedCollection)
     function  Compare(Key1, Key2: Pointer): sw_Integer; virtual;
     procedure FreeItem(Item: Pointer); virtual;
-    procedure Add(Item: longint);
-    function  Contains(Item: longint): boolean;
-    function  AtInt(Index: sw_integer): longint;
+    procedure Add(Item: ptrint);
+    function  Contains(Item: ptrint): boolean;
+    function  AtInt(Index: sw_integer): ptrint;
   end;
 
 {$ifdef TPUNIXLF}
@@ -762,18 +762,18 @@ begin
   S.WriteStr(Item);
 end;
 
-function TIntCollection.Contains(Item: longint): boolean;
+function TIntCollection.Contains(Item: ptrint): boolean;
 var Index: sw_integer;
 begin
   Contains:=Search(pointer(Item),Index);
 end;
 
-function TIntCollection.AtInt(Index: sw_integer): longint;
+function TIntCollection.AtInt(Index: sw_integer): ptrint;
 begin
   AtInt:=longint(At(Index));
 end;
 
-procedure TIntCollection.Add(Item: longint);
+procedure TIntCollection.Add(Item: ptrint);
 begin
   Insert(pointer(Item));
 end;
@@ -1378,7 +1378,10 @@ BEGIN
 END.
 {
   $Log$
-  Revision 1.18  2004-09-16 22:08:13  armin
+  Revision 1.19  2004-12-19 13:55:42  florian
+    * x86_64 compilation fixed
+
+  Revision 1.18  2004/09/16 22:08:13  armin
   * added target netwlibc
 
   Revision 1.17  2003/09/27 14:03:45  peter