paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-01 09:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix sqr() and abs() constant range check errors

Browse Source
This commit is contained in:
peter 2004-08-25 15:56:35 +00:00
parent 6663adfd50
commit b815890d49
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/ninl.pas
View File

@ -1287,14 +1287,14 @@ implementation
if isreal then
hp:=crealconstnode.create(abs(vr),pbestrealtype^)
else
hp:=cordconstnode.create(abs(vl),left.resulttype,true);
hp:=genintconstnode(abs(vl));
end;
in_const_sqr :
begin
if isreal then
hp:=crealconstnode.create(sqr(vr),pbestrealtype^)
else
hp:=cordconstnode.create(sqr(vl),left.resulttype,true);
hp:=genintconstnode(sqr(vl));
end;
in_const_odd :
begin
@ -2441,7 +2441,10 @@ begin
end.
{
$Log$
Revision 1.142 2004-08-08 16:00:56 florian
Revision 1.143 2004-08-25 15:56:35 peter
* fix sqr() and abs() constant range check errors
Revision 1.142 2004/08/08 16:00:56 florian
* constant floating point assignments etc. are now overflow checked
if Q+ or R+ is turned on