paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 16:10:16 +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 // remember old path
NewProcPath:=nil; NewProcPath:=nil;
try 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 SourceChangeCache.Apply then exit;
if not FindJumpPointToNewProc(NewProcPath) then exit; if not FindJumpPointToNewProc(NewProcPath) then exit;
Result:=true; Result:=true;

2
components/codetools/ppugraph.pas
View File

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