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

* fix possible issues due to new behaviour of constant shifting

Browse Source 
git-svn-id: trunk@26310 -
This commit is contained in:
florian 2013-12-29 12:21:25 +00:00
parent 34cde7a07a
commit be3749301f
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/generic.inc
View File

@ -1345,7 +1345,7 @@ end;
HandleErrorAddrFrameInd(215,get_pc_addr,get_frame); HandleErrorAddrFrameInd(215,get_pc_addr,get_frame);
end; end;
{ when bootstrapping, we forget about overflow checking for qword :) } { when bootstrapping, we forget about overflow checking for qword :) }
f1overflowed:=f1overflowed or ((f1 and (1 shl 31))<>0); f1overflowed:=f1overflowed or ((f1 and (dword(1) shl 31))<>0);
f1:=f1 shl 1; f1:=f1 shl 1;
bitpos:=bitpos shl 1; bitpos:=bitpos shl 1;
end; end;
@ -1383,7 +1383,7 @@ function fpc_div_dword(n,z : dword) : dword; [public,alias: 'FPC_DIV_DWORD']; co
if z>=n then if z>=n then
begin begin
z:=z-n; z:=z-n;
result:=result+dword(1 shl shift); result:=result+dword(dword(1) shl shift);
end; end;
n:=n shr 1; n:=n shr 1;
end; end;

2
rtl/inc/int64.inc
View File

@ -284,7 +284,7 @@
HandleErrorAddrFrameInd(215,get_pc_addr,get_frame); HandleErrorAddrFrameInd(215,get_pc_addr,get_frame);
end; end;
{ when bootstrapping, we forget about overflow checking for qword :) } { when bootstrapping, we forget about overflow checking for qword :) }
f1overflowed:=f1overflowed or ((f1 and (1 shl 63))<>0); f1overflowed:=f1overflowed or ((f1 and (qword(1) shl 63))<>0);
f1:=f1 shl 1; f1:=f1 shl 1;
bitpos:=bitpos shl 1; bitpos:=bitpos shl 1;
end; end;