Browse Source

* First check if call to assembler is succesfull, then check it's exit code.
This is more logical than first checking the exit code. For some mysterious
reason this did not give problems on DOS & Linux. On OS/2 it did.

daniel 27 years ago
parent
commit
aaf3d30f81
1 changed files with 12 additions and 7 deletions
  1. 12 7
      compiler/assemble.pas

+ 12 - 7
compiler/assemble.pas

@@ -162,17 +162,17 @@ begin
      swapvectors;
      swapvectors;
      exec(command,para);
      exec(command,para);
      swapvectors;
      swapvectors;
-     if (dosexitcode<>0) then
+     if (doserror<>0) then
       begin
       begin
-        Message(exec_w_error_while_assembling);
-        callassembler:=false;
+        Message(exec_w_cant_call_assembler);
+        externasm:=true;
         exit;
         exit;
       end
       end
      else
      else
-      if (doserror<>0) then
+      if (dosexitcode<>0) then
        begin
        begin
-         Message(exec_w_cant_call_assembler);
-         externasm:=true;
+        Message(exec_w_error_while_assembling);
+        callassembler:=false;
        end;
        end;
    end;
    end;
   if externasm then
   if externasm then
@@ -450,7 +450,12 @@ end;
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.11  1998-06-08 22:59:43  peter
+  Revision 1.12  1998-07-08 14:58:34  daniel
+  * First check if call to assembler is succesfull, then check it's exit code.
+  This is more logical than first checking the exit code. For some mysterious
+  reason this did not give problems on DOS & Linux. On OS/2 it did.
+
+  Revision 1.11  1998/06/08 22:59:43  peter
     * smartlinking works for win32
     * smartlinking works for win32
     * some defines to exclude some compiler parts
     * some defines to exclude some compiler parts