mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-11 17:30:29 +02:00
* don't call swapendian for shortint (it's 1 byte -> upcast to word and then
swapped, which is wrong) git-svn-id: trunk@25949 -
This commit is contained in:
parent
d62b78224a
commit
98a230d20f
@ -2715,9 +2715,6 @@ type
|
||||
|
||||
procedure tscannerfile.tokenwriteshortint(val : shortint);
|
||||
begin
|
||||
{$ifdef FPC_BIG_ENDIAN}
|
||||
val:=swapendian(val);
|
||||
{$endif}
|
||||
recordtokenbuf.write(val,sizeof(shortint));
|
||||
end;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user