Source position: pscanner.pp line 940
protected procedure TPascalScanner.SetCurrentModeSwitches(
AValue: TModeSwitches
); virtual;