Remove extraneous use of address-of

This commit is contained in:
Joshua Suskalo 2024-10-03 17:31:18 -04:00
parent 305e250be7
commit ab0af5b0ca
No known key found for this signature in database
GPG key ID: 9B6BA586EFF1B9F0

View file

@ -649,7 +649,7 @@ floats, the following code might be used.
;; float *out_floats; ;; float *out_floats;
;; int num_floats = returns_float_array(&out_floats); ;; int num_floats = returns_float_array(&out_floats);
(let [out-floats (mem/alloc mem/pointer-size arena) (let [out-floats (mem/alloc mem/pointer-size arena)
num-floats (returns-float-array* (mem/address-of out-floats)) num-floats (returns-float-array* out-floats)
floats-addr (mem/read-address out-floats) floats-addr (mem/read-address out-floats)
floats-slice (mem/slice-global floats-addr (unchecked-multiply-int mem/float-size num-floats))] floats-slice (mem/slice-global floats-addr (unchecked-multiply-int mem/float-size num-floats))]
;; Using a try/finally to perform an operation when the stack frame exits, ;; Using a try/finally to perform an operation when the stack frame exits,