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

h2pas: searching pointer types only in a subset of types

Browse Source 
git-svn-id: trunk@14152 -
This commit is contained in:
mattias 2008-02-15 22:10:37 +00:00
parent 12698f650c
commit 9370e64ae4
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/h2pas/h2pasconvert.pas
View File

@ -4290,6 +4290,7 @@ var
AVLNode:=NeededPointerTypes.FindKey(Identifier,
@CompareImplicitTypeStringAndName);
DebugLn(['AddNeededPointerType ',GetIdentifier(Identifier),' Position=',Position,' Count=',Count]);
DebugLn(['AddNeededPointerType AAA1 ',copy(Tool.Src,Position,100)]);
if AVLNode<>nil then begin
Item:=TImplicitType(AVLNode.Data);
if Item.MaxPosition<Count then
@ -4315,7 +4316,7 @@ var
if IdentifierIsDefined(@Tool.Src[Position+Level]) then break;
inc(Level);
end;
//DebugLn(['CheckIdentifier ',GetIdentifier(Identifier),' Level=',Level]);
DebugLn(['CheckIdentifier ',GetIdentifier(Identifier),' Level=',Level]);
if Level=0 then begin
// the identifier is defined
exit;
@ -4415,7 +4416,10 @@ var
begin
Node:=Tool.Tree.Root;
while Node<>nil do begin
if Node.Desc in AllPascalTypes then begin
if (Node.Desc in [ctnIdentifier,ctnOpenArrayType,
ctnRangedArrayType,ctnTypeType,ctnPointerType,ctnConstant])
and (Node.FirstChild=nil)
then begin
Tool.MoveCursorToCleanPos(Node.StartPos);
while Tool.CurPos.StartPos<Node.EndPos do begin
Tool.ReadNextAtom;