* bug with datalabel corrected

  + assembler errors better commented
  * one nested record crash removed

compiler/assemble.pas

@@ -153,14 +153,14 @@ begin
      swapvectors;
      if (doserror<>0) then
       begin
-        Message(exec_w_cant_call_assembler);
+        Message1(exec_w_cant_call_assembler,tostr(doserror));
+        aktglobalswitches:=aktglobalswitches+[cs_asm_extern];
         callassembler:=false;
       end
      else
       if (dosexitcode<>0) then
        begin
-        Message(exec_w_error_while_assembling);
-        aktglobalswitches:=aktglobalswitches+[cs_asm_extern];
+        Message1(exec_w_error_while_assembling,tostr(dosexitcode));
         callassembler:=false;
        end;
    end;
@@ -446,7 +446,12 @@ end;
 end.
 {
   $Log$
-  Revision 1.19  1998-08-26 10:06:34  peter
+  Revision 1.20  1998-09-04 17:34:20  pierre
+    * bug with datalabel corrected
+    + assembler errors better commented
+    * one nested record crash removed
+
+  Revision 1.19  1998/08/26 10:06:34  peter
     * reduce amount of asmfiles generated
     * no stabs are written in writefilelineinfo when debuginfo is off
 

compiler/comphook.pas

@@ -211,13 +211,6 @@ begin
            else
              hs:=status.currentsource+'('+tostr(status.currentline)+') '+hs;
          end;
-{$ifdef Debug}
-      end
-     else
-      begin
-         if (Level<=V_ShowFile) then
-           hs:='No line '+hs;
-{$endif Debug}
       end;
    { add the message to the text }
      hs:=hs+s;
@@ -251,7 +244,12 @@ end;
 end.
 {
   $Log$
-  Revision 1.6  1998-09-01 17:37:59  peter
+  Revision 1.7  1998-09-04 17:34:21  pierre
+    * bug with datalabel corrected
+    + assembler errors better commented
+    * one nested record crash removed
+
+  Revision 1.6  1998/09/01 17:37:59  peter
     * nicer output when column=0
 
   Revision 1.5  1998/08/18 15:11:51  peter