Browse Source

Converted tabs to spaces in toverflow.inc for consistency

J. Gareth "Curious Kit" Moreton 3 years ago
parent
commit
55d5b11deb
1 changed files with 26 additions and 26 deletions
  1. 26 26
      tests/test/cg/toverflow.inc

+ 26 - 26
tests/test/cg/toverflow.inc

@@ -14,7 +14,7 @@ uses
     var
       Output: LongWord;
     begin
-	  Result := False;
+      Result := False;
       if Subtract then
         Write('Testing 32-bit subtraction of 128 from ', Initial, '... ')
       else
@@ -26,29 +26,29 @@ uses
         else
           Output := Initial + $80;
       
-		Write('no exception... ');
+        Write('no exception... ');
         
-		if OverflowExpected then
+        if OverflowExpected then
           begin
             WriteLn('FAIL: Overflow not triggered then it should have');
             Exit(True);
           end
-		else if Subtract then
-		  begin
+        else if Subtract then
+          begin
             if Output + $80 <> Initial then
               begin
                 WriteLn('FAIL: Result of ', Output, ' was incorrect');
                 Exit(True);
               end;
-		  end
-		else
-		  begin
+          end
+        else
+          begin
             if Output - $80 <> Initial then
               begin
                 WriteLn('FAIL: Result of ', Output, ' was incorrect');
                 Exit(True);
               end;
-		  end
+          end
           
       except
         on E: ERangeError do
@@ -57,8 +57,8 @@ uses
               WriteLn('FAIL: Range error triggered when it shouldn''t have');
               Exit(True);
             end
-		  else
-		    Write('ERangeError triggered... ');
+          else
+            Write('ERangeError triggered... ');
 
         on E: EIntOverflow do
           if not OverflowExpected then 
@@ -66,8 +66,8 @@ uses
               WriteLn('FAIL: Overflow triggered when it shouldn''t have');
               Exit(True);
             end
-		  else
-		    Write('EIntOverflow triggered... ');
+          else
+            Write('EIntOverflow triggered... ');
 
         on E: Exception do
           begin
@@ -83,7 +83,7 @@ uses
     var
       Output: QWord;
     begin
-	  Result := False;
+      Result := False;
       if Subtract then
         Write('Testing 64-bit subtraction of 128 from ', Initial, '... ')
       else
@@ -94,30 +94,30 @@ uses
           Output := Initial - $80
         else
           Output := Initial + $80;
-		  
-		Write('no exception... ');
+          
+        Write('no exception... ');
       
         if OverflowExpected then
           begin
             WriteLn('FAIL: Overflow not triggered then it should have');
             Exit(True);
           end
-		else if Subtract then
-		  begin
+        else if Subtract then
+          begin
             if Output + $80 <> Initial then
               begin
                 WriteLn('FAIL: Result of ', Output, ' was incorrect');
                 Exit(True);
               end;
-		  end
-		else
-		  begin
+          end
+        else
+          begin
             if Output - $80 <> Initial then
               begin
                 WriteLn('FAIL: Result of ', Output, ' was incorrect');
                 Exit(True);
               end;
-		  end
+          end
           
       except
         on E: ERangeError do
@@ -126,8 +126,8 @@ uses
               WriteLn('FAIL: Range error triggered when it shouldn''t have');
               Exit(True);
             end
-		  else
-		    Write('ERangeError triggered... ');
+          else
+            Write('ERangeError triggered... ');
 
         on E: EIntOverflow do
           if not OverflowExpected then 
@@ -135,8 +135,8 @@ uses
               WriteLn('FAIL: Overflow triggered when it shouldn''t have');
               Exit(True);
             end
-		  else
-		    Write('EIntOverflow triggered... ');
+          else
+            Write('EIntOverflow triggered... ');
 
         on E: Exception do
           begin