|true,[]->wfail(InternalError("warning: unexpected missing object argument when generating quotation for call to F# object member "^vref.LogicalName,m))
|true,[]->wfail(InternalError("warning: unexpected missing object argument when generating quotation for call to F# object member "+vref.LogicalName,m))
@@ -1087,8 +1087,8 @@ let MakeMemberDataAndMangledNameForMemberVal(g, tcref, isExtrinsic, attrs, optIm
if isExtrinsic then
let tname = tcref.LogicalName
let text = tname + "." + logicalName
let text = if memberFlags.MemberKind <> MemberKind.Constructor && memberFlags.MemberKind <> MemberKind.ClassConstructor && not memberFlags.IsInstance then text^".Static" else text
let text = if memberFlags.IsOverrideOrExplicitImpl then text^".Override" else text
let text = if memberFlags.MemberKind <> MemberKind.Constructor && memberFlags.MemberKind <> MemberKind.ClassConstructor && not memberFlags.IsInstance then text + ".Static" else text
let text = if memberFlags.IsOverrideOrExplicitImpl then text + ".Override" else text
text
else
List.foldBack (tcrefOfAppTy g >> qualifiedMangledNameOfTyconRef) optIntfSlotTys logicalName
ifSystem.String.Compare(xml.GetElementsByTagName("summary").Item(0).FirstChild.Value,System.Environment.NewLine^" I'm an xml comment!"^System.Environment.NewLine)=0then0else1
ifSystem.String.Compare(xml.GetElementsByTagName("summary").Item(0).FirstChild.Value,System.Environment.NewLine+" I'm an xml comment!"+System.Environment.NewLine)=0then0else1
ifSystem.String.Compare(xml.GetElementsByTagName("summary").Item(0).FirstChild.Value,System.Environment.NewLine^" I'm an xml comment!"^System.Environment.NewLine)=0then0else1
ifSystem.String.Compare(xml.GetElementsByTagName("summary").Item(0).FirstChild.Value,System.Environment.NewLine+" I'm an xml comment!"+System.Environment.NewLine)=0then0else1