--- Merging r15510 into '.':

U    rtl/objpas/classes/classesh.inc

# revisions: 15510
------------------------------------------------------------------------
r15510 | marco | 2010-07-02 22:08:05 +0200 (Fri, 02 Jul 2010) | 2 lines
Changed paths:
   M /trunk/rtl/objpas/classes/classesh.inc

 * hmodule should scale with pointertype on non-windows. 

------------------------------------------------------------------------

git-svn-id: branches/fixes_2_4@15525 -

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;