Pierre Muller 1 year ago
parent
commit
f3e03f0483
1 changed files with 14 additions and 14 deletions
  1. 14 14
      compiler/ogelf.pas

+ 14 - 14
compiler/ogelf.pas

@@ -626,18 +626,18 @@ implementation
       type 
       type 
         multi = record
         multi = record
           case integer of
           case integer of
-	  0 : (ba : array[0..sizeof(aint)-1] of byte);
-	  1 : (b : byte);
-	  2 : (w : word);
-	  4 : (d : dword);
-	  8 : (q : qword);
-	end;
+          0 : (ba : array[0..sizeof(aint)-1] of byte);
+          1 : (b : byte);
+          2 : (w : word);
+          4 : (d : dword);
+          8 : (q : qword);
+        end;
 
 
       var
       var
         symaddr : aint;
         symaddr : aint;
-	ba : multi;
-	b : byte;
-	objreloc: TObjRelocation;
+        ba : multi;
+        b : byte;
+        objreloc: TObjRelocation;
       begin
       begin
         if CurrObjSec=nil then
         if CurrObjSec=nil then
           internalerror(200403292);
           internalerror(200403292);
@@ -702,19 +702,19 @@ implementation
                 1 : ba.b:=byte(data);
                 1 : ba.b:=byte(data);
                 2 : begin
                 2 : begin
                       ba.w:=word(data);
                       ba.w:=word(data);
-		      ba.w:=swapendian(ba.w);
+                      ba.w:=swapendian(ba.w);
                     end;
                     end;
                 4 : begin
                 4 : begin
                       ba.d:=dword(data);
                       ba.d:=dword(data);
-		      ba.d:=swapendian(ba.d);
+                      ba.d:=swapendian(ba.d);
                     end;
                     end;
                 8 : begin
                 8 : begin
                       ba.q:=qword(data);
                       ba.q:=qword(data);
-		      ba.q:=swapendian(ba.q);
+                      ba.q:=swapendian(ba.q);
                     end;
                     end;
               else
               else
-		internalerror(2024012501);
-	      end;
+                internalerror(2024012501);
+              end;
             CurrObjSec.write(ba,len);
             CurrObjSec.write(ba,len);
           end
           end
         else
         else