summaryrefslogtreecommitdiff
path: root/lib/std/slcp.myr
blob: 182e5dc2e02faaec7f02041fedae32e922943352 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
use "die"
use "types"
use "memops"

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))
}