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);