ALT Linux repos
Group :: Development/Other
RPM: fpc
Main Changelog Spec Patches Sources Download Gear Bugs and FR Repocop
Patch: fpc-fix-path-to-ide.patch
Download
Download
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;