code.c - scc - simple c99 compiler (HTM) git clone git://git.simple-cc.org/scc (DIR) Log (DIR) Files (DIR) Refs (DIR) Submodules (DIR) README (DIR) LICENSE --- code.c (2711B) --- 1 #include <stdio.h> 2 #include <stdlib.h> 3 4 #include <scc/cstd.h> 5 #include <scc/scc.h> 6 7 #include "arch.h" 8 #include "../../cc2.h" 9 10 enum segment { 11 CODESEG, 12 DATASEG, 13 BSSSEG, 14 NOSEG 15 }; 16 17 static int curseg = NOSEG; 18 19 static void 20 segment(int seg) 21 { 22 static char *txt[] = { 23 [CODESEG] = "\t.text\n", 24 [DATASEG] = "\t.data\n", 25 [BSSSEG] = "\t.bss\n", 26 }; 27 28 if (seg == curseg) 29 return; 30 fputs(txt[seg], stdout); 31 curseg = seg; 32 } 33 34 static char * 35 symname(Symbol *sym) 36 { 37 static char name[INTIDENTSIZ+1]; 38 39 if (sym->name) { 40 switch (sym->kind) { 41 case SEXTRN: 42 case SGLOB: 43 case SPRIV: 44 return sym->name; 45 } 46 } 47 48 sprintf(name, ".L%d", sym->numid); 49 50 return name; 51 } 52 53 static void 54 emitconst(Node *np) 55 { 56 switch (np->type.size) { 57 case 1: 58 printf("%d", (int) np->u.i & 0xFF); 59 break; 60 case 2: 61 printf("%d", (int) np->u.i & 0xFFFF); 62 break; 63 case 4: 64 printf("%ld", (long) np->u.i & 0xFFFFFFFF); 65 break; 66 case 8: 67 printf("%lld", (long long) np->u.i & 0xFFFFFFFF); 68 break; 69 default: 70 abort(); 71 } 72 } 73 74 static void 75 emittree(Node *np) 76 { 77 if (!np) 78 return; 79 80 switch (np->op) { 81 case OSTRING: 82 pprint(np->u.s); 83 free(np->u.s); 84 np->u.s = NULL; 85 break; 86 case OCONST: 87 emitconst(np); 88 break; 89 case OADDR: 90 emittree(np->left); 91 break; 92 case OMEM: 93 fputs(symname(np->u.sym), stdout); 94 break; 95 default: 96 emittree(np->left); 97 printf(" %c ", np->op); 98 emittree(np->right); 99 break; 100 } 101 } 102 static void 103 size2asm(Type *tp) 104 { 105 char *s; 106 107 if (tp->flags & STRF) { 108 s = "\t.ascii\t"; 109 } else { 110 switch (tp->size) { 111 case 1: 112 s = "\t.byte\t"; 113 break; 114 case 2: 115 s = "\t.short\t"; 116 break; 117 case 4: 118 s = "\t.long\t"; 119 break; 120 case 8: 121 s = "\t.quad\t"; 122 break; 123 default: 124 s = "\t.space\t%lu,"; 125 break; 126 } 127 } 128 printf(s, tp->size); 129 } 130 131 void 132 data(Node *np) 133 { 134 size2asm(&np->type); 135 emittree(np); 136 putchar('\n'); 137 } 138 139 static void 140 label(Symbol *sym) 141 { 142 int seg; 143 char *name = symname(sym); 144 Type *tp = &sym->type; 145 146 if (sym->type.flags & FUNF) 147 seg = CODESEG; 148 else if (sym->type.flags & INITF) 149 seg = DATASEG; 150 else 151 seg = BSSSEG; 152 segment(seg); 153 154 switch (sym->kind) { 155 case SEXTRN: 156 printf("\t.extern\t%s\n", name); 157 case SLOCAL: 158 return; 159 case SGLOB: 160 printf("\t.global\t%s\n", name); 161 if (seg == BSSSEG) 162 printf("\t.comm\t%s,%lu\n", name, tp->size); 163 break; 164 } 165 if (sym->type.align != 1) 166 printf("\t.align\t%lu\n", sym->type.align ); 167 printf("%s:\n", name); 168 } 169 170 void 171 defglobal(Symbol *sym) 172 { 173 label(sym); 174 if (sym->kind == SEXTRN || (sym->type.flags & INITF)) 175 return; 176 size2asm(&sym->type); 177 puts("0"); 178 } 179 180 void 181 deftype(Type *tp) 182 { 183 } 184 185 void 186 defpar(Symbol *sym) 187 { 188 } 189 190 void 191 defvar(Symbol *sym) 192 { 193 } 194 195 void 196 newfun(void) 197 { 198 } 199 200 void 201 writeout(void) 202 { 203 } 204 205 void 206 endinit(void) 207 { 208 } 209 210 void 211 getbblocks(void) 212 { 213 }