diff options
| author | Erich Eckner <git@eckner.net> | 2015-10-23 07:22:31 +0200 |
|---|---|---|
| committer | Erich Eckner <git@eckner.net> | 2015-10-23 09:01:42 +0200 |
| commit | 7fdd7eaffbe38fee2cec5264b6245f315abb654e (patch) | |
| tree | 6db04763734f1a2d0f75316d9b77fca7e5116dd7 | |
| parent | c29cf2f80c046affac8252e51241d5bcdb849b1a (diff) | |
| download | units-7fdd7eaffbe38fee2cec5264b6245f315abb654e.tar.xz | |
Typanpassungen in matheunit.pas
| -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); |