magic/vm-src/globals.h

#ifndef GLOBALS_H
#define GLOBALS_H

#include "scm.h"

#define VM_GLOBALS_SIZE 600
// (1 << 12)

extern scm vm_reg_ret;
extern scm vm_reg_env;

extern scm vm_globals[VM_GLOBALS_SIZE];

scm vm_global_ref(scm idx);
void vm_set_global(scm idx, scm obj);

scm vm_env_ref(scm idx);
void vm_set_env(scm idx, scm obj);

#endif