avoid a compiler warning

This commit is contained in:
Matthew Flatt 2018-02-26 18:46:58 -07:00
parent 8f77775cf5
commit 95333f6fe8

View File

@ -243,7 +243,7 @@ regcomp(char *expstr, rxpos exp, int explen, int pcre, Scheme_Object *handler)
regcodemax = 0;
regbackknown = NULL;
regbackdepends = NULL;
regc(MAGIC);
regc((char)MAGIC);
if (reg(0, &flags, 0, 0, PARSE_CASE_SENS | PARSE_SINGLE_LINE | (pcre ? PARSE_PCRE : 0)) == 0) {
FAIL("unknown regexp failure (late)");
}