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