erabo/spiegel-keyman
1
0
Fork 0
mirror of https://github.com/keymanapp/keyman.git synced 2026-10-14 18:07:31 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 9

Merge pull request #8127 from keymanapp/chore/developer/kmcmpdll-src-path

Browse source 
chore(developer): kmcmpdll debug src path
This commit is contained in:
Marc Durdin 2023-02-01 09:42:45 +11:00 • committed by GitHub
commit afbb118a33
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
developer/src/tike/main/RedistFiles.pas
View file

@ -139,12 +139,17 @@ function GetDebugKMCmpDllPath: string;
var
root: string;
const
DevPlatform={$IFDEF WIN64}'x64'{$ELSE}'Win32'{$ENDIF};
DevConfig={$IFDEF DEBUG}'Debug'{$ELSE}'Release'{$ENDIF};
DevSrcCompilerPath = 'developer\src\kmcmpdll\bin\'+DevPlatform+'\'+DevConfig;
DevCompilerPath = 'developer\bin';
begin
if TKeymanPaths.RunningFromSource(root) and
FileExists(root + DevCompilerPath + '\kmcmpdll.dll')
then Result := root + DevCompilerPath
else Result := ExtractFilePath(ParamStr(0));
if TKeymanPaths.RunningFromSource(root) and FileExists(root + DevSrcCompilerPath + '\kmcmpdll.dll') then
Result := root + DevSrcCompilerPath
else if TKeymanPaths.RunningFromSource(root) and FileExists(root + DevCompilerPath + '\kmcmpdll.dll') then
Result := root + DevCompilerPath
else
Result := ExtractFilePath(ParamStr(0));
Result := GetDebugPath('Debug_KMCMPDLLPath', Result);
end;