ref: dfe28e0a978ca1acb738b2718a3ef2bd1617ed9a
dir: /libstd/slcp.myr/
use "die.use" use "types.use" pkg std = generic slcp : (a : @a[:], b : @a[:] -> void) ;; generic slcp = {a : @a[:], b : @a[:] var i var addr_a, addr_b assert(a.len == b.len, "arguments to slcp() must be of equal length") addr_a = a castto(@a#) castto(intptr) addr_b = b castto(@a#) castto(intptr) if addr_a <= addr_b for i = 0; i < a.len; i++ a[i] = b[i] ;; else for i = a.len; i > 0; i-- a[i - 1] = b[i - 1] ;; ;; }