mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-12 18:55:13 -08:00
Code Issues Projects Releases Wiki Activity

(CCL_READ_CHAR): Change the argument name from r to REG

Browse source 
as a workaround for SunOS 4's cc.
This commit is contained in:
Kenichi Handa 2001-01-24 00:12:24 +00:00
parent 3d48e6875a
commit 9977c49154
1 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/ccl.c
View file

@ -734,15 +734,15 @@ static int stack_idx_of_map_multiple;
CCL_SUSPEND (CCL_STAT_SUSPEND_BY_DST); \
} while (0)
/* Read one byte from the current input buffer into Rth register. */
#define CCL_READ_CHAR(r) \
/* Read one byte from the current input buffer into REGth register. */
#define CCL_READ_CHAR(REG) \
do { \
if (!src) \
CCL_INVALID_CMD; \
else if (src < src_end) \
{ \
r = *src++; \
if (r == '\n' \
REG = *src++; \
if (REG == '\n' \
&& ccl->eol_type != CODING_EOL_LF) \
{ \
/* We are encoding. */ \
@ -753,16 +753,16 @@ static int stack_idx_of_map_multiple;
else \
{ \
ccl->cr_consumed = 1; \
r = '\r'; \
REG = '\r'; \
src--; \
} \
} \
else \
r = '\r'; \
REG = '\r'; \
} \
if (r == LEADING_CODE_8_BIT_CONTROL \
if (REG == LEADING_CODE_8_BIT_CONTROL \
&& ccl->multibyte) \
r = *src++ - 0x20; \
REG = *src++ - 0x20; \
} \
else if (ccl->last_block) \
{ \