2016-09-24 20:46:08 +00:00
|
|
|
#include "mcg.h"
|
|
|
|
#include "mcgg.h"
|
2016-09-24 15:20:40 +00:00
|
|
|
|
|
|
|
|
|
|
|
#define PANIC printf
|
|
|
|
|
2016-10-01 20:58:29 +00:00
|
|
|
#define OP_LABEL(p) burm_calculate_label(p)
|
2016-09-24 20:46:08 +00:00
|
|
|
#define LEFT_CHILD(p) ((p)->left)
|
|
|
|
#define RIGHT_CHILD(p) ((p)->right)
|
|
|
|
|
|
|
|
#define burm_assert(b, s) assert(b)
|
|
|
|
|
2016-10-01 20:58:29 +00:00
|
|
|
extern int burm_calculate_label(struct ir* ir);
|
2016-09-24 20:46:08 +00:00
|
|
|
extern void burm_panic_cannot_match(struct ir* ir);
|
2016-09-24 15:20:40 +00:00
|
|
|
|
2016-10-01 11:56:52 +00:00
|
|
|
static bool burm_predicate_int(struct ir* ir)
|
|
|
|
{
|
|
|
|
return ir->goal_no == 3;
|
|
|
|
}
|
|
|
|
|
|
|
|
static bool burm_predicate_float(struct ir* ir)
|
|
|
|
{
|
|
|
|
return ir->goal_no == 5;
|
|
|
|
}
|
|
|
|
|