Mercurial > emacs
comparison src/ccl.c @ 21244:50929073a0ba
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 |