paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 12:25:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed TSingleRec.SetSign on 16 and 8-bit CPUs

Browse Source 
git-svn-id: trunk@29120 -
This commit is contained in:
nickysn 2014-11-23 14:14:03 +00:00
parent 5fcb93234b
commit 4fe1ec9c51
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/genmath.inc
View File

@ -2173,7 +2173,7 @@ function TSingleRec.GetSign : Boolean;
procedure TSingleRec.SetSign(s : Boolean); procedure TSingleRec.SetSign(s : Boolean);
begin begin
Data:=(Data and $7fffffff) or (ord(s) shl 31); Data:=(Data and $7fffffff) or (DWord(ord(s)) shl 31);
end; end;