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

Codetools: enclose a buggy line in IFnDEF in TCodeCache.LoadFile

Browse Source 
git-svn-id: trunk@39055 -
This commit is contained in:
juha 2012-10-12 08:12:07 +00:00
parent d768cb42a7
commit 7da06141ab
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/codetools/codecache.pas
View File

@ -589,8 +589,11 @@ begin
if FilenameIsAbsolute(AFilename) then begin
if Result=nil then begin
// load new buffer
if (not FileExistsCached(AFilename)) then
exit;
{$IFnDEF FixCodeCacheLoadFileBug}
// This line is wrong. The file is not in cache and we should not exit here.
// For some reason removing the line breaks debugger, that's why the IFnDEF
if (not FileExistsCached(AFilename)) then exit;
{$ENDIF}
if DirectoryCachePool<>nil then
DiskFilename:=DirectoryCachePool.FindDiskFilename(AFilename)
else