LWTools: lwcc/cc-gencode.c annotate

annotate lwcc/cc-gencode.c @ 536:33a59e232a5b

Fix basic output target to keep lines below 249 characters The line length limiter in the basic output was not properly moving to the next before 249 characters, which is the limit Color Basic can read in an ASCII basic program. Changed the line limiter to 240 from 247 to account for a possible 5 digit number plus a comma and just a bit of extra breathing space.

author	William Astle <lost@l-w.ca>
date	Thu, 16 Jun 2022 13:55:34 -0600
parents	59b8c8b15bd4
children

rev	line source
499 c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	1 /*
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	2 lwcc/cc-gencode.c
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	3
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	4 Copyright © 2019 William Astle
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	5
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	6 This file is part of LWTOOLS.
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	7
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	8 LWTOOLS is free software: you can redistribute it and/or modify it under the
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	9 terms of the GNU General Public License as published by the Free Software
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	10 Foundation, either version 3 of the License, or (at your option) any later
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	11 version.
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	12
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	13 This program is distributed in the hope that it will be useful, but WITHOUT
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	16 more details.
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	17
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	18 You should have received a copy of the GNU General Public License along with
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	19 this program. If not, see <http://www.gnu.org/licenses/>.
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	20 */
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	21
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	22 #include <stdio.h>
505 59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	23 #include <stdlib.h>
499 c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	24 #include <string.h>
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	25
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	26 #include <lw_alloc.h>
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	27 #include <lw_string.h>
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	28
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	29 #include "tree.h"
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	30
502 14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	31 char *generate_nextlabel(void)
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	32 {
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	33 static int labelnum = 0;
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	34 char buf[16];
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	35
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	36 sprintf(buf, "L%d", labelnum++);
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	37 return lw_strdup(buf);
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	38 }
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	39
505 59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	40 void generate_code(node_t n, FILE output);
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	41
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	42 void generate_code_shift(node_t n, FILE output, int dir)
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	43 {
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	44 generate_code(n -> children, output);
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	45 if (n -> children -> next_child -> type == NODE_CONST_INT)
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	46 {
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	47 long ival;
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	48 int i;
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	49 ival = strtol(n -> children -> next_child -> strval, NULL, 0);
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	50 if (ival <= 0)
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	51 return;
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	52 if (ival >= 16)
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	53 {
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	54 fprintf(output, "\tldd #%d\n", dir == 1 ? 0 : -1);
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	55 return;
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	56 }
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	57 if (ival >= 8)
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	58 {
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	59 if (dir == 1)
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	60 {
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	61 fprintf(output, "\ttfr b,a\n\tclrb\n");
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	62 for (i = ival - 8; i > 0; i--)
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	63 {
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	64 fprintf(output, "\tlsla\n");
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	65 }
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	66 }
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	67 else
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	68 {
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	69 fprintf(output, "\ttfr a,b\n\tsex\n");
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	70 for (i = ival - 8; i > 0; i--)
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	71 {
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	72 fprintf(output, "\tasrb\n");
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	73 }
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	74 }
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	75 return;
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	76 }
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	77 for (i = ival; i > 0; i--)
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	78 {
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	79 if (dir == 1)
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	80 {
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	81 fprintf(output, "\taslb\n\trola\n");
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	82 }
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	83 else
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	84 {
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	85 fprintf(output, "\tasra\n\trorb\n");
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	86 }
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	87 }
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	88 return;
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	89 }
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	90 else
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	91 {
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	92 fprintf(output, "\tpshs d\n");
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	93 generate_code(n -> children -> next_child, output);
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	94 fprintf(output, "\tjsr ___%ssh16\n\tpuls d\n", dir == 1 ? "l" : "r");
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	95 }
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	96 }
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	97
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	98
499 c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	99 void generate_code(node_t n, FILE output)
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	100 {
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	101 node_t *nn;
502 14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	102 char label1, label2;
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	103
499 c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	104 switch (n -> type)
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	105 {
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	106 // function definition - output prologue, then statements, then epilogue
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	107 case NODE_FUNDEF:
505 59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	108 fprintf(output, "\tsection .text\n\texport _%s\n_%s\n", n->children->next_child->strval, n->children->next_child->strval);
499 c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	109 generate_code(n->children->next_child->next_child->next_child, output);
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	110 fprintf(output, "\trts\n");
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	111 break;
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	112
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	113 case NODE_CONST_INT:
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	114 fprintf(output, "\tldd #%s\n", n->strval);
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	115 break;
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	116
501 f3e9732973f1 Add basic integer operations to lwcc William Astle <lost@l-w.ca> parents: 499 diff changeset	117 case NODE_OPER_PLUS:
f3e9732973f1 Add basic integer operations to lwcc William Astle <lost@l-w.ca> parents: 499 diff changeset	118 generate_code(n->children, output);
f3e9732973f1 Add basic integer operations to lwcc William Astle <lost@l-w.ca> parents: 499 diff changeset	119 fprintf(output, "\tpshs d\n");
f3e9732973f1 Add basic integer operations to lwcc William Astle <lost@l-w.ca> parents: 499 diff changeset	120 generate_code(n->children->next_child, output);
f3e9732973f1 Add basic integer operations to lwcc William Astle <lost@l-w.ca> parents: 499 diff changeset	121 fprintf(output, "\taddd ,s++\n");
f3e9732973f1 Add basic integer operations to lwcc William Astle <lost@l-w.ca> parents: 499 diff changeset	122 break;
f3e9732973f1 Add basic integer operations to lwcc William Astle <lost@l-w.ca> parents: 499 diff changeset	123
f3e9732973f1 Add basic integer operations to lwcc William Astle <lost@l-w.ca> parents: 499 diff changeset	124 case NODE_OPER_MINUS:
f3e9732973f1 Add basic integer operations to lwcc William Astle <lost@l-w.ca> parents: 499 diff changeset	125 generate_code(n->children, output);
f3e9732973f1 Add basic integer operations to lwcc William Astle <lost@l-w.ca> parents: 499 diff changeset	126 fprintf(output, "\tpshs d,x\n");
f3e9732973f1 Add basic integer operations to lwcc William Astle <lost@l-w.ca> parents: 499 diff changeset	127 generate_code(n->children->next_child, output);
f3e9732973f1 Add basic integer operations to lwcc William Astle <lost@l-w.ca> parents: 499 diff changeset	128 fprintf(output, "\tstd 2,s\n\tpuls d\n\tsubd ,s++\n");
f3e9732973f1 Add basic integer operations to lwcc William Astle <lost@l-w.ca> parents: 499 diff changeset	129 break;
f3e9732973f1 Add basic integer operations to lwcc William Astle <lost@l-w.ca> parents: 499 diff changeset	130
f3e9732973f1 Add basic integer operations to lwcc William Astle <lost@l-w.ca> parents: 499 diff changeset	131 case NODE_OPER_TIMES:
f3e9732973f1 Add basic integer operations to lwcc William Astle <lost@l-w.ca> parents: 499 diff changeset	132 generate_code(n -> children, output);
f3e9732973f1 Add basic integer operations to lwcc William Astle <lost@l-w.ca> parents: 499 diff changeset	133 fprintf(output, "\tpshs d\n");
f3e9732973f1 Add basic integer operations to lwcc William Astle <lost@l-w.ca> parents: 499 diff changeset	134 generate_code(n->children->next_child, output);
505 59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	135 fprintf(output, "\tjsr ___mul16i\n\tpuls d\n");
501 f3e9732973f1 Add basic integer operations to lwcc William Astle <lost@l-w.ca> parents: 499 diff changeset	136 break;
f3e9732973f1 Add basic integer operations to lwcc William Astle <lost@l-w.ca> parents: 499 diff changeset	137
f3e9732973f1 Add basic integer operations to lwcc William Astle <lost@l-w.ca> parents: 499 diff changeset	138 case NODE_OPER_DIVIDE:
f3e9732973f1 Add basic integer operations to lwcc William Astle <lost@l-w.ca> parents: 499 diff changeset	139 generate_code(n -> children, output);
f3e9732973f1 Add basic integer operations to lwcc William Astle <lost@l-w.ca> parents: 499 diff changeset	140 fprintf(output, "\tpshs d\n");
f3e9732973f1 Add basic integer operations to lwcc William Astle <lost@l-w.ca> parents: 499 diff changeset	141 generate_code(n->children->next_child, output);
505 59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	142 fprintf(output, "\tjsr ___div16i\n\tpuls d\n");
501 f3e9732973f1 Add basic integer operations to lwcc William Astle <lost@l-w.ca> parents: 499 diff changeset	143 break;
502 14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	144
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	145 case NODE_OPER_MOD:
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	146 generate_code(n -> children, output);
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	147 fprintf(output, "\tpshs d\n");
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	148 generate_code(n -> children -> next_child, output);
505 59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	149 fprintf(output, "\tjsr ___mod16i\n\tpuls d\n");
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	150 break;
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	151
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	152 case NODE_OPER_LSH:
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	153 generate_code_shift(n, output, 1);
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	154 break;
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	155
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	156 case NODE_OPER_RSH:
59b8c8b15bd4 Add integer shifts and fix code template errors for mul/div/mod William Astle <lost@l-w.ca> parents: 502 diff changeset	157 generate_code_shift(n, output, 0);
502 14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	158 break;
501 f3e9732973f1 Add basic integer operations to lwcc William Astle <lost@l-w.ca> parents: 499 diff changeset	159
502 14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	160 case NODE_OPER_COND:
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	161 label1 = generate_nextlabel();
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	162 label2 = generate_nextlabel();
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	163 generate_code(n -> children, output);
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	164 fprintf(output, "\tsubd #0\n\tbeq %s\n", label1);
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	165 generate_code(n -> children -> next_child, output);
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	166 fprintf(output, "\tbra %s\n%s\n", label2, label1);
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	167 generate_code(n -> children -> next_child -> next_child, output);
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	168 fprintf(output, "%s\n", label2);
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	169 lw_free(label1);
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	170 lw_free(label2);
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	171 break;
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	172
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	173 case NODE_OPER_COMMA:
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	174 generate_code(n -> children, output);
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	175 generate_code(n -> children -> next_child, output);
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	176 break;
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	177
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	178 case NODE_OPER_BWAND:
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	179 generate_code(n -> children, output);
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	180 fprintf(output, "\tpshs d\n");
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	181 generate_code(n -> children -> next_child, output);
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	182 fprintf(output, "\tandb 1,s\n\tanda ,s++\n");
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	183 break;
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	184
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	185 case NODE_OPER_BWOR:
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	186 generate_code(n -> children, output);
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	187 fprintf(output, "\tpshs d\n");
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	188 generate_code(n -> children -> next_child, output);
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	189 fprintf(output, "\torb 1,s\n\tora ,s++\n");
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	190 break;
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	191
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	192 case NODE_OPER_BWXOR:
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	193 generate_code(n -> children, output);
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	194 fprintf(output, "\tpshs d\n");
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	195 generate_code(n -> children -> next_child, output);
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	196 fprintf(output, "\teorb 1,s\n\teora ,s++\n");
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	197 break;
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	198
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	199 case NODE_OPER_BAND:
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	200 label1 = generate_nextlabel();
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	201 generate_code(n -> children, output);
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	202 fprintf(output, "\tsubd #0\n\tbeq %s\n", label1);
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	203 generate_code(n -> children -> next_child, output);
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	204 fprintf(output, "\tsubd #0\n\tbeq %s\n\tldd #1\n%s\n", label1, label1);
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	205 lw_free(label1);
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	206 break;
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	207
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	208 case NODE_OPER_BOR:
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	209 label1 = generate_nextlabel();
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	210 label2 = generate_nextlabel();
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	211 generate_code(n -> children, output);
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	212 fprintf(output, "\tsubd #0\n\tbne %s\n", label1);
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	213 generate_code(n -> children -> next_child, output);
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	214 fprintf(output, "\tsubd #0\n\tbeq %s\n%s\tldd #1\n%s\n", label2, label1, label2);
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	215 lw_free(label1);
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	216 lw_free(label2);
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	217 break;
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	218
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	219 case NODE_OPER_NE:
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	220 case NODE_OPER_EQ:
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	221 case NODE_OPER_LT:
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	222 case NODE_OPER_GT:
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	223 case NODE_OPER_LE:
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	224 case NODE_OPER_GE:
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	225 generate_code(n -> children, output);
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	226 fprintf(output, "\tpshs d\n");
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	227 generate_code(n -> children -> next_child, output);
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	228 fprintf(output, "\tsubd ,s++\n");
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	229 label1 = generate_nextlabel();
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	230 label2 = generate_nextlabel();
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	231 fprintf(output, "\t%s %s\n", (
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	232 (n -> type == NODE_OPER_NE ? "bne" :
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	233 (n -> type == NODE_OPER_EQ ? "beq" :
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	234 (n -> type == NODE_OPER_LT ? "bge" :
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	235 (n -> type == NODE_OPER_GT ? "ble" :
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	236 (n -> type == NODE_OPER_LE ? "bgt" :
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	237 (n -> type == NODE_OPER_GE ? "blt" :
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	238 "foobar"))))))
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	239 ), label1);
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	240 fprintf(output, "\tldd #0\n\tbra %s\n%s\tldd #1\n%s\n", label2, label1, label2);
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	241 lw_free(label1);
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	242 lw_free(label2);
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	243 break;
14a40f8bb4eb Add various operators to lwcc William Astle <lost@l-w.ca> parents: 501 diff changeset	244
499 c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	245 default:
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	246 for (nn = n -> children; nn; nn = nn -> next_child)
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	247 generate_code(nn, output);
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	248 break;
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	249 }
c3099c5d9d3e Add very simple code generator William Astle <lost@l-w.ca> parents: diff changeset	250 }

Mercurial > hg > index.cgi

annotate lwcc/cc-gencode.c @ 536:33a59e232a5b