shithub: mc

ref: fc7a3c0d5470cece4a3e444750181f7101cbe98f
dir: /lib/std/slcp.myr/

View raw version 
use "die.use"
use "types.use"
use "memops.use"

pkg std =
	generic slcp : (a : @a[:], b : @a[:] -> void)
;;

generic slcp = {a : @a[:], b : @a[:]
	iassert(a.len == b.len, "arguments to slcp() must be of equal length\n")
	memblit(a castto(byte#), b castto(byte#), a.len * sizeof(@a))
}