paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-20 12:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

CodeTools: no IFDEFs for r54731 #532ce029d5

Browse Source 
git-svn-id: trunk@54734 -
This commit is contained in:
ondrej 2017-04-25 10:50:58 +00:00
parent 1223f3b20a
commit 35aaed1cd7
1 changed files with 3 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/codetools/finddeclarationtool.pas
View File

@ -10133,11 +10133,7 @@ begin
Params:=TFindDeclarationParams.Create(Self,Node);
try
Params.Flags:=fdfDefaultForExpressions+[fdfFunctionResult];
{$IF FPC_FULLVERSION >= 30000}
AliasType:=Default(TFindContext);
{$ELSE}
FillChar(AliasType, SizeOf(AliasType), #0);
{$ENDIF}
AliasType:=CleanFindContext;
Result:=FindExpressionTypeOfTerm(CurPos.StartPos,-1,Params,false,@AliasType);
debugln(['TFindDeclarationTool.FindExpressionTypeOfConstSet ',ExprTypeToString(Result)]);
finally
@ -12176,11 +12172,7 @@ function TFindDeclarationTool.FindForInTypeAsString(TermPos: TAtomPosition;
case SubExprType.Context.Node.Desc of
ctnClass, ctnRecordType, ctnClassHelper, ctnRecordHelper, ctnTypeHelper:
begin
{$IF FPC_FULLVERSION >= 30000}
AliasType:=Default(TFindContext);
{$ELSE}
FillChar(AliasType, SizeOf(AliasType), #0);
{$ENDIF}
AliasType:=CleanFindContext;
if not SubExprType.Context.Tool.FindEnumeratorOfClass(
SubExprType.Context.Node,true,ExprType,@AliasType, Params)
then
@ -12202,11 +12194,7 @@ function TFindDeclarationTool.FindForInTypeAsString(TermPos: TAtomPosition;
end;
ctnRangedArrayType,ctnOpenArrayType:
begin
{$IF FPC_FULLVERSION >= 30000}
AliasType:=Default(TFindContext);
{$ELSE}
FillChar(AliasType, SizeOf(AliasType), #0);
{$ENDIF}
AliasType:=CleanFindContext;
if SubExprType.Context.Tool.FindElementTypeOfArrayType(
SubExprType.Context.Node,ExprType,@AliasType)
then begin