From 442ad0cbe8d65e37a7af656bce79f5bda4c77b77 Mon Sep 17 00:00:00 2001 From: florian Date: Thu, 16 Nov 2006 20:39:00 +0000 Subject: [PATCH] * fixed long type and derivates for win64 git-svn-id: trunk@5409 - --- rtl/inc/ctypes.pp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/rtl/inc/ctypes.pp b/rtl/inc/ctypes.pp index b9535c27da..462a7ce417 100644 --- a/rtl/inc/ctypes.pp +++ b/rtl/inc/ctypes.pp @@ -31,7 +31,7 @@ type { the following type definitions are compiler dependant } { and system dependant } - + cint8 = shortint; pcint8 = ^cint8; cuint8 = byte; pcuint8 = ^cuint8; cchar = cint8; pcchar = ^cchar; @@ -59,8 +59,8 @@ type culonglong = cuint64; pculonglong = ^culonglong; cbool = longbool; pcbool = ^cbool; - -{$ifdef cpu64} + +{$if defined(cpu64) and not(defined(win64) and defined(cpux86_64))} clong = int64; pclong = ^clong; cslong = int64; pcslong = ^cslong; culong = qword; pculong = ^culong; @@ -69,7 +69,7 @@ type cslong = longint; pcslong = ^cslong; culong = cardinal; pculong = ^culong; {$endif} - + cfloat = single; pcfloat = ^cfloat; cdouble = double; pcdouble = ^cdouble; clongdouble = extended; pclongdouble = ^clongdouble;