Martijn Laan 4 months ago
parent
commit
1dfc8136ba
3 changed files with 4 additions and 4 deletions
  1. 2 2
      Projects/Compil32.dpr
  2. 1 1
      Projects/ISCC.dpr
  3. 1 1
      Projects/Src/Compiler.SetupCompiler.pas

+ 2 - 2
Projects/Compil32.dpr

@@ -211,7 +211,7 @@ begin
   except
     begin
       MessageBox(0, PChar(Format('Could not load %s: %s' {$IFDEF DEBUG} + #13#10#13#10'Did you build the ISCmplr project?' {$ENDIF},
-        [ISCmplrDLL, AddPeriod(GetExceptMessage)])), nil, MB_OK or MB_ICONSTOP);
+        [ISCmplrDLL, GetExceptMessage])), nil, MB_OK or MB_ICONSTOP);
       Halt(3);
     end;
   end;
@@ -222,7 +222,7 @@ begin
   except
     begin
       MessageBox(0, PChar(Format('Could not load %s: %s' {$IFDEF DEBUG} + #13#10#13#10'Did you run Projects\Bin\synch-isfiles.bat as instructed in README.md?' {$ENDIF},
-        [IsscintDLL, AddPeriod(GetExceptMessage)])), nil, MB_OK or MB_ICONSTOP);
+        [IsscintDLL, GetExceptMessage])), nil, MB_OK or MB_ICONSTOP);
       Halt(4);
     end;
   end;

+ 1 - 1
Projects/ISCC.dpr

@@ -569,7 +569,7 @@ begin
     InitISCmplrLibrary;
   except
     begin
-      WriteStdErr(Format('Could not load %s: %s', [ISCmplrDLL, AddPeriod(GetExceptMessage)]), True);
+      WriteStdErr(Format('Could not load %s: %s', [ISCmplrDLL, GetExceptMessage]), True);
       Halt(1);
     end;
   end;

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

@@ -508,7 +508,7 @@ begin
     Result := LoadTrustedLibrary(FileName, TrustAllOnDebug);
   except
     begin
-      TSetupCompiler.AbortCompileFmt('Failed to load %s: %s', [PathExtractName(Filename), AddPeriod(GetExceptMessage)]);
+      TSetupCompiler.AbortCompileFmt('Failed to load %s: %s', [PathExtractName(Filename), GetExceptMessage]);
       Result := 0; //silence compiler
     end;
   end;