paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-12 23:09:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

Use writeUInt32LE/writeUInt16LE method to write multi-byte integer in importlib method in t_win unit (as all supported CPUs are little endian)

Browse Source
This commit is contained in:
Pierre Muller 2024-01-21 21:41:27 +00:00
parent 14ab1cfb71
commit 3db060e47a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/systems/t_win.pas
View File

@ -325,14 +325,14 @@ implementation
ordint:=ordnr;
if target_info.system in systems_peoptplus then
begin
objdata.writebytes(ordint,sizeof(ordint));
objdata.writeUInt32LE(ordint);
ordint:=$80000000;
objdata.writebytes(ordint,sizeof(ordint));
objdata.writeUInt32LE(ordint);
end
else
begin
ordint:=ordint or $80000000;
objdata.writebytes(ordint,sizeof(ordint));
objdata.writeUInt32LE(ordint);
end;
end;
end;
@ -359,7 +359,7 @@ implementation
idata6label:=objdata.SymbolDefine(asmprefix+'_'+tostr(idatalabnr),AB_LOCAL,AT_DATA);
absordnr:=Abs(ordnr);
{ write index hint }
objdata.writebytes(absordnr,2);
objdata.writeUInt16LE(absordnr);
if ordnr <= 0 then
objdata.writebytes(afuncname[1],length(afuncname));
objdata.writebytes(emptyint,1);