mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 09:40:21 +00:00
30 lines
215 B
Perl
30 lines
215 B
Perl
|
|
struct V {
|
|
entry : {&A} -> {}
|
|
} and
|
|
struct A {
|
|
vtable : &V
|
|
}
|
|
|
|
terra what(a : &A) : {}
|
|
end
|
|
|
|
what:compile()
|
|
|
|
terra bar()
|
|
var v : V
|
|
v.entry = what
|
|
end
|
|
|
|
bar:compile()
|
|
|
|
--[[
|
|
{&A}->{}
|
|
&A
|
|
A
|
|
&V
|
|
V
|
|
&{&A}->{}
|
|
{&A}->{}
|
|
|
|
]] |