goo/st-context.c

   1
   2
   3 #include "st-context.h"
   4 #include "st-object.h"
   5 #include "st-universe.h"
   6
   7 ST_DEFINE_VTABLE (st_method_context, st_heap_object_vtable ());
   8
   9 st_oop
  10 st_method_context_new (guint stack_size)
  11 {
  12     st_oop context;
  13
  14     context = st_allocate_object (ST_TYPE_SIZE (STMethodContext) + stack_size);
  15     st_object_initialize_header (context, st_method_context_class);
  16
  17     ST_CONTEXT_PART_SENDER (context) = st_nil;
  18     ST_CONTEXT_PART_METHOD (context) = st_nil;
  19
  20     ST_CONTEXT_PART_IP (context) = st_nil;
  21     ST_CONTEXT_PART_SP (context) = ST_METHOD_CONTEXT_STACK (context);
  22
  23     ST_METHOD_CONTEXT_RECEIVER (context) = st_nil;
  24
  25     return context;
  26 }
  27
  28 static void
  29 st_method_context_vtable_init (STVTable *table)
  30 {
  31
  32
  33 }