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