Репозитории ALT
S: | 3.2.2-alt4 |
D: | 2.2.2-alt1 |
5.1: | 2.2.4-alt4.M50P.1 |
4.1: | 2.2.0-alt3 |
4.0: | 2.2.0-alt2 |
3.0: | 1.0.10-alt1 |
Группа :: Разработка/Прочее
Пакет: fpc
Главная Изменения Спек Патчи Sources Загрузить Gear Bugs and FR Repocop
Патч: fpc-fix-path-to-ide.patch
Скачать
Скачать
Set path to ide without version and text/ subdirectory. Use ~/fpc/ide instead of ~/.fp for personal stuff for IDE.
diff --git a/fpcbuild/fpcsrc/packages/ide/fpini.pas b/fpcbuild/fpcsrc/ide/fpini.pas
index a5b32de..4e3c4e6 100644
--- a/fpcbuild/fpcsrc/packages/ide/fpini.pas
+++ b/fpcbuild/fpcsrc/packages/ide/fpini.pas
@@ -170,14 +170,14 @@ begin
end;
{$endif WINDOWS}
{$else}
- SystemIDEDir:=FExpand(DirOf(system.paramstr(0))+'../lib/fpc/'+version_string+'/ide/text');
+ SystemIDEDir:=FExpand(DirOf(system.paramstr(0))+'../lib/fpc/ide');
If Not ExistsDir(SystemIDEdir) Then
begin
- SystemIDEDir:=FExpand(DirOf(system.paramstr(0))+'../lib64/fpc/'+version_string+'/ide/text');
+ SystemIDEDir:=FExpand(DirOf(system.paramstr(0))+'../lib64/fpc/ide');
If Not ExistsDir(SystemIDEdir) Then
- SystemIDEDir:='/usr/lib/fpc/'+version_string+'/ide/text';
+ SystemIDEDir:='/usr/lib/fpc/ide';
end;
- IDEdir:=CompleteDir(FExpand('~/.fp'));
+ IDEdir:=CompleteDir(FExpand('~/fpc/ide'));
If Not ExistsDir(IDEdir) Then
begin
IDEDir:=SystemIDEDir;