paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-01 13:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* write double # before float constants when -al is turned on

Browse Source 
else some gas versions interpret it as line number
This commit is contained in:
florian 2002-08-31 16:05:17 +00:00
parent 5e60724d23
commit fb5e694dca
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/aggas.pas
View File

@ -473,7 +473,7 @@ var
ait_real_80bit : ait_real_80bit :
begin begin
if do_line then if do_line then
AsmWriteLn(target_asm.comment+extended2str(tai_real_80bit(hp).value)); AsmWriteLn(target_asm.comment+target_asm.comment+extended2str(tai_real_80bit(hp).value));
{ Make sure e is a extended type, bestreal could be { Make sure e is a extended type, bestreal could be
a different type (bestreal) !! (PFV) } a different type (bestreal) !! (PFV) }
e:=tai_real_80bit(hp).value; e:=tai_real_80bit(hp).value;
@ -490,7 +490,7 @@ var
ait_real_64bit : ait_real_64bit :
begin begin
if do_line then if do_line then
AsmWriteLn(target_asm.comment+double2str(tai_real_64bit(hp).value)); AsmWriteLn(target_asm.comment+target_asm.comment+double2str(tai_real_64bit(hp).value));
d:=tai_real_64bit(hp).value; d:=tai_real_64bit(hp).value;
{ swap the values to correct endian if required } { swap the values to correct endian if required }
if source_info.endian <> target_info.endian then if source_info.endian <> target_info.endian then
@ -508,7 +508,7 @@ var
ait_real_32bit : ait_real_32bit :
begin begin
if do_line then if do_line then
AsmWriteLn(target_asm.comment+single2str(tai_real_32bit(hp).value)); AsmWriteLn(target_asm.comment+target_asm.comment+single2str(tai_real_32bit(hp).value));
sin:=tai_real_32bit(hp).value; sin:=tai_real_32bit(hp).value;
{ swap the values to correct endian if required } { swap the values to correct endian if required }
if source_info.endian <> target_info.endian then if source_info.endian <> target_info.endian then
@ -526,7 +526,7 @@ var
ait_comp_64bit : ait_comp_64bit :
begin begin
if do_line then if do_line then
AsmWriteLn(target_asm.comment+extended2str(tai_comp_64bit(hp).value)); AsmWriteLn(target_asm.comment+target_asm.comment+extended2str(tai_comp_64bit(hp).value));
AsmWrite(#9'.byte'#9); AsmWrite(#9'.byte'#9);
{$ifdef FPC} {$ifdef FPC}
co:=comp(tai_comp_64bit(hp).value); co:=comp(tai_comp_64bit(hp).value);
@ -800,7 +800,11 @@ var
end. end.
{ {
$Log$ $Log$
Revision 1.11 2002-08-20 16:55:38 peter Revision 1.12 2002-08-31 16:05:17 florian
* write double # before float constants when -al is turned on
else some gas versions interpret it as line number
Revision 1.11 2002/08/20 16:55:38 peter
* don't write (stabs)line info when inlining a procedure * don't write (stabs)line info when inlining a procedure
Revision 1.10 2002/08/18 22:16:14 florian Revision 1.10 2002/08/18 22:16:14 florian