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

codetools: fixed typo

Browse Source 
git-svn-id: trunk@30668 -
This commit is contained in:
mattias 2011-05-10 23:56:57 +00:00
parent 2800152329
commit f19a680f22
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/codetools/finddeclarationcache.pas
View File

@ -270,7 +270,7 @@ type
TCodeTreeNodeStackEntry = TCodeTreeNode;
TCodeTreeNodeStack = record
Fixedtems: array[0..9] of TCodeTreeNodeStackEntry;
FixedItems: array[0..9] of TCodeTreeNodeStackEntry;
DynItems: TFPList; // list of TCodeTreeNodeStackEntry
StackPtr: integer;
end;
@ -1188,19 +1188,19 @@ end;
function GetNodeStackEntry(NodeStack: PCodeTreeNodeStack;
Index: integer): TCodeTreeNodeStackEntry;
begin
if Index<=High(NodeStack^.Fixedtems) then begin
Result:=NodeStack^.Fixedtems[Index];
if Index<=High(NodeStack^.FixedItems) then begin
Result:=NodeStack^.FixedItems[Index];
end else begin
Result:=TCodeTreeNodeStackEntry(
NodeStack^.DynItems[Index-High(NodeStack^.Fixedtems)-1]);
NodeStack^.DynItems[Index-High(NodeStack^.FixedItems)-1]);
end;
end;
procedure AddNodeToStack(NodeStack: PCodeTreeNodeStack;
NewNode: TCodeTreeNode);
begin
if (NodeStack^.StackPtr<=High(NodeStack^.Fixedtems)) then begin
NodeStack^.Fixedtems[NodeStack^.StackPtr]:=NewNode;
if (NodeStack^.StackPtr<=High(NodeStack^.FixedItems)) then begin
NodeStack^.FixedItems[NodeStack^.StackPtr]:=NewNode;
end else begin
if NodeStack^.DynItems=nil then begin
NodeStack^.DynItems:=TFPList.Create;
@ -1217,10 +1217,10 @@ begin
Result:=true;
i:=0;
while i<NodeStack^.StackPtr do begin
if i<=High(NodeStack^.Fixedtems) then begin
if NodeStack^.Fixedtems[i]=Node then exit;
if i<=High(NodeStack^.FixedItems) then begin
if NodeStack^.FixedItems[i]=Node then exit;
end else begin
if NodeStack^.DynItems[i-High(NodeStack^.Fixedtems)-1]=Pointer(Node) then
if NodeStack^.DynItems[i-High(NodeStack^.FixedItems)-1]=Pointer(Node) then
exit;
end;
inc(i);