paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 11:00:28 +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}
cuchar = byte;
cchar = shortint;
cInt = longint; { minimum range is : 32-bit }
cUInt = Cardinal; { minimum range is : 32-bit }
{$ifdef CPU64}
{$ifdef cpu64}
cLong = int64;
{$ifdef VER1_0}
cuLong = int64;
@ -62,7 +63,7 @@ Type
{$else VER1_0}
culonglong = int64;
{$endif VER1_0}
cshort = integer;
cshort = smallint;
cushort = word;
pcInt = ^cInt;
@ -71,6 +72,11 @@ Type
pculong = ^cuLong;
pcshort = ^cshort;
pcushort = ^cushort;
pcchar = ^cchar;
pcuchar = ^cuchar;
cunsigned = cuint;
pcunsigned = ^cunsigned;
{$endif}
// Kylix compat types
@ -84,7 +90,10 @@ end.
{
$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
Revision 1.2 2005/02/12 17:35:18 marco