paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-05-30 17:22:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* masm -al fix (merged)

Browse Source
This commit is contained in:
peter 2001-03-25 12:30:17 +00:00
parent d65195ed90
commit e4f647f801
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/i386/ag386int.pas
View File

@ -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