paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 20:49:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@4729 -
This commit is contained in:
marco 2006-09-26 12:24:12 +00:00
parent 7e3b7caf31
commit d29a4bc889
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/inc/ctypes.pp
View File

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