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

* Florian's changes from ctypes.inc merged in to make xlib compilable under non-Unix again

Browse Source
This commit is contained in:
Tomas Hajny 2005-03-01 22:45:09 +00:00
parent 526f7b716a
commit 87aa9bdf60
1 changed files with 22 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/inc/ctypes.pp
View File

@ -43,9 +43,10 @@ Type
{$endif} {$endif}
cuchar = byte; cuchar = byte;
cchar = shortint;
cInt = longint; { minimum range is : 32-bit } cInt = longint; { minimum range is : 32-bit }
cUInt = Cardinal; { minimum range is : 32-bit } cUInt = Cardinal; { minimum range is : 32-bit }
{$ifdef CPU64} {$ifdef cpu64}
cLong = int64; cLong = int64;
{$ifdef VER1_0} {$ifdef VER1_0}
cuLong = int64; cuLong = int64;
@ -62,7 +63,7 @@ Type
{$else VER1_0} {$else VER1_0}
culonglong = int64; culonglong = int64;
{$endif VER1_0} {$endif VER1_0}
cshort = integer; cshort = smallint;
cushort = word; cushort = word;
pcInt = ^cInt; pcInt = ^cInt;
@ -71,6 +72,11 @@ Type
pculong = ^cuLong; pculong = ^cuLong;
pcshort = ^cshort; pcshort = ^cshort;
pcushort = ^cushort; pcushort = ^cushort;
pcchar = ^cchar;
pcuchar = ^cuchar;
cunsigned = cuint;
pcunsigned = ^cunsigned;
{$endif} {$endif}
// Kylix compat types // Kylix compat types
@ -84,7 +90,10 @@ end.
{ {
$Log$ $Log$
Revision 1.3 2005-02-14 17:13:22 peter Revision 1.4 2005-03-01 22:45:09 hajny
* Florian's changes from ctypes.inc merged in to make xlib compilable under non-Unix again
Revision 1.3 2005/02/14 17:13:22 peter
* truncate log * truncate log
Revision 1.2 2005/02/12 17:35:18 marco Revision 1.2 2005/02/12 17:35:18 marco