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

* small fixes to write the extended type correct

Browse Source
This commit is contained in:
florian 1998-08-08 10:19:17 +00:00
parent a3b5867cb8
commit a00e9a92f8
2 changed files with 42 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
compiler/ag386int.pas
View File

@ -67,6 +67,22 @@ unit ag386int;
double2str:=lower(hs); double2str:=lower(hs);
end; end;
function extended2str(e : extended) : string;
var
hs : string;
p : byte;
begin
str(e,hs);
{ nasm expects a lowercase e }
p:=pos('E',hs);
if p>0 then
hs[p]:='e';
p:=pos('+',hs);
if p>0 then
delete(hs,p,1);
extended2str:=lower(hs);
end;
function comp2str(d : bestreal) : string; function comp2str(d : bestreal) : string;
type type
@ -327,7 +343,7 @@ unit ag386int;
end; end;
ait_real_32bit : AsmWriteLn(#9#9'DD'#9+double2str(pai_single(hp)^.value)); ait_real_32bit : AsmWriteLn(#9#9'DD'#9+double2str(pai_single(hp)^.value));
ait_real_64bit : AsmWriteLn(#9#9'DQ'#9+double2str(pai_double(hp)^.value)); ait_real_64bit : AsmWriteLn(#9#9'DQ'#9+double2str(pai_double(hp)^.value));
ait_real_extended : AsmWriteLn(#9#9'DT'#9+double2str(pai_extended(hp)^.value)); ait_real_extended : AsmWriteLn(#9#9'DT'#9+extended2str(pai_extended(hp)^.value));
ait_comp : AsmWriteLn(#9#9'DQ'#9+comp2str(pai_extended(hp)^.value)); ait_comp : AsmWriteLn(#9#9'DQ'#9+comp2str(pai_extended(hp)^.value));
ait_string : begin ait_string : begin
counter := 0; counter := 0;
@ -558,7 +574,10 @@ ait_stab_function_name : ;
end. end.
{ {
$Log$ $Log$
Revision 1.11 1998-06-05 17:46:02 peter Revision 1.12 1998-08-08 10:19:17 florian
* small fixes to write the extended type correct
Revision 1.11 1998/06/05 17:46:02 peter
* tp doesn't like comp() typecast * tp doesn't like comp() typecast
Revision 1.10 1998/05/25 17:11:36 pierre Revision 1.10 1998/05/25 17:11:36 pierre

23
compiler/ag386nsm.pas
View File

@ -71,6 +71,22 @@ unit ag386nsm;
double2str:=lower(hs); double2str:=lower(hs);
end; end;
function extended2str(e : extended) : string;
var
hs : string;
p : byte;
begin
str(e,hs);
{ nasm expects a lowercase e }
p:=pos('E',hs);
if p>0 then
hs[p]:='e';
p:=pos('+',hs);
if p>0 then
delete(hs,p,1);
extended2str:=lower(hs);
end;
function comp2str(d : bestreal) : string; function comp2str(d : bestreal) : string;
type type
@ -322,7 +338,7 @@ unit ag386nsm;
end; end;
ait_real_32bit : AsmWriteLn(#9#9'DD'#9+double2str(pai_single(hp)^.value)); ait_real_32bit : AsmWriteLn(#9#9'DD'#9+double2str(pai_single(hp)^.value));
ait_real_64bit : AsmWriteLn(#9#9'DQ'#9+double2str(pai_double(hp)^.value)); ait_real_64bit : AsmWriteLn(#9#9'DQ'#9+double2str(pai_double(hp)^.value));
ait_real_extended : AsmWriteLn(#9#9'DD'#9+double2str(pai_extended(hp)^.value)); ait_real_extended : AsmWriteLn(#9#9'DT'#9+extended2str(pai_extended(hp)^.value));
ait_comp : AsmWriteLn(#9#9'DQ'#9+comp2str(pai_extended(hp)^.value)); ait_comp : AsmWriteLn(#9#9'DQ'#9+comp2str(pai_extended(hp)^.value));
ait_string : begin ait_string : begin
counter := 0; counter := 0;
@ -545,7 +561,10 @@ ait_stab_function_name : ;
end. end.
{ {
$Log$ $Log$
Revision 1.4 1998-06-05 17:46:03 peter Revision 1.5 1998-08-08 10:19:18 florian
* small fixes to write the extended type correct
Revision 1.4 1998/06/05 17:46:03 peter
* tp doesn't like comp() typecast * tp doesn't like comp() typecast
Revision 1.3 1998/05/28 17:24:27 peter Revision 1.3 1998/05/28 17:24:27 peter