Commit9caa326

authored and

committed

added missing constant (#3575)

1 parentf745fe5 commit9caa326Copy full SHA for 9caa326

File tree

-6

lines changed

-6

lines changed

Lines changed: 5 additions & 6 deletions

Original file line number	Diff line number	Diff line change
`@@ -959,17 +959,16 @@ module FSharpExprConvert =`
`959`	`959`	`\| Const.Int32 i-> E.Const(box i, tyR)`
`960`	`960`	`\| Const.UInt32 i-> E.Const(box i, tyR)`
`961`	`961`	`\| Const.Int64 i-> E.Const(box i, tyR)`
`962`		`-\| Const.IntPtr i-> E.Const(box(nativeint i), tyR)`
`963`	`962`	`\| Const.UInt64 i-> E.Const(box i, tyR)`
`964`		`-\| Const.UIntPtr i-> E.Const(box(unativeint i), tyR)`
`965`		`-\| Const.Double i-> E.Const(box i, tyR)`
`966`		`-\| Const.Single i-> E.Const(box i, tyR)`
	`963`	`+\| Const.IntPtr i-> E.Const(box(nativeint i), tyR)`
	`964`	`+\| Const.UIntPtr i-> E.Const(box(unativeint i), tyR)`
	`965`	`+\| Const.Decimal i-> E.Const(box i, tyR)`
	`966`	`+\| Const.Double i-> E.Const(box i, tyR)`
	`967`	`+\| Const.Single i-> E.Const(box i, tyR)`
`967`	`968`	`\| Const.String i-> E.Const(box i, tyR)`
`968`	`969`	`\| Const.Char i-> E.Const(box i, tyR)`
`969`	`970`	`\| Const.Unit-> E.Const(box(), tyR)`
`970`	`971`	`\| Const.Zero-> E.DefaultValue(ConvType cenv ty)`
`971`		`-\|_->`
`972`		`- wfail("FSharp.Compiler.Service cannot yet return this kind of constant", m)`
`973`	`972`
`974`	`973`	`andConvDecisionTree cenv env dtreeRetTy x m=`
`975`	`974`	`ConvDecisionTreePrim cenv env dtreeRetTy x\|> Mk cenv m dtreeRetTy`

Comments

(0)