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

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

View File

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

View File

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

View File

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