for(i
= filedepth
; i
>0 && filenames
[i
]==NULL
; --i
)
sprintf(buff
, "on line %d of file %s", yylineno
, filenames
[i
]);
sprintf(buff
, "on line %d", yylineno
);
errmess("Label error", s
, t
);
errmess("Expression error", s
, t
);
fprintf(diagfile
, "**%s %s: ", m
, linerr());
fprintf(diagfile
, "**Error %s: Declaration for %s: %s\n",
sprintf(buff
, "impossible tag %d in routine %s", tag
, routine
);
fprintf(diagfile
, "\n***Compiler error %s.", linerr());
if(s
) fprintf(diagfile
, " %s.", s
);
fprintf(diagfile
, "*Warning: %s\n", s
);
errmess(s
, CNULL
, CNULL
);