/[gcl]/gcl/o/init_pari.c
ViewVC logotype

Diff of /gcl/o/init_pari.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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)

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26