Commitbfec6a4

authored

Update control.fs

1 parenta7ce0d5 commitbfec6a4Copy full SHA for bfec6a4

File tree

-16

lines changed

-16

lines changed

Lines changed: 0 additions & 16 deletions

Original file line number	Diff line number	Diff line change
`@@ -407,29 +407,13 @@ namespace Microsoft.FSharp.Control`
`407`	`407`	`WaitCallback(fun o->`
`408`	`408`	`letf= unbox o: unit-> AsyncReturn`
`409`	`409`	`trampolineHolder.Execute f\|> unfake)`
`410`		`-`
`411`		`-letstartThreadWithTrampoline(trampolineHolder:TrampolineHolder)(f:unit->AsyncReturn)=`
`412`		`-#if FX_NO_THREAD`
`413`		`-ifnot(ThreadPool.QueueUserWorkItem((waitCallbackForQueueWorkItemWithTrampoline trampolineHolder), f\|> box))then`
`414`		`- failwith"failed to queue user work item"`
`415`		`- FakeUnit`
`416`		`-#else`
`417`		`-(new Thread((fun _-> trampolineHolder.Execute f\|> unfake), IsBackground=true)).Start()`
`418`		`- FakeUnit`
`419`		`-#endif`
`420`		`-`
`421`	`410`	`#else`
`422`	`411`
`423`	`412`	`// Statically preallocate the delegate`
`424`	`413`	`letthreadStartCallbackForStartThreadWithTrampoline=`
`425`	`414`	`ParameterizedThreadStart(fun o->`
`426`	`415`	`let(trampolineHolder,f)= unbox o: TrampolineHolder*(unit-> AsyncReturn)`
`427`	`416`	`trampolineHolder.Execute f\|> unfake)`
`428`		`-`
`429`		`-// This should be the only call to Thread.Start in this library. We must always install a trampoline.`
`430`		`-letstartThreadWithTrampoline(trampolineHolder:TrampolineHolder)(f:unit->AsyncReturn)=`
`431`		`-(new Thread(threadStartCallbackForStartThreadWithTrampoline,IsBackground=true)).Start((trampolineHolder,f)\|>box)`
`432`		`- FakeUnit`
`433`	`417`	`#endif`
`434`	`418`
`435`	`419`	`letstartAsync cancellationToken cont econt ccont p=`

Comments

(0)