diff options
| author | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2014-11-23 14:14:03 +0000 |
|---|---|---|
| committer | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2014-11-23 14:14:03 +0000 |
| commit | 0a5c32c013a5abf4d36fb2e4123ca77735b73de2 (patch) | |
| tree | 6c9a3426b6ddf806eec476f2a8508f609422e327 /rtl/inc | |
| parent | b1b6213d7858c007991df2112e8ab7e1dd07b431 (diff) | |
| download | fpc-0a5c32c013a5abf4d36fb2e4123ca77735b73de2.tar.gz | |
* fixed TSingleRec.SetSign on 16 and 8-bit CPUs
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@29120 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'rtl/inc')
| -rw-r--r-- | rtl/inc/genmath.inc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rtl/inc/genmath.inc b/rtl/inc/genmath.inc index d1cf222a65..54f385c7cf 100644 --- a/rtl/inc/genmath.inc +++ b/rtl/inc/genmath.inc @@ -2173,7 +2173,7 @@ function TSingleRec.GetSign : Boolean; procedure TSingleRec.SetSign(s : Boolean); begin - Data:=(Data and $7fffffff) or (ord(s) shl 31); + Data:=(Data and $7fffffff) or (DWord(ord(s)) shl 31); end; |