/[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.26.4.1.2.21.6.1.4.1.2.1 by camm, Fri Sep 30 02:17:20 2005 UTC revision 1.26.4.1.2.21.6.1.4.1.2.2 by camm, Wed Oct 12 23:13:06 2005 UTC
# Line 876  FFN(siLaddress)(void) { Line 876  FFN(siLaddress)(void) {
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

Legend:
Removed from v.1.26.4.1.2.21.6.1.4.1.2.1  
changed lines
  Added in v.1.26.4.1.2.21.6.1.4.1.2.2

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