3176,tcFieldNameIsUsedModeThanOnce,"Named field '%s' is used more than once."

3176,tcFieldNameConflictsWithGeneratedNameForAnonymousField,"Named field '%s' conflicts with autogenerated name for anonymous field."

3177,tastConstantExpressionOverflow,"This literal expression or attribute argument results in an arithmetic overflow."

3178,tcIllegalStructTypeForConstantExpression,"This is not valid literal expression. The [<Literal>] attribute will be ignored."

3178,tcIllegalStructTypeForConstantExpression,"This is not valid literal expression. The [<Literal>] attribute will be ignored."

3179,fscSystemRuntimeInteropServicesIsRequired,"System.Runtime.InteropServices assembly is required to use UnknownWrapper\DispatchWrapper classes."

emptyPreBinder,Expr.Const(TcFieldInit mMethExpr fieldInit,mMethExpr,calledArgTy)

| WrapperForIDispatch ->

match cenv.g.ilg.traits.SystemRuntimeInteropServicesScopeRef.Value with

| None -> error(Error((42, "Current .NET profile does not include System.Runtime.InteropServices"), mMethExpr))

| None -> error(Error(FSComp.SR.fscSystemRuntimeInteropServicesIsRequired(), mMethExpr))

| Some assemblyRef ->

let tref = mkILNonGenericBoxedTy(mkILTyRef(assemblyRef, "System.Runtime.InteropServices.DispatchWrapper"))

let mref = mkILCtorMethSpecForTy(tref,[cenv.g.ilg.typ_Object]).MethodRef

let expr = Expr.Op(TOp.ILCall(false,false,false,false,CtorValUsedAsSuperInit,false,false,mref,[],[],[cenv.g.obj_ty]),[],[mkDefault(mMethExpr,calledArgTy)],mMethExpr)

emptyPreBinder,expr

| WrapperForIUnknown ->

match cenv.g.ilg.traits.SystemRuntimeInteropServicesScopeRef.Value with

| None -> error(Error((42, "Current .NET profile does not include System.Runtime.InteropServices"), mMethExpr))

| None -> error(Error(FSComp.SR.fscSystemRuntimeInteropServicesIsRequired(), mMethExpr))

| Some assemblyRef ->

let tref = mkILNonGenericBoxedTy(mkILTyRef(assemblyRef, "System.Runtime.InteropServices.UnknownWrapper"))

let mref = mkILCtorMethSpecForTy(tref,[cenv.g.ilg.typ_Object]).MethodRef