From d29a4bc889ad9f42bb03749c94f6bf006057cc89 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Tue, 26 Sep 2006 12:24:12 +0000
Subject: [PATCH] * add small delphi compat tweak for h2pas usage. + restored
Kylix compat idents. (without, pkgs might break unnecessarily)
git-svn-id: trunk@4729 -
---
rtl/inc/ctypes.pp | 10 ++++++++++
1 file changed, 10 insertions(+)
diff --git a/rtl/inc/ctypes.pp b/rtl/inc/ctypes.pp
index 6dc71ded52..b9535c27da 100644
--- a/rtl/inc/ctypes.pp
+++ b/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