Source position: pscanner.pp line 916
public property TPascalScanner.CurModuleName : string read FCurModulename write FCurModuleName;