mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-16 11:09:32 +02:00
IDE: searching in /usr/lib/lazarus/lazversion
git-svn-id: trunk@30025 -
This commit is contained in:
parent
e317ac3780
commit
8fbda6adee
@ -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'
|
||||
);
|
||||
|
@ -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;
|
||||
|
@ -63,7 +63,6 @@ const
|
||||
'android (pre-alpha)'
|
||||
);
|
||||
|
||||
|
||||
{ Config Path Functions }
|
||||
|
||||
{ The primary config path is the local or user specific path.
|
||||
|
Loading…
Reference in New Issue
Block a user