Browse Source

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

git-svn-id: trunk@33144 -
marco 9 years ago
parent
commit
eb1d895718
1 changed files with 1 additions and 4 deletions
  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}