Changeset 83 for trunk/UTarget.pas

Timestamp:

Aug 4, 2017, 9:11:00 AM (7 years ago)

Author:

chronos

Message:

• Added: Show meaningful error message if target compiler or executor doesn't exist.

File:

• trunk/UTarget.pas (modified) (4 diffs)

trunk/UTarget.pas

@@ -144 +144 @@
 resourcestring
   SCompilerNotFound = 'Compiler "%s" not found';
+  SExecutorNotFound = 'Executor "%s" not found';
   SCompiledFileNotFound = 'Program compiled file "%s" not found';
 
@@ -420 +421 @@
     Free;
   end;
-  if CompilerPath <> '' then begin
-    if FileExistsUTF8(CompilerPath) then
+  if FileExistsUTF8(CompilerPath) then
     try
       Process := TProcess.Create(nil);
@@ -441 +441 @@
       Process.Free;
     end else raise Exception.Create(Format(SCompilerNotFound, [CompilerPath]));
-  end;
 end;
 
@@ -456 +455 @@
     'compiled' + DirectorySeparator + Name + DirectorySeparator +
     ExtractFileNameOnly(ProjectFileName) + RunExtension;
+  if not FileExistsUTF8(ExecutorPath) then
+    raise Exception.Create(Format(SExecutorNotFound, [ExecutorPath]));
   if FileExistsUTF8(CompiledFile) then
   try