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

codetools: clean up

Browse Source 
git-svn-id: trunk@48659 -
This commit is contained in:
mattias 2015-04-06 17:32:06 +00:00
parent 4e2d917900
commit b08d58effc
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/codetools/identcompletiontool.pas
View File

@ -50,7 +50,7 @@ uses
{$ENDIF} {$ENDIF}
Classes, SysUtils, typinfo, FileProcs, CodeTree, CodeAtom, CodeCache, Classes, SysUtils, typinfo, FileProcs, CodeTree, CodeAtom, CodeCache,
CustomCodeTool, CodeToolsStrConsts, KeywordFuncLists, BasicCodeTools, CustomCodeTool, CodeToolsStrConsts, KeywordFuncLists, BasicCodeTools,
LinkScanner, AvgLvlTree, AVL_Tree, CodeToolMemManager, DefineTemplates, SourceChanger, LinkScanner, AvgLvlTree, AVL_Tree, DefineTemplates, SourceChanger,
FindDeclarationTool, PascalReaderTool, PascalParserTool, CodeToolsStructs, FindDeclarationTool, PascalReaderTool, PascalParserTool, CodeToolsStructs,
ExprEval; ExprEval;
@ -815,7 +815,7 @@ var
SamePos: Integer; SamePos: Integer;
l: Integer; l: Integer;
begin begin
Result:=Prefix; Result:=OldPrefix;
FoundFirst:=false; FoundFirst:=false;
AnAVLNode:=FItems.FindLowest; AnAVLNode:=FItems.FindLowest;
while AnAVLNode<>nil do begin while AnAVLNode<>nil do begin
@ -1292,6 +1292,7 @@ var
p: PChar; p: PChar;
begin begin
if not (ilcfStartOfOperand in CurrentIdentifierList.ContextFlags) then exit; if not (ilcfStartOfOperand in CurrentIdentifierList.ContextFlags) then exit;
if CleanPos=0 then ;
if Context.Node.Desc in AllPascalStatements then begin if Context.Node.Desc in AllPascalStatements then begin
// see fpc/compiler/psystem.pp // see fpc/compiler/psystem.pp
@ -3980,7 +3981,7 @@ end;
function TCodeContextInfo.CalcMemSize: PtrUInt; function TCodeContextInfo.CalcMemSize: PtrUInt;
begin begin
Result:=PtrUInt(InstanceSize) Result:=PtrUInt(InstanceSize)
+PtrUInt(TCodeContextInfoItem)*SizeOf(FItems.Count) +{%H-}PtrUInt(TCodeContextInfoItem)*SizeOf(FItems.Count)
+MemSizeString(FProcName); +MemSizeString(FProcName);
end; end;