paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 13:49:29 +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
result:=TValueSign(
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 }
SarLongint(AValue,sizeof(AValue)*8-1) or { gives -1 for negative values, 0 otherwise }
(longint(-AValue) shr (sizeof(AValue)*8-1)) { gives 1 for positive values, 0 otherwise }
);
end;