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

z80: cleaned up some tabs vs. spaces indentation mess in the vasm writer. no functional change.

Browse Source 
git-svn-id: trunk@46978 -
This commit is contained in:
Károly Balogh 2020-09-27 22:52:06 +00:00
parent bb92fbafa0
commit 7c195d2062
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/z80/agz80vasm.pas
View File

@ -123,7 +123,7 @@ unit agz80vasm;
eextended: extended; eextended: extended;
{$else} {$else}
{$ifdef FPC_SOFT_FPUX80} {$ifdef FPC_SOFT_FPUX80}
eextended: floatx80; eextended: floatx80;
{$endif} {$endif}
{$endif cpuextended} {$endif cpuextended}
begin begin
@ -143,13 +143,13 @@ unit agz80vasm;
{$push}{$warn 6018 off} { Unreachable code due to compile time evaluation } {$push}{$warn 6018 off} { Unreachable code due to compile time evaluation }
aitrealconst_s80bit: aitrealconst_s80bit:
begin begin
if sizeof(tai_realconst(hp).value.s80val) = sizeof(double) then if sizeof(tai_realconst(hp).value.s80val) = sizeof(double) then
writer.AsmWriteLn(asminfo^.comment+'value: '+double2str(tai_realconst(hp).value.s80val)) writer.AsmWriteLn(asminfo^.comment+'value: '+double2str(tai_realconst(hp).value.s80val))
else if sizeof(tai_realconst(hp).value.s80val) = sizeof(single) then else if sizeof(tai_realconst(hp).value.s80val) = sizeof(single) then
writer.AsmWriteLn(asminfo^.comment+'value: '+single2str(tai_realconst(hp).value.s80val)) writer.AsmWriteLn(asminfo^.comment+'value: '+single2str(tai_realconst(hp).value.s80val))
else else
internalerror(2017091901); internalerror(2017091901);
end; end;
{$pop} {$pop}
{$endif} {$endif}
{$endif cpuextended} {$endif cpuextended}
@ -186,12 +186,12 @@ unit agz80vasm;
{$push}{$warn 6018 off} { Unreachable code due to compile time evaluation } {$push}{$warn 6018 off} { Unreachable code due to compile time evaluation }
aitrealconst_s80bit: aitrealconst_s80bit:
begin begin
if sizeof(tai_realconst(hp).value.s80val) = sizeof(double) then if sizeof(tai_realconst(hp).value.s80val) = sizeof(double) then
eextended:=float64_to_floatx80(float64(double(tai_realconst(hp).value.s80val))) eextended:=float64_to_floatx80(float64(double(tai_realconst(hp).value.s80val)))
else if sizeof(tai_realconst(hp).value.s80val) = sizeof(single) then else if sizeof(tai_realconst(hp).value.s80val) = sizeof(single) then
eextended:=float32_to_floatx80(float32(single(tai_realconst(hp).value.s80val))) eextended:=float32_to_floatx80(float32(single(tai_realconst(hp).value.s80val)))
else else
internalerror(2017091901); internalerror(2017091901);
pdata:=@eextended; pdata:=@eextended;
end; end;
{$pop} {$pop}