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

IDE: searching in /usr/lib/lazarus/lazversion

Browse Source 
git-svn-id: trunk@30025 -
This commit is contained in:
mattias 2011-03-27 08:46:37 +00:00
parent e317ac3780
commit 8fbda6adee
3 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/include/unix/lazbaseconf.inc
View File

@ -46,12 +46,13 @@ const
'/vol/src/fpc' '/vol/src/fpc'
); );
DefaultLazarusSrcDirs: array[1..7] of string = ( DefaultLazarusSrcDirs: array[1..8] of string = (
'/usr/share/lazarus', '/usr/share/lazarus',
'/usr/local/share/lazarus', '/usr/local/share/lazarus',
'/usr/local/lib/lazarus', '/usr/local/lib/lazarus',
'/usr/local/lazarus', '/usr/local/lazarus',
'/usr/lib/lazarus', '/usr/lib/lazarus',
'/usr/lib/lazarus/'+{$I version.inc},
'~/pascal/lazarus', '~/pascal/lazarus',
'~/lazarus' '~/lazarus'
); );

3
ide/initialsetupdlgs.pas
View File

@ -322,6 +322,9 @@ begin
if Dirs<>nil then if Dirs<>nil then
for i:=0 to Dirs.Count-1 do for i:=0 to Dirs.Count-1 do
if CheckDir(Dirs[i],Result) then exit; if CheckDir(Dirs[i],Result) then exit;
// search in PATH
end; end;
procedure SetupLazarusDirectory; procedure SetupLazarusDirectory;

1
ide/lazconf.pp
View File

@ -63,7 +63,6 @@ const
'android (pre-alpha)' 'android (pre-alpha)'
); );
{ Config Path Functions } { Config Path Functions }
{ The primary config path is the local or user specific path. { The primary config path is the local or user specific path.