From ef638bce2ed4ddb51bb708ec9d4e225bdb0d1836 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Tue, 18 Aug 2009 08:40:42 +0000
Subject: [PATCH] codetools: fix compilation with fpc 2.5.1

git-svn-id: trunk@21276 -
---
 components/codetools/codecompletiontool.pas | 2 +-
 components/codetools/ppugraph.pas           | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/components/codetools/codecompletiontool.pas b/components/codetools/codecompletiontool.pas
index 97734f51a7..229c8dc6f2 100644
--- a/components/codetools/codecompletiontool.pas
+++ b/components/codetools/codecompletiontool.pas
@@ -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;
diff --git a/components/codetools/ppugraph.pas b/components/codetools/ppugraph.pas
index a7c3526d4d..a2effd27a0 100644
--- a/components/codetools/ppugraph.pas
+++ b/components/codetools/ppugraph.pas
@@ -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);