paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 21:00:43 +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 uses
Classes, SysUtils, CodeCache, CodeToolManager, FileProcs, Classes, SysUtils, CodeCache, CodeToolManager, FileProcs,
CodeAtom, CodeTree, NonPascalCodeTools, CCodeParserTool, CodeAtom, CodeTree, NonPascalCodeTools, CCodeParserTool,
H2PasTool; H2PasTool, ctypes;
const const
ConfigFilename = 'codetools.config'; ConfigFilename = 'codetools.config';

1
components/codetools/h2pastool.pas
View File

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