Parent Directory | Revision Log | Patch
revision 1.3 by camm, Sat Jul 20 07:10:55 2002 UTC | revision 1.4 by camm, Sat Feb 15 00:38:28 2003 UTC | |
---|---|---|
# | Line 1 | Line 1 |
1 | #define IN_INIT_PARI | #define IN_INIT_PARI |
2 | ||
3 | #define NEED_MP_H | #define NEED_MP_H |
# | Line 8 | Line 6 |
6 | #endif | #endif |
7 | ||
8 | #ifdef GMP | #ifdef GMP |
9 | void | /* static void */ |
10 | init_pari(void) | /* init_pari(void) */ |
11 | { | /* { */ |
12 | ; | /* ; */ |
13 | } | /* } */ |
14 | #else | #else |
15 | GEN gnil,gzero,gun,gdeux,ghalf,gi; | GEN gnil,gzero,gun,gdeux,ghalf,gi; |
16 | plong lontyp[30]={0,0x10000,0x10000,1,1,1,1,2,1,0,2,2,1,1,1,0,1,1,1,1}; | plong lontyp[30]={0,0x10000,0x10000,1,1,1,1,2,1,0,2,2,1,1,1,0,1,1,1,1}; |
# | Line 72 set_pari_stack(parisize) | Line 70 set_pari_stack(parisize) |
70 | top = avma = bot + parisize; | top = avma = bot + parisize; |
71 | } | } |
72 | ||
73 | static | |
74 | init_pari() | init_pari() |
75 | { | { |
76 | if (avma==0) | if (avma==0) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |