scc

simple c99 compiler
git clone git://git.simple-cc.org/scc
Log | Files | Refs | Submodules | README | LICENSE

arch.c (1950B)

      1 #include <string.h>
      2 #include <stdio.h>
      3 #include <stdlib.h>
      4 
      5 #include <scc/scc.h>
      6 #include "cc1.h"
      7 
      8 Type *voidtype, *pvoidtype, *booltype,
      9      *uchartype, *chartype, *schartype,
     10      *uinttype, *inttype,
     11      *sizettype, *pdifftype,
     12      *ushorttype, *shorttype,
     13      *longtype, *ulongtype,
     14      *ullongtype, *llongtype,
     15      *floattype, *doubletype, *ldoubletype,
     16      *ellipsistype, *va_list_type, *va_type,
     17      *wchartype;
     18 
     19 Symbol *one, *zero;
     20 char *architecture = "amd64-sysv";
     21 
     22 static Arch *arch;
     23 static Symbol zerodata = {.u.i = 0};
     24 static Symbol onedata = {.u.i = 1};
     25 
     26 static Arch *
     27 getarch(void)
     28 {
     29 	static struct archdef {
     30 		char *arch;
     31 		Arch *(*fun)(void);
     32 	} *bp, defs[] = {
     33 		"amd64-sysv", amd64_sysv,
     34 		"arm64-sysv", arm64_sysv,
     35 		"i386-sysv", i386_sysv,
     36 		"z80-scc", z80_scc,
     37 		NULL, NULL,
     38 	};
     39 
     40 	for (bp = defs; bp->arch; ++bp) {
     41 		if (strcmp(bp->arch, architecture) == 0)
     42 			return (*bp->fun)();
     43 	}
     44 
     45 	return NULL;
     46 }
     47 
     48 int
     49 valid_va_list(Type *tp)
     50 {
     51 	return (*arch->valid_va_list)(tp);
     52 }
     53 
     54 void
     55 iarch(void)
     56 {
     57 	if ((arch = getarch()) == NULL) {
     58 		fprintf(stderr, "cc1: wrong architecture '%s'\n", architecture);
     59 		exit(EXIT_FAILURE);
     60 	}
     61 
     62 	voidtype = &arch->voidtype;
     63 	pvoidtype = &arch->pvoidtype;
     64 	booltype = &arch->booltype;
     65 	uchartype = &arch->uchartype;
     66 	chartype = &arch->chartype;
     67 	schartype = &arch->schartype;
     68 	uinttype = &arch->uinttype;
     69 	inttype = &arch->inttype;
     70 	sizettype = &arch->sizettype;
     71 	pdifftype = &arch->pdifftype;
     72 	ushorttype = &arch->ushorttype;
     73 	shorttype = &arch->shorttype;
     74 	longtype = &arch->longtype;
     75 	ulongtype = &arch->ulongtype;
     76 	ullongtype = &arch->ullongtype;
     77 	llongtype = &arch->llongtype;
     78 	floattype = &arch->floattype;
     79 	doubletype = &arch->doubletype;
     80 	ldoubletype = &arch->ldoubletype;
     81 	ellipsistype = &arch->ellipsistype;
     82 	va_list_type = &arch->va_list_type;
     83 	va_type = &arch->va_type;
     84 	wchartype = &arch->wchartype;
     85 	zero = &zerodata;
     86 	one = &onedata;
     87 
     88 	zero->type = inttype;
     89 	one->type = inttype;
     90 }