Commita4d329e

Gustavo Guerra

committed

Fix compilation errors in control.fs

1 parentb41ad1a commita4d329eCopy full SHA for a4d329e

File tree

+11

-0

lines changed

+11

-0

lines changed

Lines changed: 11 additions & 0 deletions

Original file line number	Diff line number	Diff line change
`@@ -1502,6 +1502,16 @@ namespace Microsoft.FSharp.Control`
`1502`	`1502`	`// run actual await routine`
`1503`	`1503`	`// callback will be executed on the thread pool so we need to use TrampolineHolder.Protect to install trampoline`
`1504`	`1504`	`try`
	`1505`	`+#if FX_NO_TASK`
	`1506`	`+ ThreadPool.QueueUserWorkItem((fun _->`
	`1507`	`+letasyncResult= WaitHandleIAsyncResult(waitHandle):> System.IAsyncResult`
	`1508`	`+if asyncResult.IsCompletedthen`
	`1509`	`+if latch.Enter()then`
	`1510`	`+ registration.Dispose()`
	`1511`	`+ aux.trampolineHolder.Protect(fun()-> sconttrue)`
	`1512`	`+\|> unfake`
	`1513`	`+),null)\|> ignore`
	`1514`	`+#else`
`1505`	`1515`	`Task.Factory.FromAsync`
`1506`	`1516`	`(`
`1507`	`1517`	`WaitHandleIAsyncResult(waitHandle),`
`@@ -1512,6 +1522,7 @@ namespace Microsoft.FSharp.Control`
`1512`	`1522`	`\|> unfake`
`1513`	`1523`	`)`
`1514`	`1524`	`\|> ignore`
	`1525`	`+#endif`
`1515`	`1526`	`// if user has specified timeout different from Timeout.Infinite`
`1516`	`1527`	`// then start another async to track timeout expiration`
`1517`	`1528`	`// StartWithContinuations already installs trampoline so we can invoke continuation directly`

Comments

(0)