small updates

git-svn-id: trunk@20993 -
This commit is contained in:
mattias 2009-07-28 15:14:49 +00:00
parent 438579ae18
commit 0b32b2d284
2 changed files with 7 additions and 5 deletions

View File

@ -32,7 +32,9 @@ The examples will scan the directories and store the result in a file named
not need to scan. not need to scan.
List of environment variables: List of environment variables:
FPCDIR = path to FPC source directory FPCDIR = path to FPC source directory
PP = path of the Free Pascal compiler. For example /usr/bin/ppc386. PP = path of the Free Pascal compiler. For example /usr/bin/ppc386.
LAZARUSDIR = path of the lazarus sources LAZARUSDIR = path of the lazarus sources
FPCTARGET = FPC target OS like linux, win32, darwin
FPCTARGETCPU = FPC target cpu like i386, x86_64, arm

View File

@ -684,10 +684,10 @@ begin
end; end;
if CurPackage<>nil then begin if CurPackage<>nil then begin
// scan all units of package // scan all units of package
DebugLn(['TfrmTodo.acRefreshExecute AAA1 ',CurPackage.Filename]); DebugLn(['TfrmTodo.acRefreshExecute lpk=',CurPackage.Filename]);
for i:=0 to CurPackage.FileCount-1 do begin for i:=0 to CurPackage.FileCount-1 do begin
CurPkgFile:=CurPackage.Files[i]; CurPkgFile:=CurPackage.Files[i];
DebugLn(['TfrmTodo.acRefreshExecute AAA2 ',i,' ',CurPkgFile.Filename]); DebugLn(['TfrmTodo.acRefreshExecute PkgFile ',i,' ',CurPkgFile.Filename]);
if FilenameIsPascalUnit(CurPkgFile.Filename) then if FilenameIsPascalUnit(CurPkgFile.Filename) then
ScanFile(CurPkgFile.Filename); ScanFile(CurPkgFile.Filename);
end; end;