paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 22:47:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed compilation with Delphi (patch by Sven Barth, mantis #17016)

Browse Source 
git-svn-id: trunk@15627 -
This commit is contained in:
Jonas Maebe 2010-07-23 15:44:15 +00:00
parent 8a47c5ec8e
commit e9c922b193
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/inc/ctypes.pp
View File

@ -17,8 +17,10 @@
unit ctypes;
{$inline on}
{$define dummy}
{$ifdef FPC}
{$inline on}
{$define dummy}
{$endif}
interface
@ -30,6 +32,8 @@ uses unixtype;
type
{$ifndef FPC}
qword = int64; // Keep h2pas "uses ctypes" headers working with delphi.
ptruint = cardinal;
pptruint = ^ptruint;
{$endif}
{ the following type definitions are compiler dependant }
@ -71,7 +75,7 @@ type
clong = longint; pclong = ^clong;
cslong = longint; pcslong = ^cslong;
culong = cardinal; pculong = ^culong;
{$endif}
{$ifend}
csize_t = ptruint; pcsize_t = pptruint;
@ -92,7 +96,7 @@ type
{$if defined(linux) and (defined(cpupowerpc) or defined(cpuarm))}
{$define longdouble_is_double}
{$endif}
{$ifend}
{$ifndef FPUNONE}
{$if defined(longdouble_is_double) or not defined(FPC_HAS_CEXTENDED)}
@ -103,8 +107,8 @@ type
{$else}
{$define longdouble_assignment_overload_real128}
clongdouble = packed array [0..15] of byte;
{$endif}
{$endif}
{$ifend}
{$ifend}
Pclongdouble=^clongdouble;
{$ifdef longdouble_assignment_overload_real128}