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

* fixed overflow in case of op_const64_reg_reg_reg(sub,low(int64),...)

Browse Source 
git-svn-id: trunk@5821 -
This commit is contained in:
Jonas Maebe 2007-01-05 21:27:27 +00:00
parent efd1e86418
commit 85289e80ce
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/powerpc/cgcpu.pas
View File

@ -2248,7 +2248,8 @@ const
end; end;
OP_ADD, OP_SUB: OP_ADD, OP_SUB:
begin begin
if (value < 0) then if (value < 0) and
(value <> low(value)) then
begin begin
if op = OP_ADD then if op = OP_ADD then
op := OP_SUB op := OP_SUB