/[gcl]/gcl/cmpnew/gcl_cmpopt.lsp
ViewVC logotype

Diff of /gcl/cmpnew/gcl_cmpopt.lsp

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

revision 1.3 by camm, Wed Oct 8 23:08:19 2003 UTC revision 1.4 by camm, Mon Oct 13 15:10:28 2003 UTC
# Line 775  type_of(#0)==t_bitvector") Line 775  type_of(#0)==t_bitvector")
775     (get 'floatp 'inline-always))     (get 'floatp 'inline-always))
776    
777  ;;FLOOR  ;;FLOOR
778    ; (push '((fixnum fixnum) fixnum #.(flags rfa)
779    ;  "@01;(#0>=0&&(#1)>0?(#0)/(#1):ifloor(#0,#1))")
780    ;   (get 'floor 'inline-always))
781   (push '((fixnum fixnum) fixnum #.(flags rfa)   (push '((fixnum fixnum) fixnum #.(flags rfa)
782    "@01;(#0>=0&&(#1)>0?(#0)/(#1):ifloor(#0,#1))")    "@01;({fixnum _t=(#0)/(#1);((#1)<0  && (#0)<=0) || ((#1)>0 && (#0)>=0) || ((#1)*_t == (#0)) ? _t : _t - 1;})")
783     (get 'floor 'inline-always))     (get 'floor 'inline-always))
784    
785  ;;FOURTH  ;;FOURTH
# Line 903  type_of(#0)==t_bitvector") Line 906  type_of(#0)==t_bitvector")
906     (get 'minusp 'inline-always))     (get 'minusp 'inline-always))
907    
908  ;;MOD  ;;MOD
909   (push '((fixnum fixnum) fixnum #.(flags rfa)"@01;(#0>=0&&(#1)>0?(#0)%(#1):imod(#0,#1))")  ; (push '((fixnum fixnum) fixnum #.(flags rfa)"@01;(#0>=0&&(#1)>0?(#0)%(#1):imod(#0,#1))")
910    ;   (get 'mod 'inline-always))
911     (push '((fixnum fixnum) fixnum #.(flags rfa)"@01;({fixnum _t=(#0)-((#0)/(#1))*(#1);((#1)<0 && _t<=0) || ((#1)>0 && _t>=0) ? _t : _t + (#1);})")
912     (get 'mod 'inline-always))     (get 'mod 'inline-always))
913    
914  ;;NCONC  ;;NCONC

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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