Source position: pscanner.pp line 953
protected procedure TPascalScanner.SetCurToken(
const AValue: TToken
);