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