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

Fix gettokenbufshortint, as shortint is one byte long, not two

Browse Source 
git-svn-id: trunk@42596 -
This commit is contained in:
pierre 2019-08-06 21:32:51 +00:00
parent 0c4d02ff9c
commit 843a379cc2
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1929,13 +1929,11 @@ var
function gettokenbufshortint : shortint;
var
var16 : shortint;
var8 : shortint;
begin
var16:=unaligned(pshortint(@tokenbuf[tbi])^);
var8:=pshortint(@tokenbuf[tbi])^;
inc(tbi,sizeof(shortint));
if ppufile.change_endian then
var16:=swapendian(var16);
result:=var16;
result:=var8;
end;
procedure tokenreadset(var b;size : longint);