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

powerpc/agppcmpw.pas, TPPCMPWAssembler:

Browse Source 
* WriteTree: implement the ait_realconst case by calling WriteRealConstAsBytes
  * WriteTree: remove commented code handling the old constants

git-svn-id: trunk@33288 -
This commit is contained in:
svenbarth 2016-03-19 12:37:17 +00:00
parent 9d4e322cd0
commit 854c67175a
1 changed files with 1 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
compiler/powerpc/agppcmpw.pas
View File

@ -904,47 +904,9 @@ interface
ait_realconst:
begin
{ update for tai_realconst change, see aggas.pas and commented
old code below }
internalerror(2014050607);
end;
(*
ait_real_64bit :
begin
writer.AsmWriteLn(asminfo^.comment+'value: '+double2str(tai_real_64bit(hp).value));
d:=tai_real_64bit(hp).value;
{ swap the values to correct endian if required }
if source_info.endian <> target_info.endian then
swap64bitarray(t64bitarray(d));
writer.AsmWrite(#9'dc.b'#9);
begin
for i:=0 to 7 do
begin
if i<>0 then
writer.AsmWrite(',');
writer.AsmWrite(tostr(t64bitarray(d)[i]));
end;
end;
writer.AsmLn;
WriteRealConstAsBytes(tai_realconst(hp),#9'dc.b'#9,do_line);
end;
ait_real_32bit :
begin
writer.AsmWriteLn(asminfo^.comment+'value: '+single2str(tai_real_32bit(hp).value));
sin:=tai_real_32bit(hp).value;
{ swap the values to correct endian if required }
if source_info.endian <> target_info.endian then
swap32bitarray(t32bitarray(sin));
writer.AsmWrite(#9'dc.b'#9);
for i:=0 to 3 do
begin
if i<>0 then
writer.AsmWrite(',');
writer.AsmWrite(tostr(t32bitarray(sin)[i]));
end;
writer.AsmLn;
end;
*)
ait_string:
begin
{NOTE When a single quote char is encountered, it is