diff --git a/public/gitrevision.txt b/public/gitrevision.txt index e2bc4105..0614b048 100644 --- a/public/gitrevision.txt +++ b/public/gitrevision.txt @@ -1 +1 @@ -[master]darwin_amd64_crossbins_all-2915(62e43ed) +[master]darwin_amd64_crossbins_all-2916(23d86e6) diff --git a/sources/gitclient.pas b/sources/gitclient.pas index 7444af63..75bd74cc 100644 --- a/sources/gitclient.pas +++ b/sources/gitclient.pas @@ -199,8 +199,6 @@ procedure TGitClient.SetDesiredTag(AValue: string); ExportOnly:=(Length(DesiredTag)>0); end; - - procedure TGitClient.CheckOut(UseForce:boolean=false); // SVN checkout is more or less equivalent to git clone var @@ -451,9 +449,17 @@ procedure TGitClient.Init; // Message: "SSL certificate problem: self signed certificate in certificate chain" if (Pos('SSL certificate problem',Output)>0) then begin - // Disable SSL verification - Command := ' config --local http.sslVerify false'; - FReturnCode := TInstaller(Parent).ExecuteCommandInDir(DoubleQuoteIfNeeded(FRepoExecutable) + Command, LocalRepository, Output, Verbose); + // Never disable ssl on these sites !! + if (AnsiStartsStr('https://gitlab.com',Repository) OR AnsiStartsStr('https://github.com',Repository) OR AnsiContainsStr(Repository,'git.sourceforge.net')) then + begin + FReturnCode := AbortedExitCode; + exit; + end + else + begin + Command := ' config --local http.sslVerify false'; + FReturnCode := TInstaller(Parent).ExecuteCommandInDir(DoubleQuoteIfNeeded(FRepoExecutable) + Command, LocalRepository, Output, Verbose); + end; end; end; end; diff --git a/sources/installerlazarus.pas b/sources/installerlazarus.pas index 47202110..a8114a7f 100644 --- a/sources/installerlazarus.pas +++ b/sources/installerlazarus.pas @@ -2688,6 +2688,7 @@ function CreateQT5Symlinks(aApp:string):boolean; {$IF DEFINED(LCLQt5) OR DEFINED(LCLQt6)} // Adjust fpc.cfg + // Windows to be done FPCConfig:=TStringList.Create; try FPCConfig.LoadFromFile(GetFPCConfigPath(FPCCONFIGFILENAME)); @@ -2718,25 +2719,33 @@ function CreateQT5Symlinks(aApp:string):boolean; QTConfig.Append('#IFNDEF FPC_CROSSCOMPILING'); QTConfig.Append('# Adding some standard paths for QT locations ... bit dirty, but works ... ;-)'); {$ifdef Darwin} - ConfigText.Append('-Fl'+IncludeTrailingPathDelimiter(BaseDirectory)+'Frameworks'); - ConfigText.Append('-k-F'+IncludeTrailingPathDelimiter(BaseDirectory)+'Frameworks'); - //For runtime - ConfigText.Append('-k-rpath'); - ConfigText.Append('-k@executable_path/../Frameworks'); - ConfigText.Append('-k-rpath'); - ConfigText.Append('-k'+IncludeTrailingPathDelimiter(BaseDirectory)+'Frameworks'); - {$else Darwin} + s:=IncludeTrailingPathDelimiter(BaseDirectory)+'Frameworks'; + if DirectoryExists(s) then + begin + QTConfig.Append('-Fl'+s); + QTConfig.Append('-k-F'+s); + QTConfig.Append('-k-rpath'); + QTConfig.Append('-k'+s); + //For Lazarus runtime + QTConfig.Append('-k-rpath'); + QTConfig.Append('-k@executable_path/../Frameworks'); + end; + //For any runtime + QTConfig.Append('-k-rpath'); + QTConfig.Append('-k@executable_path'); + {$endif Darwin} {$ifdef Unix} if (QTTrickeryNeeded AND (FileExists(IncludeTrailingPathDelimiter(InstallDirectory)+QTLibs))) then QTConfig.Append('-Fl'+InstallDirectory) else if LibWhich(QTLibs,s) then QTConfig.Append('-Fl'+ExcludeTrailingPathDelimiter(s)); - //For runtime + {$ifndef Darwin} + //For any runtime QTConfig.Append('-k-rpath'); QTConfig.Append('-k$ORIGIN'); - {$endif Unix} {$endif Darwin} + {$endif Unix} QTConfig.Append('#ENDIF'); QTConfig.Append(QTMAGICEND); QTConfig.Append(''); diff --git a/sources/updeluxe/fpcupdeluxemainform.pas b/sources/updeluxe/fpcupdeluxemainform.pas index b5bab6b4..004ff698 100644 --- a/sources/updeluxe/fpcupdeluxemainform.pas +++ b/sources/updeluxe/fpcupdeluxemainform.pas @@ -4518,8 +4518,8 @@ function TForm1.GetFPCUPSettings(IniDirectory:string):boolean; procedure TForm1.GetSystemInfo; var Cores,MemAvailable,SwapAvailable:DWord; - {$ifdef LCLQT5} - QT5LibraryLocation:string; + {$IF DEFINED(LCLQt5) OR DEFINED(LCLQt6)} + QTLibraryLocation:string; {$endif} begin {$ifdef READER} @@ -4546,11 +4546,16 @@ procedure TForm1.GetSystemInfo; if IsLinuxMUSL then AddMessage('Seems we are running on a MUSL Linux.'); {$ENDIF LINUX} + {$IF DEFINED(LCLQt5) OR DEFINED(LCLQt6)} {$ifdef LCLQT5} - if LibWhich(LIBQT5,QT5LibraryLocation) then - AddMessage('Found system wide '+LIBQT5+' in '+QT5LibraryLocation+'. And that will be used.') + if LibWhich(LIBQT5,QTLibraryLocation) then + {$endif} + {$ifdef LCLQT6} + if LibWhich(LIBQT6,QTLibraryLocation) then + {$endif} + AddMessage('Found system wide libQTPas in '+QTLibraryLocation+'. And that will be used.') else - AddMessage('No system wide '+LIBQT5+' found. Some QT5 trickery will be used'); + AddMessage('No system wide libQTPas found. Some QT trickery will be used'); {$endif} Cores:=GetLogicalCpuCount;