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