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

codetools: fixed FixAliasDefintions for typecasts to const

Browse Source 
git-svn-id: trunk@12426 -
This commit is contained in:
mattias 2007-10-12 19:40:05 +00:00
parent 10750bea84
commit c95365d362
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/codecompletiontool.pas
View File

@ -1414,7 +1414,7 @@ var
if WordIsKeyWord.DoIt(@Src[ReferingPos]) then exit; if WordIsKeyWord.DoIt(@Src[ReferingPos]) then exit;
// this is a type cast // this is a type cast
NeededType:=ctnConstDefinition; NeededType:=ctnConstDefinition;
GetReferingNode; //GetReferingNode;
if (ReferingNode<>nil) then begin if (ReferingNode<>nil) then begin
// ToDo: check if it is a typecast to a procedure type // ToDo: check if it is a typecast to a procedure type
// then the alias should be replaced with a procdure // then the alias should be replaced with a procdure