* hmodule should scale with pointertype on non-windows.

git-svn-id: trunk@15510 -
2025-09-11 11:49:24 +02:00 · 2010-07-02 20:08:05 +00:00 · 2010-07-02 20:08:05 +00:00 · d8707ec5d3
commit d8707ec5d3
parent 7d27f4c21d
1 changed files with 1 additions and 1 deletions
--- a/rtl/objpas/classes/classesh.inc
+++ b/rtl/objpas/classes/classesh.inc
@ -36,7 +36,7 @@ type
   TSmallPoint = record
      x,y : smallint;
   end;
-   HMODULE = longint;
+   HMODULE = ptrint; // hmodule is handle on windows. Pointer eq.
 {$else}
   TSmallPoint = Windows.TSmallPoint;
   HModule = System.HModule;