compile.c ADD_STACKPRINT

compile.c

#define ADD_STACKPRINT(label, depth) do {\
    ADD_INSN1(ret, line, putobject, rb_fstring_lit(label));\
    ADD_SEND(ret, line, rb_intern("putme"), INT2FIX(0));\
    ADD_INSN(ret, line, pop);\
    for (int x = 0; x < depth ; x++ ){\
        ADD_INSN1(ret, line, topn, INT2FIX(x));\
        ADD_SEND(ret, line, rb_intern("putme"), INT2FIX(0));\
        ADD_INSN(ret, line, pop);\
    }\
} while(0)

test.rb

module Kernel
  def putme(val = self)
    p val
  end
end

# some code