/[gcl]/gcl/h/cmponly.h
ViewVC logotype

Diff of /gcl/h/cmponly.h

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by camm, Fri Jun 10 15:24:44 2005 UTC revision 1.9 by camm, Wed Jun 22 01:37:25 2005 UTC
# Line 33  GEN setq_io(),setq_ii(); Line 33  GEN setq_io(),setq_ii();
33    
34  #else  #else
35    
36  typedef MP_INT * GEN;  /* typedef MP_INT * GEN; */
37    
38  int obj_to_mpz(object,MP_INT *);  int obj_to_mpz(object,MP_INT *);
39  int obj_to_mpz1(object,MP_INT *,void *);  int obj_to_mpz1(object,MP_INT *,void *);
# Line 51  MP_INT * otoi(object x); Line 51  MP_INT * otoi(object x);
51  /* FIXME, verify that IDECL need not be changed, improve logic behind malloc */  /* FIXME, verify that IDECL need not be changed, improve logic behind malloc */
52  /* selection, e.g. closure boundaries.  CM 20031201*/  /* selection, e.g. closure boundaries.  CM 20031201*/
53  #define IDECL(a,b,c) mp_limb_t *c=(mp_limb_t *)ZALLOCA(1*sizeof(mp_limb_t));MP_INT b={1,1,c}; a = &b  #define IDECL(a,b,c) mp_limb_t *c=(mp_limb_t *)ZALLOCA(1*sizeof(mp_limb_t));MP_INT b={1,1,c}; a = &b
54    #define IDECL1(a,b,c) mp_limb_t *c=(mp_limb_t *)ZALLOCA(1*sizeof(mp_limb_t));MP_INT b={1,1,c}; GEN a = &b
55  #define SETQ_IO(var,alloc,val,af) { object _xx = (val); \  #define SETQ_IO(var,alloc,val,af) { object _xx = (val); \
56                                      int _n; \                                      int _n; \
57                                      if ((_n=obj_to_mpz(_xx,(var)))) {\                                      if ((_n=obj_to_mpz(_xx,(var)))) {\

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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