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

Diff of /gcl/o/num_log.c

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

revision 1.13 by camm, Sat Jul 24 13:14:30 2004 UTC revision 1.14 by camm, Wed Aug 25 22:48:24 2004 UTC
# Line 203  count_bits(object x) Line 203  count_bits(object x)
203    
204    
205  object  object
206  shift_integer(object x, int w)  shift_integer(object x, int w) {
207  {    if (type_of(x) == t_fixnum) {
208    if (type_of(x) == t_fixnum)      if (w <= 0){  
209      { if (w <= 0)        w = -w;
210        {   w = -w;        if (w >= WSIZ || w<0 /*most-negative-fixnum*/)
211            if (w >= WSIZ) return small_fixnum(fix(x) < 0 ? -1 :0);          return small_fixnum(fix(x) < 0 ? -1 :0);
212            else        else
213          return make_fixnum (fix(x) >> (w));}          return make_fixnum (fix(x) >> (w));
     MPOP(return, shifti,SI_TO_MP(fix(x),big_fixnum1),w);  
214      }      }
215        MPOP(return, shifti,SI_TO_MP(fix(x),big_fixnum1),w);
216      }
217    else    else
218      if (type_of(x) == t_bignum) {      if (type_of(x) == t_bignum) {
219        MPOP(return,shifti,MP(x),w);        MPOP(return,shifti,MP(x),w);

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

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