3 .namespace ['VariableStack']
7 class = newclass 'VariableStack'
9 addattribute class, '@stack'
10 addattribute class, '$next'
13 .sub init :vtable :method
14 .local pmc stack, cell
15 stack = new .ResizableIntegerArray
19 setattribute self, '@stack', stack
20 setattribute self, '$next', cell
23 .sub get_integer :vtable :method
25 next = getattribute self, '$next'
31 .sub get_pmc_keyed_int :vtable :method
34 stack = getattribute self, '@stack'
40 .sub set_pmc_keyed_int :vtable :method
45 stack = getattribute self, '@stack'
53 # vim: expandtab shiftwidth=4 ft=pir: