Преглед изворни кода

* add small delphi compat tweak for h2pas usage. + restored Kylix compat idents. (without, pkgs might break unnecessarily)

git-svn-id: trunk@4729 -
marco пре 19 година
родитељ
комит
d29a4bc889
1 измењених фајлова са 10 додато и 0 уклоњено
  1. 10 0
      rtl/inc/ctypes.pp

+ 10 - 0
rtl/inc/ctypes.pp

@@ -23,7 +23,12 @@ interface
 uses unixtype;
 {$i aliasctp.inc}
 {$else}
+
 type
+{$ifndef FPC}
+    qword = int64;  // Keep h2pas "uses ctypes" headers working with delphi.
+{$endif}
+
   { the following type definitions are compiler dependant }
   { and system dependant                                  }
   
@@ -68,6 +73,11 @@ type
   cfloat                 = single;             pcfloat                = ^cfloat;
   cdouble                = double;             pcdouble               = ^cdouble;
   clongdouble            = extended;           pclongdouble           = ^clongdouble;
+
+// Kylix compat types
+  u_long  = culong;
+  u_short = cushort;
+
 {$endif}
 
 implementation