|
@@ -41,14 +41,14 @@ const
|
|
|
|
|
|
|
|
var correct : longint; { Power correction }
|
|
var correct : longint; { Power correction }
|
|
|
currprec : longint;
|
|
currprec : longint;
|
|
|
- roundcorr : Valreal;
|
|
|
|
|
|
|
+ il,roundcorr : Valreal;
|
|
|
temp : string;
|
|
temp : string;
|
|
|
power : string[10];
|
|
power : string[10];
|
|
|
sign : boolean;
|
|
sign : boolean;
|
|
|
i : integer;
|
|
i : integer;
|
|
|
dot : byte;
|
|
dot : byte;
|
|
|
currp : pchar;
|
|
currp : pchar;
|
|
|
- il : longint;
|
|
|
|
|
|
|
+ { il : longint; caused overflows !! PM }
|
|
|
begin
|
|
begin
|
|
|
case real_type of
|
|
case real_type of
|
|
|
rt_s32real :
|
|
rt_s32real :
|
|
@@ -234,7 +234,10 @@ end;
|
|
|
|
|
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$Log$
|
|
|
- Revision 1.15 1999-11-02 15:05:53 peter
|
|
|
|
|
|
|
+ Revision 1.16 1999-11-03 00:55:09 pierre
|
|
|
|
|
+ * problem of last commit for large d values corrected
|
|
|
|
|
+
|
|
|
|
|
+ Revision 1.15 1999/11/02 15:05:53 peter
|
|
|
* better precisio by dividing only once with a calculated longint
|
|
* better precisio by dividing only once with a calculated longint
|
|
|
instead of multiple times by 10
|
|
instead of multiple times by 10
|
|
|
|
|
|
pierre