paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 20:20:16 +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('int8*','pcint8');
Add('unsigned int8','cuint8'); Add('unsigned int8','cuint8');
Add('unsigned int8*','pcuint8'); Add('unsigned int8*','pcuint8');
Add('uint8_t','cuint8');
Add('uint8_t*','pcuint8');
// int16 // int16
Add('int16','cint16'); Add('int16','cint16');
Add('int16*','pcint16'); Add('int16*','pcint16');
Add('unsigned int16','cuint16'); Add('unsigned int16','cuint16');
Add('unsigned int16*','pcuint16'); Add('unsigned int16*','pcuint16');
Add('uint16_t','cuint16');
Add('uint16_t*','pcuint16');
// int32 // int32
Add('int32','cint32'); Add('int32','cint32');
Add('int32*','pcint32'); Add('int32*','pcint32');
Add('unsigned int32','cuint32'); Add('unsigned int32','cuint32');
Add('unsigned int32*','pcuint32'); Add('unsigned int32*','pcuint32');
Add('uint32_t','cuint32');
Add('uint32_t*','pcuint32');
// int64 // int64
Add('int64','cint64'); Add('int64','cint64');
Add('int64*','pcint64'); Add('int64*','pcint64');
Add('unsigned int64','cuint64'); Add('unsigned int64','cuint64');
Add('unsigned int64*','pcuint64'); Add('unsigned int64*','pcuint64');
Add('uint64_t','cuint64');
Add('uint64_t*','pcuint64');
// long // long
Add('long','clong'); Add('long','clong');
Add('long*','pclong'); Add('long*','pclong');
@ -419,6 +427,8 @@ begin
Add('long double*','pclongdouble'); Add('long double*','pclongdouble');
// void // void
Add('void*','pointer'); Add('void*','pointer');
// size_t
Add('size_t','PtrUInt');
end; end;
end; end;
Result:=InternalPredefinedCTypes; Result:=InternalPredefinedCTypes;
@ -1381,7 +1391,7 @@ begin
if ExtractCCode(DirNode.Expression)='' then begin if ExtractCCode(DirNode.Expression)='' then begin
W('{$Define '+DirNode.MacroName+'}'); W('{$Define '+DirNode.MacroName+'}');
end else begin end else begin
W('{$Define '+DirNode.MacroName+':='+CreateDirectiveValue(DirNode.Expression)+'}'); W('{off $Define '+DirNode.MacroName+':='+CreateDirectiveValue(DirNode.Expression)+'}');
end; end;
end else begin end else begin
DebugLn(['TH2PasTool.WriteDirectiveNode SKIPPING ',DirNode.DescAsString(CTool)]); DebugLn(['TH2PasTool.WriteDirectiveNode SKIPPING ',DirNode.DescAsString(CTool)]);