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

codetools: h2p: added more standard c types

Browse Source 
git-svn-id: trunk@14674 -
This commit is contained in:
mattias 2008-03-28 09:44:40 +00:00
parent a7ea084059
commit 2c7cc21649
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/codetools/h2pastool.pas
View File

@ -360,21 +360,29 @@ begin
Add('int8*','pcint8');
Add('unsigned int8','cuint8');
Add('unsigned int8*','pcuint8');
Add('uint8_t','cuint8');
Add('uint8_t*','pcuint8');
// int16
Add('int16','cint16');
Add('int16*','pcint16');
Add('unsigned int16','cuint16');
Add('unsigned int16*','pcuint16');
Add('uint16_t','cuint16');
Add('uint16_t*','pcuint16');
// int32
Add('int32','cint32');
Add('int32*','pcint32');
Add('unsigned int32','cuint32');
Add('unsigned int32*','pcuint32');
Add('uint32_t','cuint32');
Add('uint32_t*','pcuint32');
// int64
Add('int64','cint64');
Add('int64*','pcint64');
Add('unsigned int64','cuint64');
Add('unsigned int64*','pcuint64');
Add('uint64_t','cuint64');
Add('uint64_t*','pcuint64');
// long
Add('long','clong');
Add('long*','pclong');
@ -419,6 +427,8 @@ begin
Add('long double*','pclongdouble');
// void
Add('void*','pointer');
// size_t
Add('size_t','PtrUInt');
end;
end;
Result:=InternalPredefinedCTypes;
@ -1381,7 +1391,7 @@ begin
if ExtractCCode(DirNode.Expression)='' then begin
W('{$Define '+DirNode.MacroName+'}');
end else begin
W('{$Define '+DirNode.MacroName+':='+CreateDirectiveValue(DirNode.Expression)+'}');
W('{off $Define '+DirNode.MacroName+':='+CreateDirectiveValue(DirNode.Expression)+'}');
end;
end else begin
DebugLn(['TH2PasTool.WriteDirectiveNode SKIPPING ',DirNode.DescAsString(CTool)]);