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

codetools: added ctypes pointer types

Browse Source 
git-svn-id: trunk@14538 -
This commit is contained in:
mattias 2008-03-15 18:46:27 +00:00
parent 0b277dd71a
commit 3c69d6a067
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/examples/h2pastest.lpr
View File

@ -33,7 +33,7 @@ program H2PasTest;
uses
Classes, SysUtils, CodeCache, CodeToolManager, FileProcs,
CodeAtom, CodeTree, NonPascalCodeTools, CCodeParserTool,
H2PasTool;
H2PasTool, ctypes;
const
ConfigFilename = 'codetools.config';

1
components/codetools/h2pastool.pas
View File

@ -277,6 +277,7 @@ begin
inc(p);
CType:=copy(CType,1,CurAtomStart-1)+copy(CType,p,length(CType));
p:=CurAtomStart;
DebugLn(['TH2PasTool.ConvertSimpleCTypeToPascalType CType="',CType,'"']);
end;
until false;
Result:=PredefinedCTypes[CType];