Source position: pasresolver.pp line 2717
public function TPasResolver.TypesAreOneBaseType(
T1: TPasType;
T2: TPasType
):Boolean;