summaryrefslogtreecommitdiff
path: root/lib/std/clear.myr
blob: c16c85199d9f80868f5e45aba766656d5baf3475 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
use "slfill.use"
pkg std =
	generic clear	: (p : @a#	-> void)
;;

generic clear = {p : @a#
	var bp

	bp = p castto(byte#)
	slfill(bp[:sizeof(@a)], 0)
}