876 |
static void |
static void |
877 |
FFN(siLnani)(void) { |
FFN(siLnani)(void) { |
878 |
check_arg(1); |
check_arg(1); |
879 |
vs_base[0] = (object)fixint(vs_base[0]); |
|
880 |
|
/*This is temporary, 2.6.x does not have 64bit fixnums on 64bit machines*/ |
881 |
|
switch (type_of(vs_base[0])) { |
882 |
|
case t_fixnum: |
883 |
|
vs_base[0]=(object)fix(vs_base[0]); |
884 |
|
break; |
885 |
|
case t_bignum: |
886 |
|
if (mpz_fits_slong_p(MP(vs_base[0]))) { |
887 |
|
MP_INT *u = MP(vs_base[0]); |
888 |
|
vs_base[0]=(object)mpz_get_si(u); |
889 |
|
break; |
890 |
|
} |
891 |
|
default: |
892 |
|
FEerror("Cannot coerce ~s to an address",1,vs_base[0]); |
893 |
|
} |
894 |
|
|
895 |
} |
} |
896 |
|
|
897 |
static void |
static void |