paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 23:39:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: added ctypes pointer types

Browse Source 
git-svn-id: trunk@14537 -
This commit is contained in:
mattias 2008-03-15 18:44:30 +00:00
parent 292ba442b0
commit 0b277dd71a
1 changed files with 30 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
components/codetools/h2pastool.pas
View File

@ -122,46 +122,76 @@ begin
with InternalPredefinedCTypes do begin with InternalPredefinedCTypes do begin
// int // int
Add('int','cint'); Add('int','cint');
Add('int*','pcint');
Add('signed int','csint'); Add('signed int','csint');
Add('signed int*','pcsint');
Add('unsigned int','cuint'); Add('unsigned int','cuint');
Add('unsigned int*','pcuint');
Add('short int','cshort'); Add('short int','cshort');
Add('short int*','pcshort');
Add('signed short int','csshort'); Add('signed short int','csshort');
Add('signed short int*','pcsshort');
Add('unsigned short int','csshort'); Add('unsigned short int','csshort');
Add('unsigned short int*','pcsshort');
// short // short
Add('short','cshort'); Add('short','cshort');
Add('short*','pcshort');
Add('signed short','csshort'); Add('signed short','csshort');
Add('signed short*','pcsshort');
Add('unsigned short','csshort'); Add('unsigned short','csshort');
Add('unsigned short*','pcsshort');
// int8 // int8
Add('int8','cint8'); Add('int8','cint8');
Add('int8*','pcint8');
Add('unsigned int8','cuint8'); Add('unsigned int8','cuint8');
Add('unsigned int8*','pcuint8');
// int16 // int16
Add('int16','cint16'); Add('int16','cint16');
Add('int16*','pcint16');
Add('unsigned int16','cuint16'); Add('unsigned int16','cuint16');
Add('unsigned int16*','pcuint16');
// int32 // int32
Add('int32','cint32'); Add('int32','cint32');
Add('int32*','pcint32');
Add('unsigned int32','cuint32'); Add('unsigned int32','cuint32');
Add('unsigned int32*','pcuint32');
// int64 // int64
Add('int64','cint64'); Add('int64','cint64');
Add('int64*','pcint64');
Add('unsigned int64','cuint64'); Add('unsigned int64','cuint64');
Add('unsigned int64*','pcuint64');
// long // long
Add('long','clong'); Add('long','clong');
Add('long*','pclong');
Add('signed long','cslong'); Add('signed long','cslong');
Add('signed long*','pcslong');
Add('unsigned long','culong'); Add('unsigned long','culong');
Add('unsigned long*','pculong');
// long long // long long
Add('long long','clonglong'); Add('long long','clonglong');
Add('long long*','pclonglong');
Add('signed long long','cslonglong'); Add('signed long long','cslonglong');
Add('signed long long*','pcslonglong');
Add('unsigned long long','culonglong'); Add('unsigned long long','culonglong');
Add('unsigned long long*','pculonglong');
// bool // bool
Add('bool','cbool'); Add('bool','cbool');
Add('bool*','pcbool');
// char // char
Add('char','cchar'); Add('char','cchar');
Add('char*','pcchar');
Add('signed char','cschar'); Add('signed char','cschar');
Add('signed char*','pcschar');
Add('unsigned char','cuchar'); Add('unsigned char','cuchar');
Add('unsigned char*','pcuchar');
// float // float
Add('float','cfloat'); Add('float','cfloat');
Add('float*','pcfloat');
// double // double
Add('double','cdouble'); Add('double','cdouble');
Add('double*','pcdouble');
Add('long double','clongdouble'); Add('long double','clongdouble');
Add('long double*','pclongdouble');
end; end;
end; end;
Result:=InternalPredefinedCTypes; Result:=InternalPredefinedCTypes;