瀏覽代碼

--- 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 -

marco 15 年之前
父節點
當前提交
f6ea3e91c3
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      rtl/objpas/classes/classesh.inc

+ 1 - 1
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;