From 9b7d27cbb6542dbb67f78ce84a72d25f7ca202c8 Mon Sep 17 00:00:00 2001 From: Pascal Packaging Team Date: Mon, 30 Oct 2017 19:32:33 +0000 Subject: [PATCH] fix-IDE-data-file-location =================================================================== Gbp-Pq: Name fix-IDE-data-file-location.patch --- fpcsrc/ide/fpini.pas | 6 +++--- fpcsrc/ide/fpmake.pp | 20 ++++++++++---------- fpcsrc/ide/fptemplt.pas | 1 + 3 files changed, 14 insertions(+), 13 deletions(-) diff --git a/fpcsrc/ide/fpini.pas b/fpcsrc/ide/fpini.pas index f9116835..3cc22261 100644 --- a/fpcsrc/ide/fpini.pas +++ b/fpcsrc/ide/fpini.pas @@ -178,12 +178,12 @@ 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/'+version_string+'/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/'+version_string+'/ide'); If Not ExistsDir(SystemIDEdir) Then - SystemIDEDir:='/usr/lib/fpc/'+version_string+'/ide/text'; + SystemIDEDir:='/usr/lib/fpc/'+version_string+'/ide'; end; IDEdir:=CompleteDir(FExpand('~/.fp')); If Not ExistsDir(IDEdir) Then diff --git a/fpcsrc/ide/fpmake.pp b/fpcsrc/ide/fpmake.pp index 60c437ea..6348f7c3 100644 --- a/fpcsrc/ide/fpmake.pp +++ b/fpcsrc/ide/fpmake.pp @@ -204,16 +204,16 @@ begin T.Directory:='compiler'; T.Install:=false; - P.InstallFiles.Add('fp.ans','$(bininstalldir)'); - P.InstallFiles.Add('gplprog.pt','$(bininstalldir)'); - P.InstallFiles.Add('gplunit.pt','$(bininstalldir)'); - P.InstallFiles.Add('program.pt','$(bininstalldir)'); - P.InstallFiles.Add('unit.pt','$(bininstalldir)'); - P.InstallFiles.Add('cvsco.tdf','$(bininstalldir)'); - P.InstallFiles.Add('cvsdiff.tdf','$(bininstalldir)'); - P.InstallFiles.Add('cvsup.tdf','$(bininstalldir)'); - P.InstallFiles.Add('grep.tdf','$(bininstalldir)'); - P.InstallFiles.Add('tpgrep.tdf','$(bininstalldir)'); + P.InstallFiles.Add('fp.ans','$(baseinstalldir)/ide'); + P.InstallFiles.Add('gplprog.pt','$(baseinstalldir)/ide'); + P.InstallFiles.Add('gplunit.pt','$(baseinstalldir)/ide'); + P.InstallFiles.Add('program.pt','$(baseinstalldir)/ide'); + P.InstallFiles.Add('unit.pt','$(baseinstalldir)/ide'); + P.InstallFiles.Add('cvsco.tdf','$(baseinstalldir)/ide'); + P.InstallFiles.Add('cvsdiff.tdf','$(baseinstalldir)/ide'); + P.InstallFiles.Add('cvsup.tdf','$(baseinstalldir)/ide'); + P.InstallFiles.Add('grep.tdf','$(baseinstalldir)/ide'); + P.InstallFiles.Add('tpgrep.tdf','$(baseinstalldir)/ide'); P.InstallFiles.Add('fp32.ico', [win32, win64], '$(bininstalldir)'); with P.Sources do diff --git a/fpcsrc/ide/fptemplt.pas b/fpcsrc/ide/fptemplt.pas index d22933be..12c1e598 100644 --- a/fpcsrc/ide/fptemplt.pas +++ b/fpcsrc/ide/fptemplt.pas @@ -280,6 +280,7 @@ begin New(Templates, Init(10,10)); ScanDir('.'); ScanDir(IDEDir); + ScanDir(SystemIDEDir); end; -- 2.30.2