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

small updates

Browse Source 
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
components/codetools/examples
README.txt
ide
todolist.pas

8
components/codetools/examples/README.txt
View File

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

4
ide/todolist.pas
View File

@ -684,10 +684,10 @@ begin
end;
if CurPackage<>nil then begin
// 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
CurPkgFile:=CurPackage.Files[i];
DebugLn(['TfrmTodo.acRefreshExecute AAA2 ',i,' ',CurPkgFile.Filename]);
DebugLn(['TfrmTodo.acRefreshExecute PkgFile ',i,' ',CurPkgFile.Filename]);
if FilenameIsPascalUnit(CurPkgFile.Filename) then
ScanFile(CurPkgFile.Filename);
end;