Mercurial > hg > index.cgi
diff lwcc/cc-gencode.c @ 502:14a40f8bb4eb
Add various operators to lwcc
Add various binary and ternary operators to lwcc, but only those which can
work with constant operands. Seems like variables are probably required
next.
author | William Astle <lost@l-w.ca> |
---|---|
date | Wed, 25 Sep 2019 20:23:49 -0600 |
parents | f3e9732973f1 |
children | 59b8c8b15bd4 |
line wrap: on
line diff
--- a/lwcc/cc-gencode.c Tue Sep 24 22:07:56 2019 -0600 +++ b/lwcc/cc-gencode.c Wed Sep 25 20:23:49 2019 -0600 @@ -27,9 +27,20 @@ #include "tree.h" +char *generate_nextlabel(void) +{ + static int labelnum = 0; + char buf[16]; + + sprintf(buf, "L%d", labelnum++); + return lw_strdup(buf); +} + void generate_code(node_t *n, FILE *output) { node_t *nn; + char *label1, *label2; + switch (n -> type) { // function definition - output prologue, then statements, then epilogue @@ -70,7 +81,99 @@ generate_code(n->children->next_child, output); fprintf(output, "\tjsr ___div16i\n"); break; + + case NODE_OPER_MOD: + generate_code(n -> children, output); + fprintf(output, "\tpshs d\n"); + generate_code(n -> children -> next_child, output); + fprintf(output, "\tjsr ___mod16i\n"); + break; + case NODE_OPER_COND: + label1 = generate_nextlabel(); + label2 = generate_nextlabel(); + generate_code(n -> children, output); + fprintf(output, "\tsubd #0\n\tbeq %s\n", label1); + generate_code(n -> children -> next_child, output); + fprintf(output, "\tbra %s\n%s\n", label2, label1); + generate_code(n -> children -> next_child -> next_child, output); + fprintf(output, "%s\n", label2); + lw_free(label1); + lw_free(label2); + break; + + case NODE_OPER_COMMA: + generate_code(n -> children, output); + generate_code(n -> children -> next_child, output); + break; + + case NODE_OPER_BWAND: + generate_code(n -> children, output); + fprintf(output, "\tpshs d\n"); + generate_code(n -> children -> next_child, output); + fprintf(output, "\tandb 1,s\n\tanda ,s++\n"); + break; + + case NODE_OPER_BWOR: + generate_code(n -> children, output); + fprintf(output, "\tpshs d\n"); + generate_code(n -> children -> next_child, output); + fprintf(output, "\torb 1,s\n\tora ,s++\n"); + break; + + case NODE_OPER_BWXOR: + generate_code(n -> children, output); + fprintf(output, "\tpshs d\n"); + generate_code(n -> children -> next_child, output); + fprintf(output, "\teorb 1,s\n\teora ,s++\n"); + break; + + case NODE_OPER_BAND: + label1 = generate_nextlabel(); + generate_code(n -> children, output); + fprintf(output, "\tsubd #0\n\tbeq %s\n", label1); + generate_code(n -> children -> next_child, output); + fprintf(output, "\tsubd #0\n\tbeq %s\n\tldd #1\n%s\n", label1, label1); + lw_free(label1); + break; + + case NODE_OPER_BOR: + label1 = generate_nextlabel(); + label2 = generate_nextlabel(); + generate_code(n -> children, output); + fprintf(output, "\tsubd #0\n\tbne %s\n", label1); + generate_code(n -> children -> next_child, output); + fprintf(output, "\tsubd #0\n\tbeq %s\n%s\tldd #1\n%s\n", label2, label1, label2); + lw_free(label1); + lw_free(label2); + break; + + case NODE_OPER_NE: + case NODE_OPER_EQ: + case NODE_OPER_LT: + case NODE_OPER_GT: + case NODE_OPER_LE: + case NODE_OPER_GE: + generate_code(n -> children, output); + fprintf(output, "\tpshs d\n"); + generate_code(n -> children -> next_child, output); + fprintf(output, "\tsubd ,s++\n"); + label1 = generate_nextlabel(); + label2 = generate_nextlabel(); + fprintf(output, "\t%s %s\n", ( + (n -> type == NODE_OPER_NE ? "bne" : + (n -> type == NODE_OPER_EQ ? "beq" : + (n -> type == NODE_OPER_LT ? "bge" : + (n -> type == NODE_OPER_GT ? "ble" : + (n -> type == NODE_OPER_LE ? "bgt" : + (n -> type == NODE_OPER_GE ? "blt" : + "foobar")))))) + ), label1); + fprintf(output, "\tldd #0\n\tbra %s\n%s\tldd #1\n%s\n", label2, label1, label2); + lw_free(label1); + lw_free(label2); + break; + default: for (nn = n -> children; nn; nn = nn -> next_child) generate_code(nn, output);