1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
--- src/gmpnumbers.cpp.orig Sat Jan 4 21:21:22 2003
+++ src/gmpnumbers.cpp Sat Jan 4 22:22:56 2003
@@ -70,25 +70,19 @@
void initGMPNumber(GMPNumber& x, GMPNumber& y)
{
- mpz_t man;
- mpz_init_set(man,y.man);
- x.man = man;
+ mpz_init_set(x.man,y.man);
x.exp = y.exp;
}
-void initGMPNumber(GMPNumber& x, long y=0)
+void initGMPNumber(GMPNumber& x, long y)
{
- mpz_t man;
- mpz_init_set_ui(man,y);
- x.man = man;
+ mpz_init_set_ui(x.man,y);
x.exp = 0;
}
void initGMPNumber(GMPNumber& x, mpz_t mpz)
{
- mpz_t man;
- mpz_init_set(man,mpz);
- x.man = man;
+ mpz_init_set(x.man,mpz);
x.exp = 0;
}
@@ -137,11 +131,9 @@
exp++;
}
if (!*man) {*man='0';*(man+1)='\0';neg=0;exp=0;}
- mpz_t ma;
- mpz_init_set_str(ma,man,10);
+ mpz_init_set_str(x.man,man,10);
free(man);
- if(neg)mpz_neg(ma,ma);
- x.man=ma;
+ if(neg)mpz_neg(x.man,x.man);
x.exp=exp;
}
@@ -158,7 +150,7 @@
free(str);
}
-char* getstrGMPNumber(GMPNumber& x, long prec=0)
+char* getstrGMPNumber(GMPNumber& x, long prec)
{
long rawsize = mpz_sizeinbase(x.man,10);
size_t size;
@@ -229,7 +221,7 @@
}
static LispStringPtr GMPNumberToString(GMPNumber& x, LispHashTable& h,
- LispInt prec=0)
+ LispInt prec)
{
char* result = getstrGMPNumber(x, prec);
LispStringPtr toreturn = h.LookUp(result);
|
