* masm -al fix (merged)

compiler/i386/ag386int.pas

@@ -325,6 +325,10 @@ interface
     procedure T386IntelAssembler.WriteTree(p:TAAsmoutput);
     const
       allocstr : array[boolean] of string[10]=(' released',' allocated');
+      nolinetai =[ait_label,
+                  ait_regalloc,ait_tempalloc,
+                  ait_stabn,ait_stabs,ait_section,
+                  ait_cut,ait_marker,ait_align,ait_stab_function_name];
     var
       s,
       prefix,
@@ -350,7 +354,7 @@ interface
       hp:=tai(p.first);
       while assigned(hp) do
        begin
-         if do_line then
+         if do_line and not(hp.typ in nolinetai) then
            begin
            { load infile }
              if lastfileinfo.fileindex<>hp.fileinfo.fileindex then
@@ -599,6 +603,11 @@ interface
                           { nasm prefers prefix on a line alone
                           AsmWriteln(#9#9+prefix); but not masm PM
                           prefix:=''; }
+                          if (aktoutputformat = as_i386_masm) then
+                             begin
+                               AsmWriteln(s);
+                               prefix:='';
+                             end;
                         end
                        else
                         prefix:= '';
@@ -739,7 +748,10 @@ ait_stab_function_name : ;
 end.
 {
   $Log$
-  Revision 1.7  2001-03-05 21:39:11  peter
+  Revision 1.8  2001-03-25 12:30:17  peter
+    * masm -al fix (merged)
+
+  Revision 1.7  2001/03/05 21:39:11  peter
     * changed to class with common TAssembler also for internal assembler
 
   Revision 1.6  2001/02/20 21:36:39  peter