vextoly/cryn

root / tests / 21_threads.cryn [View Raw] 
[# spawn and wait: two contexts incrementing a shared world cell #]
make int64 counter

define worker
  make int64 k
  set 0
  move k
  write
  mark w
  move k
  read
  compare 100
  jump done when greater-or-equal
  move counter
  read
  add 1
  move counter
  write
  set 0
  move k
  read
  add 1
  move k
  write
  set 0
  jump w
  mark done
  return
end

define main
  spawn worker
  spawn worker
  wait
  move counter
  read
  output
  return
end