paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 22:09:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed type of low(array[enum])

Browse Source 
git-svn-id: trunk@27064 -
This commit is contained in:
mattias 2010-08-11 06:21:19 +00:00
parent b6c70dc7ed
commit bb7cd19447
1 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
components/codetools/finddeclarationtool.pas
View File

@ -2465,6 +2465,9 @@ var
begin
ContextNode:=Params.ContextNode;
if ContextNode=nil then RaiseInternalError;
{$IFDEF CheckNodeTool}
CheckNodeTool(ContextNode);
{$ENDIF}
StartContextNode:=ContextNode;
FirstSearchedNode:=nil;
LastSearchedNode:=nil;
@ -6587,6 +6590,10 @@ var
Params.Load(OldInput,true);
ExprType:=FindExpressionTypeOfPredefinedIdentifier(CurAtom.StartPos,
Params);
{$IFDEF CheckNodeTool}
if ExprType.Desc=xtContext then
ExprType.Context.Tool.CheckNodeTool(ExprType.Context.Node);
{$ENDIF}
end;
// ToDo: check if identifier in 'Protected' section
@ -6994,6 +7001,9 @@ begin
' StartContext=',StartContext.Node.DescAsString,'=',dbgstr(copy(StartContext.Tool.Src,StartContext.Node.StartPos,15))
);
{$ENDIF}
{$IFDEF CheckNodeTool}
StartContext.Tool.CheckNodeTool(StartContext.Node);
{$ENDIF}
if not InitAtomQueue then exit;
{$IFDEF ShowExprEval}
@ -7379,8 +7389,15 @@ begin
begin
// array with explicit range
// Low(array[SubRange]) has the type of the subrange
MoveCursorToNodeStart(ParamNode.FirstChild);
Result:=ReadOperandTypeAtCursor(Params);
Result.Context.Tool.MoveCursorToNodeStart(ParamNode.FirstChild);
SubParams:=TFindDeclarationParams.Create;
try
SubParams.Flags:=fdfDefaultForExpressions;
SubParams.ContextNode:=ParamNode;
Result:=Result.Context.Tool.ReadOperandTypeAtCursor(SubParams);
finally
SubParams.Free;
end;
end;
else