1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
#ifndef AUTO_H
#define AUTO_H
#include "programtypes.h"
#include "var.h"
struct Auto
{
long int stackPointer;
long int stackCapacity;
long int framePointer;
long int frameSize;
struct Pc onerror;
union AutoSlot *slot;
long int erl;
struct Pc erpc;
struct Value err;
struct Value lastdet;
struct Pc begindata;
int resumeable;
struct Symbol *cur,*all; /* should be hung off the funcs/procs */
};
struct AutoFrameSlot
{
long int framePointer;
long int frameSize;
struct Pc pc;
};
struct AutoExceptionSlot
{
struct Pc onerror;
int resumeable;
};
union AutoSlot
{
struct AutoFrameSlot retFrame;
struct AutoExceptionSlot retException;
struct Var var;
};
#include "token.h"
extern struct Auto *Auto_new(struct Auto *this);
extern void Auto_destroy(struct Auto *this);
extern struct Var *Auto_pushArg(struct Auto *this);
extern void Auto_pushFuncRet(struct Auto *this, int firstarg, struct Pc *pc);
extern void Auto_pushGosubRet(struct Auto *this, struct Pc *pc);
extern struct Var *Auto_local(struct Auto *this, int l);
extern int Auto_funcReturn(struct Auto *this, struct Pc *pc);
extern int Auto_gosubReturn(struct Auto *this, struct Pc *pc);
extern void Auto_frameToError(struct Auto *this, struct Program *program, struct Value *v);
extern void Auto_setError(struct Auto *this, long int line, struct Pc *pc, struct Value *v);
extern int Auto_find(struct Auto *this, struct Identifier *ident);
extern int Auto_variable(struct Auto *this, const struct Identifier *ident);
extern enum ValueType Auto_argType(const struct Auto *this, int l);
extern enum ValueType Auto_varType(const struct Auto *this, struct Symbol *sym);
extern void Auto_funcEnd(struct Auto *this);
#endif
|
