Forráskód Böngészése

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

git-svn-id: trunk@33144 -
marco 9 éve
szülő
commit
eb1d895718
1 módosított fájl, 1 hozzáadás és 4 törlés
  1. 1 4
      rtl/objpas/classes/classesh.inc

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

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