blob: 4a1c856d8fd25f49320ec552d4e30abeb5cccdd3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
# Test dynamic loading with a few standard cfuncs.
link cfunc
procedure main()
local i
every i := 500 to 513 do
gen(bitcount, i)
write()
gen(vword, 314159)
gen(lgconv, 10 ^ 30)
gen(unpack, "abcd")
gen(pack, 1684234849)
end
procedure gen(p, a)
write(image(p), "(", image(a), ") = ", p(a) | "[failed]")
return
end
|
