Browse Source

Don't check ISCmplr.dll and ISPP.dll on Debug since the required postbuild events complicate building from the IDE using a fresh checkout which is undesirable.

Martijn Laan 5 months ago
parent
commit
a52c1462cf

+ 0 - 2
Projects/ISCmplr.dproj

@@ -73,8 +73,6 @@
         <DCC_ExeOutput>Bin</DCC_ExeOutput>
         <Debugger_HostApplication>Bin\Compil32.exe</Debugger_HostApplication>
         <Debugger_RunParams>Debug.iss</Debugger_RunParams>
-        <PostBuildEvent><![CDATA[..\Files\ISSigTool.exe sign $(OUTPUTPATH)
-$(PostBuildEvent)]]></PostBuildEvent>
     </PropertyGroup>
     <ItemGroup>
         <DelphiCompile Include="$(MainSource)">

+ 0 - 2
Projects/ISPP.dproj

@@ -71,8 +71,6 @@
         <DCC_ExeOutput>Bin</DCC_ExeOutput>
         <Debugger_HostApplication>Bin\Compil32.exe</Debugger_HostApplication>
         <Debugger_RunParams>Debug.iss</Debugger_RunParams>
-        <PostBuildEvent><![CDATA[..\Files\ISSigTool.exe sign $(OUTPUTPATH)
-$(PostBuildEvent)]]></PostBuildEvent>
     </PropertyGroup>
     <ItemGroup>
         <DelphiCompile Include="$(MainSource)">

+ 1 - 1
Projects/Src/Compiler.SetupCompiler.pas

@@ -512,7 +512,7 @@ begin
 {$IFNDEF STATICPREPROC}
   var Filename := CompilerDir + 'ISPP.dll';
   if NewFileExists(Filename) then begin
-    if TrustedFileExists(Filename) then begin
+    if {$IFNDEF DEBUG} TrustedFileExists(Filename) {$ELSE} True {$ENDIF} then begin
       var M := SafeLoadLibrary(Filename, SEM_NOOPENFILEERRORBOX);
       if M = 0 then
         AbortCompileFmt('Failed to load ISPP.dll (%d)', [GetLastError]);

+ 2 - 2
Projects/Src/Shared.CompilerInt.pas

@@ -34,11 +34,11 @@ implementation
 uses
   Windows,
   SysUtils,
-  PathFunc, TrustFunc;
+  PathFunc {$IFNDEF DEBUG}, TrustFunc{$ENDIF};
 
 initialization
   var FileName := AddBackslash(PathExtractPath(ParamStr(0))) + ISCmplrDLL;
-  if TrustedFileExists(FileName) then begin
+  if {$IFNDEF DEBUG} TrustedFileExists(FileName) {$ELSE} True {$ENDIF} then begin
     ISCmplrLibrary := SafeLoadLibrary(PChar(FileName), SEM_NOOPENFILEERRORBOX);
     if ISCmplrLibrary <> 0 then begin
       ISDllCompileScript := GetProcAddress(ISCmplrLibrary, 'ISDllCompileScriptW');