# languages/lua/lib/thread.pir extract
.namespace [ 'Lua' ]
.sub 'init_thread' :load :anon
load_bytecode 'Parrot/Coroutine.pbc'
$P0 = subclass 'Parrot::Coroutine', 'thread'
.end
.namespace ['thread']
.sub __add :multi(thread, pmc)
.param pmc self
.param pmc right
.param pmc dest
print "add ok\n"
.return (dest)
.end
# test
.namespace [ 'Lua' ]
.HLL 'Lua', 'lua_group'
.sub '__start' :main
load_bytecode 'thread.pir'
_main()
.end
.sub '_main'
.const .Sub F1 = "f1"
find_type $I0, "thread"
$P1 = new $I0, F1
$P2 = new $I0, F1
$P0 = add $P1, $P2
end
.end
.sub 'f1'
print "f1()\n"
end
.end
I obtain the following error :
MMD function __add not found for types (86, 86)
current instr.: 'lua;Lua;_main' pc 28 (test_add.pir:13)
François.