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

Add writeInt8/writeUInt8 methods to fix some cross-endian generation issues

Browse Source
This commit is contained in:
Pierre Muller 2024-01-25 14:52:37 +01:00
parent 30f514eb6b
commit ca6fe96360
1 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
compiler/ogbase.pas
View File

@ -343,12 +343,14 @@ interface
constructor create(AList:TFPHashObjectList;const Aname:string;Aalign:longint;Aoptions:TObjSectionOptions);virtual;
destructor destroy;override;
function write(const d;l:TObjSectionOfs):TObjSectionOfs;
procedure writeInt8(v: int8);
procedure writeInt16LE(v: int16);
procedure writeInt16BE(v: int16);
procedure writeInt32LE(v: int32);
procedure writeInt32BE(v: int32);
procedure writeInt64LE(v: int64);
procedure writeInt64BE(v: int64);
procedure writeUInt8(v: uint8);
procedure writeUInt16LE(v: uint16);
procedure writeUInt16BE(v: uint16);
procedure writeUInt32LE(v: uint32);
@ -456,12 +458,14 @@ interface
procedure alloc(len:TObjSectionOfs);
procedure allocalign(len:longint);
procedure writebytes(const Data;len:TObjSectionOfs);
procedure writeInt8(v: int8);
procedure writeInt16LE(v: int16);
procedure writeInt16BE(v: int16);
procedure writeInt32LE(v: int32);
procedure writeInt32BE(v: int32);
procedure writeInt64LE(v: int64);
procedure writeInt64BE(v: int64);
procedure writeUInt8(v: uint8);
procedure writeUInt16LE(v: uint16);
procedure writeUInt16BE(v: uint16);
procedure writeUInt32LE(v: uint32);
@ -1075,6 +1079,12 @@ implementation
end;
procedure TObjSection.writeInt8(v: int8);
begin
write(v,1);
end;
procedure TObjSection.writeInt16LE(v: int16);
begin
{$ifdef FPC_BIG_ENDIAN}
@ -1129,6 +1139,12 @@ implementation
end;
procedure TObjSection.writeUInt8(v: uint8);
begin
write(v,1);
end;
procedure TObjSection.writeUInt16LE(v: uint16);
begin
{$ifdef FPC_BIG_ENDIAN}
@ -1709,6 +1725,12 @@ implementation
end;
procedure TObjData.writeInt8(v: int8);
begin
writebytes(v,1);
end;
procedure TObjData.writeInt16LE(v: int16);
begin
{$ifdef FPC_BIG_ENDIAN}
@ -1763,6 +1785,12 @@ implementation
end;
procedure TObjData.writeUInt8(v: uint8);
begin
writebytes(v,1);
end;
procedure TObjData.writeUInt16LE(v: uint16);
begin
{$ifdef FPC_BIG_ENDIAN}