paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 21:41:01 +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); Params:=TFindDeclarationParams.Create(Self,Node);
try try
Params.Flags:=fdfDefaultForExpressions+[fdfFunctionResult]; Params.Flags:=fdfDefaultForExpressions+[fdfFunctionResult];
{$IF FPC_FULLVERSION >= 30000} AliasType:=CleanFindContext;
AliasType:=Default(TFindContext);
{$ELSE}
FillChar(AliasType, SizeOf(AliasType), #0);
{$ENDIF}
Result:=FindExpressionTypeOfTerm(CurPos.StartPos,-1,Params,false,@AliasType); Result:=FindExpressionTypeOfTerm(CurPos.StartPos,-1,Params,false,@AliasType);
debugln(['TFindDeclarationTool.FindExpressionTypeOfConstSet ',ExprTypeToString(Result)]); debugln(['TFindDeclarationTool.FindExpressionTypeOfConstSet ',ExprTypeToString(Result)]);
finally finally
@ -12176,11 +12172,7 @@ function TFindDeclarationTool.FindForInTypeAsString(TermPos: TAtomPosition;
case SubExprType.Context.Node.Desc of case SubExprType.Context.Node.Desc of
ctnClass, ctnRecordType, ctnClassHelper, ctnRecordHelper, ctnTypeHelper: ctnClass, ctnRecordType, ctnClassHelper, ctnRecordHelper, ctnTypeHelper:
begin begin
{$IF FPC_FULLVERSION >= 30000} AliasType:=CleanFindContext;
AliasType:=Default(TFindContext);
{$ELSE}
FillChar(AliasType, SizeOf(AliasType), #0);
{$ENDIF}
if not SubExprType.Context.Tool.FindEnumeratorOfClass( if not SubExprType.Context.Tool.FindEnumeratorOfClass(
SubExprType.Context.Node,true,ExprType,@AliasType, Params) SubExprType.Context.Node,true,ExprType,@AliasType, Params)
then then
@ -12202,11 +12194,7 @@ function TFindDeclarationTool.FindForInTypeAsString(TermPos: TAtomPosition;
end; end;
ctnRangedArrayType,ctnOpenArrayType: ctnRangedArrayType,ctnOpenArrayType:
begin begin
{$IF FPC_FULLVERSION >= 30000} AliasType:=CleanFindContext;
AliasType:=Default(TFindContext);
{$ELSE}
FillChar(AliasType, SizeOf(AliasType), #0);
{$ENDIF}
if SubExprType.Context.Tool.FindElementTypeOfArrayType( if SubExprType.Context.Tool.FindElementTypeOfArrayType(
SubExprType.Context.Node,ExprType,@AliasType) SubExprType.Context.Node,ExprType,@AliasType)
then begin then begin