mirror of
https://git.code.sf.net/p/quake/quakeforge
synced 2024-11-05 20:50:43 +00:00
281b683e14
standard, implemented in Ruamoko. Currently works for a few simple "Hello, world!" programs.
46 lines
871 B
Objective-C
46 lines
871 B
Objective-C
#ifndef __Instruction_h
|
|
#define __Instruction_h
|
|
#include "SchemeObject.h"
|
|
|
|
typedef enum {
|
|
LABEL,
|
|
PUSH,
|
|
POP,
|
|
MAKECLOSURE,
|
|
MAKECONT,
|
|
LOADENV,
|
|
LOADLITS,
|
|
MAKEENV,
|
|
GET,
|
|
SET,
|
|
GETLINK,
|
|
GETGLOBAL,
|
|
CALL,
|
|
RETURN
|
|
} opcode_e;
|
|
|
|
struct instruction_s {
|
|
opcode_e opcode;
|
|
integer operand;
|
|
};
|
|
|
|
typedef struct instruction_s instruction_t;
|
|
|
|
@interface Instruction: SchemeObject
|
|
{
|
|
opcode_e opcode;
|
|
integer operand, offset;
|
|
Instruction label;
|
|
}
|
|
+ (id) opcode: (opcode_e) oc;
|
|
+ (id) opcode: (opcode_e) oc operand: (integer) op;
|
|
+ (id) opcode: (opcode_e) oc label: (Instruction) l;
|
|
- (id) initWithOpcode: (opcode_e) oc operand: (integer) op label: (Instruction) l;
|
|
- (void) offset: (integer) ofs;
|
|
- (integer) offset;
|
|
- (opcode_e) opcode;
|
|
- (void) emitStruct: (instruction_t []) program;
|
|
|
|
@end
|
|
|
|
#endif //__Instruction_h
|