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

codetools: fix compilation with fpc 2.5.1

Browse Source 
git-svn-id: trunk@21276 -
This commit is contained in:
paul 2009-08-18 08:40:42 +00:00
parent 0b5803fbb1
commit ef638bce2e
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/codecompletiontool.pas
View File

@ -1696,7 +1696,7 @@ begin
// remember old path
NewProcPath:=nil;
try
if not CreatePathForNewProc(InsertPos,CleanProcHead,NewProcPath) then exit;
if not CreatePathForNewProc(InsertPos,CleanProcHead,TStrings(NewProcPath)) then exit;
if not SourceChangeCache.Apply then exit;
if not FindJumpPointToNewProc(NewProcPath) then exit;
Result:=true;

2
components/codetools/ppugraph.pas
View File

@ -819,7 +819,7 @@ begin
Member:=TPPUMember(AVLNode.Data);
if not (pmfAutoDisabled in Member.Flags) then begin
List.Clear;
Member.GetMissingUnits(List);
Member.GetMissingUnits(TStrings(List));
if List.Count>0 then begin
DebugLn(['TPPUGroups.AutoDisableUnitsWithBrokenDependencies auto disabling unit ',Member.Unitname,' due to missing units: ',List.DelimitedText]);
AutoDisableMember(Member);