/[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.2 by wfs, Sun May 6 15:59:23 2001 UTC revision 1.2.4.1 by camm, Fri Jun 7 22:14:45 2002 UTC
# Line 33  GEN setq_io(),setq_ii(); Line 33  GEN setq_io(),setq_ii();
33  #define IDECL(a,b,c) our_ulong b[4];a =(b[0]=0x1010000 +4,b);object c  #define IDECL(a,b,c) our_ulong b[4];a =(b[0]=0x1010000 +4,b);object c
34  #endif  #endif
35    
36    #else
37    
38    typedef MP_INT * GEN;
39    
40    int obj_to_mpz(object,MP_INT *);
41    int mpz_to_mpz(MP_INT *,MP_INT *);
42    void isetq_fix(MP_INT *,int);
43    MP_INT * otoi(object x);
44    
45    #define IDECL(a,b,c) MP_INT b; a = (mpz_init(&b),&b) ; object c
46    #define SETQ_IO(var,alloc,val) { object _xx = (val); \
47                                     obj_to_mpz(_xx,(var));}
48    #define SETQ_II(var,alloc,val) { MP_INT * _xx = (val); \
49                                     mpz_to_mpz(_xx,(var));}
50    #define ISETQ_FIX(a,b,c) isetq_fix(a,c)
51    
52    
53  #endif /* end no GMP */  #endif /* end no GMP */
54    
55  #define cclosure_call   funcall  #define cclosure_call   funcall

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.2.4.1

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