paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-26 10:47:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ Patch from Johannes Berg for bug #2759

Browse Source
This commit is contained in:
michael 2003-11-24 21:57:43 +00:00
parent 4584775cbe
commit 8373e40e10
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/i386/math.inc
View File

@ -191,8 +191,8 @@
else if expo=0 then else if expo=0 then
power:=1 power:=1
else else
{ bas < 0 is not allowed } { bas < 0 is not allowed when doing roots }
if bas<0 then if (bas<0) and (frac(expo) <> 0) then
handleerror(207) handleerror(207)
else else
power:=exp(ln(bas)*expo); power:=exp(ln(bas)*expo);
@ -200,7 +200,10 @@
{ {
$Log$ $Log$
Revision 1.16 2003-11-11 21:08:17 peter Revision 1.17 2003-11-24 21:57:43 michael
+ Patch from Johannes Berg for bug 2759
Revision 1.16 2003/11/11 21:08:17 peter
* REGCALL define added * REGCALL define added
Revision 1.15 2003/09/08 18:21:37 peter Revision 1.15 2003/09/08 18:21:37 peter