mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

(re_match_2_internal): Add casts to shut up some compilers.

Browse Source 
(FREE_STACK_RETURN): Nest the free inside the return.
This commit is contained in:
Richard M. Stallman 1994-07-15 07:48:35 +00:00
parent 47c5e807f2
commit 5330e99c71
1 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/regex.c
View File

@ -1493,12 +1493,7 @@ typedef struct
/* Return, freeing storage we allocated. */
#define FREE_STACK_RETURN(value) \
do \
{ \
free (compile_stack.stack); \
return value; \
} \
while (1)
return (free (compile_stack.stack), value)
static reg_errcode_t
regex_compile (pattern, size, syntax, bufp)
@ -4298,7 +4293,7 @@ re_match_2_internal (bufp, string1, size1, string2, size2, pos, regs, stop)
#endif
if ((re_opcode_t) p1[3] == exactn
&& ! (p2[1] * BYTEWIDTH > p1[4]
&& ! ((int) p2[1] * BYTEWIDTH > (int) p1[4]
&& (p2[1 + p1[4] / BYTEWIDTH]
& (1 << (p1[4] % BYTEWIDTH)))))
{
@ -4312,9 +4307,9 @@ re_match_2_internal (bufp, string1, size1, string2, size2, pos, regs, stop)
int idx;
/* We win if the charset_not inside the loop
lists every character listed in the charset after. */
for (idx = 0; idx < p2[1]; idx++)
for (idx = 0; idx < (int) p2[1]; idx++)
if (! (p2[2 + idx] == 0
|| (idx < p1[4]
|| (idx < (int) p1[4]
&& ((p2[2 + idx] & ~ p1[5 + idx]) == 0))))
break;
@ -4329,7 +4324,9 @@ re_match_2_internal (bufp, string1, size1, string2, size2, pos, regs, stop)
int idx;
/* We win if the charset inside the loop
has no overlap with the one after the loop. */
for (idx = 0; idx < p2[1] && idx < p1[4]; idx++)
for (idx = 0;
idx < (int) p2[1] && idx < (int) p1[4];
idx++)
if ((p2[2 + idx] & p1[5 + idx]) != 0)
break;