let ws = get_wordsize t in
let mask = Int64.of_int (bytes_of_wordsize ws - 1) in
(addr +^ mask) &^ (Int64.lognot mask)
-
-(* Typed addresses. *)
-type 'a typed_addr
-
-external unsafe_addr_of_typed_addr : 'a typed_addr -> addr = "%identity"
-external unsafe_typed_addr_of_addr : addr -> 'a typed_addr = "%identity"