Source position: pscanner.pp line 879
protected procedure TPascalScanner.SetCurrentValueSwitch(
V: TValueSwitch;
const AValue: string
);