Mercurial > emacs

comparison src/ccl.c @ 21244:50929073a0ba

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use STRING_BYTES and SET_STRING_BYTES.
author Richard M. Stallman <rms@gnu.org>
date Sat, 21 Mar 1998 07:06:14 +0000
parents a9442d47edcb
children fa9ff387d260
comparison
equal deleted inserted replaced
21243:e82a4a4fa12a 21244:50929073a0ba
1566 { 1566 {
1567 i = XFASTINT (XVECTOR (status)->contents[8]); 1567 i = XFASTINT (XVECTOR (status)->contents[8]);
1568 if (ccl.ic < i && i < ccl.size) 1568 if (ccl.ic < i && i < ccl.size)
1569 ccl.ic = i; 1569 ccl.ic = i;
1570 } 1570 }
1571 outbufsize = XSTRING (str)->size_byte * ccl.buf_magnification + 256; 1571 outbufsize = STRING_BYTES (XSTRING (str)) * ccl.buf_magnification + 256;
1572 outbuf = (char *) xmalloc (outbufsize); 1572 outbuf = (char *) xmalloc (outbufsize);
1573 if (!outbuf) 1573 if (!outbuf)
1574 error ("Not enough memory"); 1574 error ("Not enough memory");
1575 ccl.last_block = NILP (contin); 1575 ccl.last_block = NILP (contin);
1576 produced = ccl_driver (&ccl, XSTRING (str)->data, outbuf, 1576 produced = ccl_driver (&ccl, XSTRING (str)->data, outbuf,
1577 XSTRING (str)->size_byte, outbufsize, (int *)0); 1577 STRING_BYTES (XSTRING (str)), outbufsize, (int *)0);
1578 for (i = 0; i < 8; i++) 1578 for (i = 0; i < 8; i++)
1579 XSET (XVECTOR (status)->contents[i], Lisp_Int, ccl.reg[i]); 1579 XSET (XVECTOR (status)->contents[i], Lisp_Int, ccl.reg[i]);
1580 XSETINT (XVECTOR (status)->contents[8], ccl.ic); 1580 XSETINT (XVECTOR (status)->contents[8], ccl.ic);
1581 UNGCPRO; 1581 UNGCPRO;
1582 1582