浏览代码

* fix reexport of record types in classesh, bug #29776 patch by Ondrej.

git-svn-id: trunk@33144 -
marco 9 年之前
父节点
当前提交
eb1d895718
共有 1 个文件被更改,包括 1 次插入4 次删除
  1. 1 4
      rtl/objpas/classes/classesh.inc

+ 1 - 4
rtl/objpas/classes/classesh.inc

@@ -26,14 +26,11 @@ type
 
    TPoint=Types.TPoint;
    TRect=Types.TRect;
+   TSmallPoint=Types.TSmallPoint;
 
 {$ifndef windows}
-   TSmallPoint = record
-      x,y : smallint;
-   end;
    HMODULE = ptrint; // hmodule is handle on windows. Pointer eq.
 {$else}
-   TSmallPoint = Windows.TSmallPoint;
    HModule = System.HModule;
 {$endif}