ref: 34e18c0eb51afa1b33b0db768be7ddef2a02ca63
dir: /src/cmd/cc/cc2/target/z80-scc/code.c/
#include <stdio.h> #include <stdlib.h> #include <scc/cstd.h> #include <scc/scc.h> #include "arch.h" #include "../../cc2.h" enum segment { CODESEG, DATASEG, BSSSEG, NOSEG }; static int curseg = NOSEG; static unsigned long offpar, offvar; static void segment(int seg) { static char *txt[] = { [CODESEG] = "\tCSEG\n", [DATASEG] = "\tDSEG\n", [BSSSEG] = "\tASEG\n", }; if (seg == curseg) return; fputs(txt[seg], stdout); curseg = seg; } static char * symname(Symbol *sym) { static char name[INTIDENTSIZ+1]; if (sym->name) { switch (sym->kind) { case SGLOB: case SEXTRN: snprintf(name, sizeof(name), "_%s", sym->name); return name; case SPRIV: return sym->name; } } sprintf(name, ".%d", sym->numid); return name; } static void label(Symbol *sym) { int seg; char *name = symname(sym); if (sym->type.flags & FUNF) seg = CODESEG; else if (sym->type.flags & INITF) seg = DATASEG; else seg = BSSSEG; segment(seg); switch (sym->kind) { case SEXTRN: printf("\tEXTRN\t%s\n", name); return; case SGLOB: printf("\tPUBLIC\t%s\n", name); break; } printf("%s:\n", name); } static void emitconst(Node *np) { switch (np->type.size) { case 1: printf("%d", (int) np->u.i & 0xFF); break; case 2: printf("%d", (int) np->u.i & 0xFFFF); break; case 4: printf("%ld", (long) np->u.i & 0xFFFFFFFF); break; default: abort(); } } static void emittree(Node *np) { if (!np) return; switch (np->op) { case OSTRING: pprint(np->u.s); free(np->u.s); np->u.s = NULL; break; case OCONST: emitconst(np); break; case OADDR: emittree(np->left); break; case OMEM: fputs(symname(np->u.sym), stdout); break; default: emittree(np->left); printf(" %c ", np->op); emittree(np->right); break; } } static void size2asm(Type *tp) { char *s; /* * In z80 we can ignore the alignment */ if (tp->flags & STRF) { s = "\tDB\t"; } else { switch (tp->size) { case 1: s = "\tDB\t"; break; case 2: s = "\tDW\t"; break; case 4: s = "\tDD\t"; break; default: s = "\tDS\t%lu,"; break; } } printf(s, tp->size); } void newfun() { offpar = offvar = 0; } void defpar(Symbol *sym) { unsigned long align, size; if (sym->kind != SREG && sym->kind != SAUTO) return; align = sym->type.align; size = sym->type.size; offpar -= align-1 & ~align; sym->u.off = offpar; offpar -= size; sym->kind = SAUTO; } void defvar(Symbol *sym) { unsigned long align, size; if (sym->kind != SREG && sym->kind != SAUTO) return; align = sym->type.align; size = sym->type.size; offvar += align-1 & ~align; sym->u.off = offvar; offvar += size; sym->kind = SAUTO; } void defglobal(Symbol *sym) { label(sym); if (sym->kind == SEXTRN || (sym->type.flags & INITF)) return; size2asm(&sym->type); puts("0"); } void data(Node *np) { size2asm(&np->type); emittree(np); putchar('\n'); } void writeout(void) { } void endinit(void) { } void getbblocks(void) { }