|
@@ -66,7 +66,7 @@
|
|
|
{ we can't write qword direct currently }
|
|
{ we can't write qword direct currently }
|
|
|
divqword:=divqword xor divqword;
|
|
divqword:=divqword xor divqword;
|
|
|
tqwordrec(one).high:=0;
|
|
tqwordrec(one).high:=0;
|
|
|
- tqwordrec(one).high:=1;
|
|
|
|
|
|
|
+ tqwordrec(one).low:=1;
|
|
|
lzz:=count_leading_zeros(z);
|
|
lzz:=count_leading_zeros(z);
|
|
|
lzn:=count_leading_zeros(n);
|
|
lzn:=count_leading_zeros(n);
|
|
|
{ if the denominator contains less zeros }
|
|
{ if the denominator contains less zeros }
|
|
@@ -233,14 +233,13 @@
|
|
|
hs : string;
|
|
hs : string;
|
|
|
|
|
|
|
|
begin
|
|
begin
|
|
|
- {!!!!!!!!!!!
|
|
|
|
|
|
|
+ {!!!!!!!!!!! }
|
|
|
hs:='';
|
|
hs:='';
|
|
|
repeat
|
|
repeat
|
|
|
hs:=chr(longint(value mod 10)+48)+hs;
|
|
hs:=chr(longint(value mod 10)+48)+hs;
|
|
|
value:=value div 10;
|
|
value:=value div 10;
|
|
|
until value=0;
|
|
until value=0;
|
|
|
s:=hs;
|
|
s:=hs;
|
|
|
- }
|
|
|
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
procedure int_str(value : int64;var s : string);
|
|
procedure int_str(value : int64;var s : string);
|
|
@@ -262,7 +261,10 @@
|
|
|
|
|
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$Log$
|
|
|
- Revision 1.6 1999-06-02 10:13:16 florian
|
|
|
|
|
|
|
+ Revision 1.7 1999-06-25 12:24:44 pierre
|
|
|
|
|
+ * qword one was wrong !
|
|
|
|
|
+
|
|
|
|
|
+ Revision 1.6 1999/06/02 10:13:16 florian
|
|
|
* multiplication fixed
|
|
* multiplication fixed
|
|
|
|
|
|
|
|
Revision 1.5 1999/05/25 20:36:41 florian
|
|
Revision 1.5 1999/05/25 20:36:41 florian
|
pierre