open System

open System.Collections

open System.Collections.Generic

open System.Linq

open System.Text

open System.Runtime.Serialization.Formatters

open System.IO

open System.Data

open System.ComponentModel.DataAnnotations

open System.Globalization

open System.Threading;

​

//https://stackoverflow.com/questions/65862896/threading-issue-with-setting-flags-in-f

​

type Foo () =

    [<VolatileField>] 

    let mutable keepGoingField = true

    member this.DoWork () : unit = 

        let mutable i = 0;

​

        let mutable keepGoing = true 

        while (Volatile.Read(&keepGoing)) do

            // Do your processing

            i <- i+1

            if (i > 10) then raise (Exception("Too many"))

            Console.WriteLine("Called");

            // And eventually disable keepGoing

            Volatile.Write(&keepGoing, false)

            ()

​

let f = new Foo()

f.DoWork()

​

​

​

​

​