paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-21 12:18:20 +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); procedure T386IntelAssembler.WriteTree(p:TAAsmoutput);
const const
allocstr : array[boolean] of string[10]=(' released',' allocated'); 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 var
s, s,
prefix, prefix,
@ -350,7 +354,7 @@ interface
hp:=tai(p.first); hp:=tai(p.first);
while assigned(hp) do while assigned(hp) do
begin begin
if do_line then if do_line and not(hp.typ in nolinetai) then
begin begin
{ load infile } { load infile }
if lastfileinfo.fileindex<>hp.fileinfo.fileindex then if lastfileinfo.fileindex<>hp.fileinfo.fileindex then
@ -599,6 +603,11 @@ interface
{ nasm prefers prefix on a line alone { nasm prefers prefix on a line alone
AsmWriteln(#9#9+prefix); but not masm PM AsmWriteln(#9#9+prefix); but not masm PM
prefix:=''; } prefix:=''; }
if (aktoutputformat = as_i386_masm) then
begin
AsmWriteln(s);
prefix:='';
end;
end end
else else
prefix:= ''; prefix:= '';
@ -739,7 +748,10 @@ ait_stab_function_name : ;
end. end.
{ {
$Log$ $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 * changed to class with common TAssembler also for internal assembler
Revision 1.6 2001/02/20 21:36:39 peter Revision 1.6 2001/02/20 21:36:39 peter