Mercurial > hg > xemacs-beta

comparison src/bytecode.c @ 5128:7be849cb8828 ben-lisp-object

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Ben Wing <ben@xemacs.org>
date Sun, 07 Mar 2010 02:09:59 -0600
parents a9c41067dd88 4a6b680a9577
children 88bd4f3ef8e4
comparison
equal deleted inserted replaced
5127:a9c41067dd88 5128:7be849cb8828
1569 Lisp_Object arg = POP; 1569 Lisp_Object arg = POP;
1570 TOP_LVALUE = Fstring_lessp (TOP, arg); 1570 TOP_LVALUE = Fstring_lessp (TOP, arg);
1571 break; 1571 break;
1572 } 1572 }
1573 1573
1574 case Bsubstring: 1574 case Bsubseq:
1575 { 1575 {
1576 Lisp_Object arg2 = POP; 1576 Lisp_Object arg2 = POP;
1577 Lisp_Object arg1 = POP; 1577 Lisp_Object arg1 = POP;
1578 TOP_LVALUE = Fsubstring (TOP, arg1, arg2); 1578 TOP_LVALUE = Fsubseq (TOP, arg1, arg2);
1579 break; 1579 break;
1580 } 1580 }
1581 1581
1582 case Bcurrent_column: 1582 case Bcurrent_column:
1583 PUSH (make_int (current_column (current_buffer))); 1583 PUSH (make_int (current_column (current_buffer)));
2818 plus an offset (except for Bconstant). */ 2818 plus an offset (except for Bconstant). */
2819 2819
2820 static void 2820 static void
2821 init_opcode_table_multi_op (Opcode op) 2821 init_opcode_table_multi_op (Opcode op)
2822 { 2822 {
2823 const Ascbyte *basename = opcode_name_table[op]; 2823 const Ascbyte *base = opcode_name_table[op];
2824 Ascbyte temp[300]; 2824 Ascbyte temp[300];
2825 int i; 2825 int i;
2826 2826
2827 for (i = 1; i < 7; i++) 2827 for (i = 1; i < 7; i++)
2828 { 2828 {
2829 assert (!opcode_name_table[op + i]); 2829 assert (!opcode_name_table[op + i]);
2830 sprintf (temp, "%s+%d", basename, i); 2830 sprintf (temp, "%s+%d", base, i);
2831 opcode_name_table[op + i] = xstrdup (temp); 2831 opcode_name_table[op + i] = xstrdup (temp);
2832 } 2832 }
2833 } 2833 }
2834 2834
2835 #endif /* ERROR_CHECK_BYTE_CODE */ 2835 #endif /* ERROR_CHECK_BYTE_CODE */