Martijn Laan vor 4 Monaten
Ursprung
Commit
1dfc8136ba
3 geänderte Dateien mit 4 neuen und 4 gelöschten Zeilen
  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
   except
     begin
     begin
       MessageBox(0, PChar(Format('Could not load %s: %s' {$IFDEF DEBUG} + #13#10#13#10'Did you build the ISCmplr project?' {$ENDIF},
       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);
       Halt(3);
     end;
     end;
   end;
   end;
@@ -222,7 +222,7 @@ begin
   except
   except
     begin
     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},
       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);
       Halt(4);
     end;
     end;
   end;
   end;

+ 1 - 1
Projects/ISCC.dpr

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

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

@@ -508,7 +508,7 @@ begin
     Result := LoadTrustedLibrary(FileName, TrustAllOnDebug);
     Result := LoadTrustedLibrary(FileName, TrustAllOnDebug);
   except
   except
     begin
     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
       Result := 0; //silence compiler
     end;
     end;
   end;
   end;