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

fix atomics

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

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

@ -10,10 +10,10 @@ let atomic_before_412 = {|
y y
let[@inline] compare_and_set r seen v = let[@inline] compare_and_set r seen v =
if r.x == seen then if r.x == seen then (
r.x <- v; r.x <- v;
true true
else false ) else false
let[@inline] fetch_and_add r x = let[@inline] fetch_and_add r x =
let v = r.x in let v = r.x in