paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 02:36:23 +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; TCodeTreeNodeStackEntry = TCodeTreeNode;
TCodeTreeNodeStack = record TCodeTreeNodeStack = record
Fixedtems: array[0..9] of TCodeTreeNodeStackEntry; FixedItems: array[0..9] of TCodeTreeNodeStackEntry;
DynItems: TFPList; // list of TCodeTreeNodeStackEntry DynItems: TFPList; // list of TCodeTreeNodeStackEntry
StackPtr: integer; StackPtr: integer;
end; end;
@ -1188,19 +1188,19 @@ end;
function GetNodeStackEntry(NodeStack: PCodeTreeNodeStack; function GetNodeStackEntry(NodeStack: PCodeTreeNodeStack;
Index: integer): TCodeTreeNodeStackEntry; Index: integer): TCodeTreeNodeStackEntry;
begin begin
if Index<=High(NodeStack^.Fixedtems) then begin if Index<=High(NodeStack^.FixedItems) then begin
Result:=NodeStack^.Fixedtems[Index]; Result:=NodeStack^.FixedItems[Index];
end else begin end else begin
Result:=TCodeTreeNodeStackEntry( Result:=TCodeTreeNodeStackEntry(
NodeStack^.DynItems[Index-High(NodeStack^.Fixedtems)-1]); NodeStack^.DynItems[Index-High(NodeStack^.FixedItems)-1]);
end; end;
end; end;
procedure AddNodeToStack(NodeStack: PCodeTreeNodeStack; procedure AddNodeToStack(NodeStack: PCodeTreeNodeStack;
NewNode: TCodeTreeNode); NewNode: TCodeTreeNode);
begin begin
if (NodeStack^.StackPtr<=High(NodeStack^.Fixedtems)) then begin if (NodeStack^.StackPtr<=High(NodeStack^.FixedItems)) then begin
NodeStack^.Fixedtems[NodeStack^.StackPtr]:=NewNode; NodeStack^.FixedItems[NodeStack^.StackPtr]:=NewNode;
end else begin end else begin
if NodeStack^.DynItems=nil then begin if NodeStack^.DynItems=nil then begin
NodeStack^.DynItems:=TFPList.Create; NodeStack^.DynItems:=TFPList.Create;
@ -1217,10 +1217,10 @@ begin
Result:=true; Result:=true;
i:=0; i:=0;
while i<NodeStack^.StackPtr do begin while i<NodeStack^.StackPtr do begin
if i<=High(NodeStack^.Fixedtems) then begin if i<=High(NodeStack^.FixedItems) then begin
if NodeStack^.Fixedtems[i]=Node then exit; if NodeStack^.FixedItems[i]=Node then exit;
end else begin 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; exit;
end; end;
inc(i); inc(i);