simon/tiny_httpd
1
0
Fork 0
mirror of https://github.com/c-cube/tiny_httpd.git synced 2025-12-06 11:15:35 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix Atomic shims on < 4.12

Browse source
This commit is contained in:
Simon Cruanes 2022-01-01 21:59:35 -05:00
parent 326e1e2abd
commit d62d5515f1
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/pool/gen/mkshims.ml
View file

@ -1,6 +1,6 @@
let atomic_before_412 = {| let atomic_before_412 = {|
type !'a t = {mutable x: 'a} type 'a t = {mutable x: 'a}
let[@inline] make x = {x} let[@inline] make x = {x}
let[@inline] get {x} = x let[@inline] get {x} = x
let[@inline] set r x = r.x <- x let[@inline] set r x = r.x <- x