Browse Source

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

git-svn-id: trunk@46978 -
Károly Balogh 4 years ago
parent
commit
7c195d2062
1 changed files with 10 additions and 10 deletions
  1. 10 10
      compiler/z80/agz80vasm.pas

+ 10 - 10
compiler/z80/agz80vasm.pas

@@ -123,7 +123,7 @@ unit agz80vasm;
         eextended: extended;
 {$else}
 {$ifdef FPC_SOFT_FPUX80}
-	eextended: floatx80;
+        eextended: floatx80;
 {$endif}
 {$endif cpuextended}
       begin
@@ -143,13 +143,13 @@ unit agz80vasm;
 {$push}{$warn 6018 off} { Unreachable code due to compile time evaluation }
              aitrealconst_s80bit:
                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))
-     	         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))
                 else
-     	         internalerror(2017091901);
-       	      end;
+                  internalerror(2017091901);
+              end;
 {$pop}
 {$endif}
 {$endif cpuextended}
@@ -186,12 +186,12 @@ unit agz80vasm;
 {$push}{$warn 6018 off} { Unreachable code due to compile time evaluation }
           aitrealconst_s80bit:
             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)))
-	      else if sizeof(tai_realconst(hp).value.s80val) = sizeof(single) then
-	        eextended:=float32_to_floatx80(float32(single(tai_realconst(hp).value.s80val)))
-	      else
-	        internalerror(2017091901);
+              else if sizeof(tai_realconst(hp).value.s80val) = sizeof(single) then
+                eextended:=float32_to_floatx80(float32(single(tai_realconst(hp).value.s80val)))
+              else
+                internalerror(2017091901);
               pdata:=@eextended;
             end;
 {$pop}