diff options
| author | Erich Eckner <git@eckner.net> | 2018-10-10 15:41:37 +0200 |
|---|---|---|
| committer | Erich Eckner <git@eckner.net> | 2018-10-10 15:41:37 +0200 |
| commit | 00b0561141654e892a3bd3a7fd3454a341e2f27f (patch) | |
| tree | 4f18f1588815047b90e5a7efe0edb2390cc98613 | |
| parent | 16c991a95cc7855ebf9ad2d3936e81a889dc8ef5 (diff) | |
| download | units-00b0561141654e892a3bd3a7fd3454a341e2f27f.tar.xz | |
matheunit.pas: auch kein gmp für win32
| -rw-r--r-- | matheunit.pas | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/matheunit.pas b/matheunit.pas index 9b88009..5974e4b 100644 --- a/matheunit.pas +++ b/matheunit.pas @@ -5,7 +5,7 @@ unit matheunit; interface uses - Classes, SysUtils{$IFNDEF win64}, gmp{$ENDIF}, Math, lowlevelunit, protokollunit; + Classes, SysUtils{$IFNDEF win64}{$IFNDEF win32}, gmp{$ENDIF}{$ENDIF}, Math, lowlevelunit, protokollunit; type tCallBackGetValue = function(name: string): extended of object; @@ -40,9 +40,11 @@ function plus(a,b: tExtPoint): tExtPoint; function durch(a: tExtPoint; b: extended): tExtPoint; function myFrac(x: extended): extended; {$IFNDEF win64} +{$IFNDEF win32} function mpfToStr(f: mpf_t): string; function mpfMyRoot(rad: mpf_t; wzlExp: int64): extended; {$ENDIF} +{$ENDIF} function signSqr(x: extended): extended; inline; function myTimeToStr(t: extended): string; function cmpStr(s1,s2: string): longint; @@ -298,6 +300,7 @@ begin end; {$IFNDEF win64} +{$IFNDEF win32} function mpfToStr(f: mpf_t): string; var ex: mp_exp_t; @@ -321,6 +324,7 @@ begin result:=result*power(2,ex/wzlExp); end; {$ENDIF} +{$ENDIF} function signSqr(x: extended): extended; begin |