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

Correct size of asizeint, which is still 4-byte long even when CpuAddrBitSize is 16 as for avr and i8086

Browse Source 
git-svn-id: trunk@42609 -
This commit is contained in:
pierre 2019-08-09 09:29:50 +00:00
parent 39a8d06e8a
commit 651922c2f8
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/utils/ppuutils/ppudump.pp
View File

@ -1990,11 +1990,12 @@ var
end
else if CpuAddrBitSize[cpu]=16 then
begin
var16:=unaligned(psmallint(@tokenbuf[tbi])^);
inc(tbi,sizeof(smallint));
{ ASizeInt is still a longint, see globtype.pas unit }
var32:=unaligned(plongint(@tokenbuf[tbi])^);
inc(tbi,sizeof(longint));
if ppufile.change_endian then
var16:=swapendian(var16);
result:=var16;
var32:=swapendian(var32);
result:=var32;
end
else
begin