blob: b5236586ad3a620e675c9cb23914d2cf26f21a8b (
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 : byte#), (b : byte#), a.len * sizeof(@a))
}
|
