diff options
| author | Erich Eckner <git@eckner.net> | 2015-10-18 20:17:44 +0200 |
|---|---|---|
| committer | Erich Eckner <git@eckner.net> | 2015-10-19 15:48:09 +0200 |
| commit | 4eb29ea4984bd8b8f744798ced2c1dd99bf8432a (patch) | |
| tree | 4d7fe46e01dd810c31c95e483ba049641b651379 /lowlevelunit.pas | |
| parent | 4cbb30698a96356c4fe43ce79ab850bbba2146fc (diff) | |
| download | units-4eb29ea4984bd8b8f744798ced2c1dd99bf8432a.tar.xz | |
int64->mp_exp_t lowlevelunit.pas
Diffstat (limited to 'lowlevelunit.pas')
| -rw-r--r-- | lowlevelunit.pas | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lowlevelunit.pas b/lowlevelunit.pas index 65e266e..7543006 100644 --- a/lowlevelunit.pas +++ b/lowlevelunit.pas @@ -98,7 +98,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); @@ -200,7 +200,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); |