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

fixed ppw fileext for finddeclaration and fpc 1.9

Browse Source 
git-svn-id: trunk@4926 -
This commit is contained in:
mattias 2003-12-21 14:05:04 +00:00
parent aa76552f75
commit 86e81bf59c
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/codetools/finddeclarationtool.pas
View File

@ -1356,7 +1356,8 @@ begin
writeln('TFindDeclarationTool.FindUnitSource Search Compiled unit in current dir=',CurDir); writeln('TFindDeclarationTool.FindUnitSource Search Compiled unit in current dir=',CurDir);
{$ENDIF} {$ENDIF}
// search compiled unit in current directory // search compiled unit in current directory
if Scanner.InitialValues.IsDefined('WIN32') then if Scanner.InitialValues.IsDefined('WIN32')
and Scanner.InitialValues.IsDefined('VER1_0') then
CompiledSrcExt:='.ppw'; CompiledSrcExt:='.ppw';
CompiledResult:=SearchUnitFileInDir(CurDir,AnUnitName,false); CompiledResult:=SearchUnitFileInDir(CurDir,AnUnitName,false);
if CompiledResult=nil then begin if CompiledResult=nil then begin