* x86_64 fixes

packages/extra/gtk/gdk/gdkx.pp

@@ -50,7 +50,7 @@ function  gdk_window_foreign_new(anid:guint32):PGdkWindow;cdecl;external gdkdll
   {$ifndef gtkos2}
 function  GDK_GET_ROOT_WINDOW : PGdkWindow;
     begin
-       GDK_GET_ROOT_WINDOW:=PGdkwindow(gdk_root_window);
+       GDK_GET_ROOT_WINDOW:=PGdkwindow(PtrInt(gdk_root_window));
     end;
 
 function  GDK_GET_ROOT_PARENT : PGdkWindow;
@@ -126,7 +126,10 @@ function  GDK_FONT_XFONT(font : PGdkFontPrivate) : gpointer;
 
 {
   $Log$
-  Revision 1.5  2004-05-02 19:14:47  jonas
+  Revision 1.6  2004-12-15 21:25:30  peter
+    * x86_64 fixes
+
+  Revision 1.5  2004/05/02 19:14:47  jonas
     * fixed darwin incompatibilities
 
   Revision 1.4  2003/08/06 07:28:21  michael

packages/extra/ncurses/ncurses.pp

@@ -1277,7 +1277,7 @@ end;
 
 function chgat(n,a,c,o : longint) : longint;
 begin
- chgat:=wchgat(stdscr,n,a,c,pointer(o));
+ chgat:=wchgat(stdscr,n,a,c,pointer(ptrint(o)));
 end;
 
 function getbkgd(win : pwindow) : longint;
@@ -1709,7 +1709,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.7  2004-05-08 20:50:19  jonas
+  Revision 1.8  2004-12-15 21:25:31  peter
+    * x86_64 fixes
+
+  Revision 1.7  2004/05/08 20:50:19  jonas
     * Darwin fixes by mischi
 
   Revision 1.6  2003/10/15 17:04:40  florian

packages/extra/tcl/tcl80.pp

@@ -973,7 +973,7 @@ begin
      if (hashTbl = nil) or (hashEntry = nil) then
         result := nil
      else if pHashTable(hashTbl)^.keyType = 1 then
-        result :=  PChar(pLongInt(@(hashEntry^.key[0]))^)
+        result :=  PChar(pptrInt(@(hashEntry^.key[0]))^)
      else
         result := hashEntry^.key;
 end;