/* Copyright (c) 1979 Regents of the University of California */
* pi - Pascal interpreter code translator
* Charles Haley, Bill Joy UCB
* Version 1.1 February 1978
* pxp - Pascal execution profiler
* Version 1.1 February 1978
* The routine yyPerror coordinates the panic when
* the correction routines fail. Three types of panics
* are possible - those in a declaration part, those
* in a statement part, and those in an expression.
* Declaration part panics consider insertion of "begin",
* expression part panics will stop on more symbols.
* The panics are otherwise the same.
* ERROR MESSAGE SUPPRESSION STRATEGY: August 11, 1977
* If the parser has not made at least 2 moves since the last point of
* error then we want to suppress the supplied error message.
* We then skip input up to the next solid symbol.
register int ishifts
, brlev
;
copy(&oldpos
, &Y
, sizeof oldpos
);
for (ishifts
= yyshifts
; ; yychar
= yylex(), yyshifts
++)
yerror("Illegal character");
yerror("Declaration found when statement expected");
yerror("Expected keyword begin after declarations, before statements");
yylval
= nullsem(YBEGIN
);
* A rough approximation for now
* Should be much more lenient on suppressing
copy(&Y
, &oldpos
, sizeof Y
);
if (yyshifts
- ishifts
> 2 && opt('r')) {
yerror("Parsing resumes");
* If we paniced in the statement part,
* and didn't stop at a ';', then we insert
* a ';' to prevent the recovery from immediately
* inserting one and complaining about it.
if (kind
== PSTAT
&& yychar
!= ';') {