paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 20:27:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Converted assertion into an internal error

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2022-08-18 07:31:37 +01:00 committed by FPK
parent 32f4931fd2
commit 131c1e1b93
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/cgutils.pas
View File

@ -412,7 +412,10 @@ uses
ad,anc,delta,q1,r1,q2,r2,t: aWord;
two_N_minus_1: aWord;
begin
assert((d<-1) or (d>1));
if (d>=-1) and (d<=1) then
{ Division by unity, -1 or 0 should have been caught earlier }
InternalError(2022081801);
two_N_minus_1:=aWord(1) shl (N-1);
ad:=abs(d);