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

* use ctypes unit

Browse Source
This commit is contained in:
florian 2005-02-05 23:04:04 +00:00
parent ca6c0e3688
commit 005ca57ebb
2 changed files with 3 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/extra/x11/x.pp
View File

@ -1,15 +1,13 @@
unit x;
interface
uses
ctypes;
{$ifndef os2}
{$LinkLib c}
{$LinkLib X11}
{$endif}
type
culong = dword;
cuchar = byte;
{
Automatically converted by H2Pas 0.99.15 from x.h
The following command line parameters were used:
@ -23,14 +21,8 @@ type
{ Pointers to basic pascal types, inserted by h2pas conversion program.}
Type
PLongint = ^Longint;
PPLongint = ^PLongint;
PSmallInt = ^SmallInt;
PByte = ^Byte;
PPByte = ^PByte;
PWord = ^Word;
PDWord = ^DWord;
PDouble = ^Double;
PPChar = ^PChar;
PPPChar = ^PPChar;
PPWideChar = ^PWideChar;

19
packages/extra/x11/xlib.pp
View File

@ -2,7 +2,7 @@ unit xlib;
interface
{$mode objfpc}
uses
x;
ctypes,x;
{$define MACROS}
{$ifndef os2}
@ -16,25 +16,8 @@ const
{$endif}
type
culong = sizeuint;
cuchar = byte;
clong = sizeint;
cint = longint;
cuint = longword;
cshort = smallint;
cushort = word;
cunsigned = cuint;
cchar = shortint;
Pcint = ^cint;
Pcuint = ^cuint;
Pculong = ^culong;
Pcuchar = ^cuchar;
PPcint = ^Pcint;
PPcuchar = ^Pcuchar;
{
Automatically converted by H2Pas 0.99.15 from xlib.h
The following command line parameters were used: