28 lines
405 B
C
28 lines
405 B
C
#include "am.h"
|
|
|
|
#include "env.h"
|
|
#include "store.h"
|
|
|
|
#include <assert.h>
|
|
#include <string.h>
|
|
|
|
void am_init(am_t *am)
|
|
{
|
|
memset(am, 0, sizeof(am_t));
|
|
am->sp = am->stack + AM_STACK_SIZE - 1;
|
|
store_init(am);
|
|
env_init(am);
|
|
}
|
|
|
|
void am_push(am_t *am)
|
|
{
|
|
assert(am->sp >= am->stack);
|
|
*am->sp-- = am->expr;
|
|
}
|
|
|
|
void am_pop(am_t *am)
|
|
{
|
|
assert(am->sp < am->stack + AM_STACK_SIZE - 1);
|
|
am->expr = *++am->sp;
|
|
}
|