Commit4f0fe80

Gustavo Guerra

committed

Fix compilation errors in control.fs

1 parent5d6bbcd commit4f0fe80Copy full SHA for 4f0fe80

File tree

-5

lines changed

-5

lines changed

Lines changed: 7 additions & 5 deletions

Original file line number	Diff line number	Diff line change
`@@ -402,7 +402,12 @@ namespace Microsoft.FSharp.Control`
`402`	`402`
`403`	`403`	`[<AllowNullLiteral>]`
`404`	`404`	`typeTrampoline()=`
`405`		`-`
	`405`	`+`
	`406`	`+let mutablecont= None`
	`407`	`+let mutablebindCount=0`
	`408`	`+`
	`409`	`+static letunfake FakeUnit=()`
	`410`	`+`
`406`	`411`	`[<Literal>]`
`407`	`412`	`static letbindLimitBeforeHijack=300`
`408`	`413`	`#if FX_NO_THREAD_STATIC`
`@@ -418,10 +423,6 @@ namespace Microsoft.FSharp.Control`
`418`	`423`	`#else`
`419`	`424`	`Trampoline.thisThreadHasTrampoline`
`420`	`425`	`#endif`
`421`		`-let mutablecont= None`
`422`		`-let mutablebindCount=0`
`423`		`-`
`424`		`-static letunfake FakeUnit=()`
`425`	`426`
`426`	`427`	`// Install a trampolineStack if none exists`
`427`	`428`	`memberthis.ExecuteAction(firstAction:unit->FakeUnitValue)=`
`@@ -529,6 +530,7 @@ namespace Microsoft.FSharp.Control`
`529`	`530`	`memberthis.Protect firstAction=`
`530`	`531`	`trampoline<-new Trampoline()`
`531`	`532`	`trampoline.ExecuteAction(firstAction)`
	`533`	`+ FakeUnit`
`532`	`534`
`533`	`535`	`memberthis.Trampoline= trampoline`
`534`	`536`

Comments

(0)