blob: 70cbee429895c642e68c49037cde4d3563b6650b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
use "alloc.use"
use "die.use"
use "slcp.use"
pkg std =
generic sldup : (sl : @a[:] -> @a[:])
;;
generic sldup = {sl
var ret
ret = slalloc(sl.len)
slcp(ret, sl)
-> ret
}
|