blob: ec388cf772be7ede0e47e7c30c8aaa1018711e09 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
link loadfuncpp
procedure main()
iexample := loadfuncpp("./mkexternal.so", "iexample")
external := iexample()
external2 := copy(external)
write( type(external) )
write( image(external) )
write( type(external2) )
write( image(external2) )
end
|