paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 18:09:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Explicitly typecast (-longint) to longint, otherwise it becomes an int64 on 64-bit targets, causing wrong result of sign(longint). Mantis #29649.

Browse Source 
git-svn-id: trunk@33096 -
This commit is contained in:
sergei 2016-02-14 10:29:11 +00:00
parent 41751bc5b4
commit 161f812113
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/objpas/math.pp
View File

@ -641,8 +641,8 @@ function Sign(const AValue: Integer): TValueSign;inline;
begin begin
result:=TValueSign( result:=TValueSign(
SarLongint(AValue,sizeof(AValue)*8-1) or { gives -1 for negative values, 0 otherwise } SarLongint(AValue,sizeof(AValue)*8-1) or { gives -1 for negative values, 0 otherwise }
(-AValue shr (sizeof(AValue)*8-1)) { gives 1 for positive values, 0 otherwise } (longint(-AValue) shr (sizeof(AValue)*8-1)) { gives 1 for positive values, 0 otherwise }
); );
end; end;