summaryrefslogtreecommitdiff
path: root/matheunit.pas
diff options
context:
space:
mode:
Diffstat (limited to 'matheunit.pas')
-rw-r--r--matheunit.pas4
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);