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 |