paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 11:29:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* forgotten commit of r3566

Browse Source 
git-svn-id: trunk@3569 -
This commit is contained in:
florian 2006-05-18 20:43:16 +00:00
parent 1e3352a350
commit f27fa0d24f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/cgobj.pas
View File

@ -958,7 +958,7 @@ implementation
{ division by 1 returns result }
if a = 1 then
op:=OP_NONE
else if ispowerof2(int64(a), powerval) then
else if ispowerof2(int64(a), powerval) and not(cs_check_overflow in aktlocalswitches) then
begin
a := powerval;
op:= OP_SHR;
@ -976,7 +976,7 @@ implementation
else
if a=0 then
op:=OP_MOVE
else if ispowerof2(int64(a), powerval) then
else if ispowerof2(int64(a), powerval) and not(cs_check_overflow in aktlocalswitches) then
begin
a := powerval;
op:= OP_SHL;