lama_byterun/runtime/virt_stack.c

#include "virt_stack.h"

#include <malloc.h>

virt_stack *vstack_create () { return malloc(sizeof(virt_stack)); }

void vstack_destruct (virt_stack *st) { free(st); }

void vstack_init (virt_stack *st) {
  st->cur          = RUNTIME_VSTACK_SIZE;
  st->buf[st->cur] = 0;
}

void vstack_push (virt_stack *st, size_t value) {
  if (st->cur == 0) { assert(0); }
  --st->cur;
  st->buf[st->cur] = value;
}

size_t vstack_pop (virt_stack *st) {
  if (st->cur == RUNTIME_VSTACK_SIZE) { assert(0); }
  size_t value = st->buf[st->cur];
  ++st->cur;
  return value;
}

void *vstack_top (virt_stack *st) { return st->buf + st->cur; }

size_t vstack_size (virt_stack *st) { return RUNTIME_VSTACK_SIZE - st->cur; }

size_t vstack_kth_from_start (virt_stack *st, size_t k) {
  assert(vstack_size(st) > k);
  return st->buf[RUNTIME_VSTACK_SIZE - 1 - k];
}