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

Diff of /gcl/o/main.c

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

revision 1.54 by camm, Thu Nov 25 19:46:20 2004 UTC revision 1.55 by camm, Sat Nov 27 22:19:35 2004 UTC
# Line 802  FFN(siLaddress)(void) { Line 802  FFN(siLaddress)(void) {
802  static void  static void
803  FFN(siLnani)(void) {  FFN(siLnani)(void) {
804    check_arg(1);    check_arg(1);
805    vs_base[0] = (object)fixint(vs_base[0]);    switch(type_of(vs_base[0])) {
806      case t_fixnum:
807        vs_base[0] = (object)fixint(vs_base[0]);
808        break;
809      case t_bignum:
810        if (vs_base[0]->big.big_mpz_t._mp_size!=1)
811          FEerror("Integer too big",0);
812        /*FIXME 64*/
813        fprintf(stderr,"Warning, bignum in nani\n");
814        vs_base[0]=(object)*vs_base[0]->big.big_mpz_t._mp_d;
815        break;
816      default:
817        FEerror("Not an integer",0);
818        break;
819      }    
820  }  }
821    
822  static void  static void

Legend:
Removed from v.1.54  
changed lines
  Added in v.1.55

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