ptok->tk_val = (arith)0;
return ptok->tk_symb = INTEGER;
}
- ptok->tk_str = Malloc(tg - buf);
+ ptok->tk_str = Malloc((unsigned)(tg - buf));
strcpy(ptok->tk_str, buf);
return IDENTIFIER;
}
blank = 0;
}
*length = repl->r_ptr - repl->r_text;
- return Realloc(repl->r_text, repl->r_ptr - repl->r_text + 1);
+ return Realloc(repl->r_text, (unsigned)(repl->r_ptr - repl->r_text +1));
}
/* macroeq() decides whether two macro replacement texts are
return "";
if (p) {
*p = '\0';
- fn = Salloc(fn, p - &fn[0] + 1);
+ fn = Salloc(fn, (unsigned)(p - &fn[0] + 1));
*p = '/';
return fn;
}
if (c & 0200) {
if (c == EOI) {
newline();
- flush(op-_obuf);
+ flush((int)(op-_obuf));
return;
}
fatal("non-ascii character read");
case STCHAR:
{
register int stopc = c;
- int escaped;
+ int escaped = 0;
do {
- escaped = 0;
echo(c);
c = GetChar();
if (c == '\n') {
+ /* the compiler will complain */
break;
}
else if (c == EOI) {
newline();
- flush(op-_obuf);
+ flush((int)(op-_obuf));
return;
}
- if (c == '\\') {
+ if (!escaped && c == '\\') {
echo(c);
c = GetChar();
if (c == '\n') {
++LineNumber;
lineno++;
- }
- else if (c == '\'') escaped = 1;
- }
+ } else escaped = 1;
+ } else escaped = 0;
} while (escaped || c != stopc);
echo(c);
if (c == '\n')
for(;;) {
if (c == EOI) {
newline();
- flush(op - _obuf);
+ flush((int)(op - _obuf));
op = 0;
break;
}
if (!expand_macro(repl, idf))
return 0;
InputLevel++;
- InsertText(repl->r_text, repl->r_ptr - repl->r_text);
+ InsertText(repl->r_text, (int)(repl->r_ptr - repl->r_text));
idf->id_macro->mc_flag |= NOREPLACE;
repl->r_level = InputLevel;
repl->next = ReplaceList;