shithub: mc

ref: cc4e5e7f81d55cd0d6757d15c6ebd21e8f60b90a
dir: /libstd/clear.myr/

View raw version 
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)
}