From 0bf4bf0d2a554328207ee1bf9fd71583eef8514a Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Sat, 10 Dec 2011 18:49:27 +0000
Subject: [PATCH] Codetools: initialize string result value in
 TPascalReaderTool.ExtractUsedUnitNameAtCursor. It broke at least
 TFindDeclarationTool.FindUnitInUsesSection.

git-svn-id: trunk@34092 -
---
 components/codetools/pascalreadertool.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/components/codetools/pascalreadertool.pas b/components/codetools/pascalreadertool.pas
index 047cf727c4..298521fbef 100644
--- a/components/codetools/pascalreadertool.pas
+++ b/components/codetools/pascalreadertool.pas
@@ -2555,6 +2555,7 @@ end;
 
 function TPascalReaderTool.ExtractUsedUnitNameAtCursor(InFilename: PAnsiString): string;
 begin
+  Result:='';
   if InFilename<>nil then
     InFilename^:='';
   while CurPos.Flag=cafWord do begin