paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 05:28:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix tabs

Browse Source
This commit is contained in:
Pierre Muller 2024-01-25 17:58:06 +01:00
parent 1d1e070ad2
commit f3e03f0483
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
compiler/ogelf.pas
View File

@ -626,18 +626,18 @@ implementation
type
multi = record
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
symaddr : aint;
ba : multi;
b : byte;
objreloc: TObjRelocation;
ba : multi;
b : byte;
objreloc: TObjRelocation;
begin
if CurrObjSec=nil then
internalerror(200403292);
@ -702,19 +702,19 @@ implementation
1 : ba.b:=byte(data);
2 : begin
ba.w:=word(data);
ba.w:=swapendian(ba.w);
ba.w:=swapendian(ba.w);
end;
4 : begin
ba.d:=dword(data);
ba.d:=swapendian(ba.d);
ba.d:=swapendian(ba.d);
end;
8 : begin
ba.q:=qword(data);
ba.q:=swapendian(ba.q);
ba.q:=swapendian(ba.q);
end;
else
internalerror(2024012501);
end;
internalerror(2024012501);
end;
CurrObjSec.write(ba,len);
end
else