Source position: pscanner.pp line 1358
function StrToModeSwitch(
aName: TPasScannerString
):TModeSwitch;