mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-15 05:39:17 +02:00
small updates
git-svn-id: trunk@20993 -
This commit is contained in:
parent
438579ae18
commit
0b32b2d284
@ -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
|
||||||
|
|
||||||
|
@ -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;
|
||||||
|
Loading…
Reference in New Issue
Block a user