diff options
| -rw-r--r-- | matheunit.pas | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/matheunit.pas b/matheunit.pas index ed9244f..c62f3fd 100644 --- a/matheunit.pas +++ b/matheunit.pas @@ -156,7 +156,7 @@ end; function mpfToStr(f: mpf_t): string; var - ex: int64; + ex: mp_exp_t; off: byte; begin result:=mpf_get_str(nil,ex,10,0,f); @@ -176,7 +176,7 @@ end; function mpfMyRoot(rad: mpf_t; wzlExp: int64): extended; var - ex: int64; + ex: mp_exp_t; begin result:=power(mpf_get_d_2exp(ex,rad),1/wzlExp); result:=result*power(2,ex/wzlExp); |