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

Diff of /gcl/o/gmp_big.c

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

revision 1.11 by camm, Fri Jun 10 15:27:20 2005 UTC revision 1.12 by camm, Wed Jun 29 21:53:20 2005 UTC
# Line 419  otoi(object x) { Line 419  otoi(object x) {
419    FEwrong_type_argument(sLinteger,x);    FEwrong_type_argument(sLinteger,x);
420    return NULL;    return NULL;
421  }  }
422    
423    MP_INT *
424    stoi(fixnum x) {
425      object y = new_bignum();
426      mpz_set_si(MP(y),x);
427      return MP(y);
428    }
429  /* end added section for declare integer -- CM */  /* end added section for declare integer -- CM */
430    
431    

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

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