Mercurial > hg > xemacs-beta

comparison src/bytecode.c @ 280:7df0dd720c89 r21-0b38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b38
author cvs
date Mon, 13 Aug 2007 10:32:22 +0200
parents ca9a9ec9c1c1
children 8626e4521993
comparison
equal deleted inserted replaced
279:c20b2fb5bb0a 280:7df0dd720c89
809 TOP = (XINT (v1) == XINT (v2) ? Qt : Qnil); 809 TOP = (XINT (v1) == XINT (v2) ? Qt : Qnil);
810 break; 810 break;
811 811
812 case Bgtr: 812 case Bgtr:
813 v1 = POP; 813 v1 = POP;
814 TOP = Fgtr (TOP, v1); 814 TOP = arithcompare (TOP, v1, arith_grtr);
815 break; 815 break;
816 816
817 case Blss: 817 case Blss:
818 v1 = POP; 818 v1 = POP;
819 TOP = Flss (TOP, v1); 819 TOP = arithcompare (TOP, v1, arith_less);
820 break; 820 break;
821 821
822 case Bleq: 822 case Bleq:
823 v1 = POP; 823 v1 = POP;
824 TOP = Fleq (TOP, v1); 824 TOP = arithcompare (TOP, v1, arith_less_or_equal);
825 break; 825 break;
826 826
827 case Bgeq: 827 case Bgeq:
828 v1 = POP; 828 v1 = POP;
829 TOP = Fgeq (TOP, v1); 829 TOP = arithcompare (TOP, v1, arith_grtr_or_equal);
830 break; 830 break;
831 831
832 case Bdiff: 832 case Bdiff:
833 DISCARD (1); 833 DISCARD (1);
834 TOP = Fminus (2, &TOP); 834 TOP = Fminus (2, &TOP);