Initial revision

mach/m68020/ncg/mach.c

@@ -0,0 +1,236 @@
+/*
+ * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
+ *
+ *          This product is part of the Amsterdam Compiler Kit.
+ *
+ * Permission to use, sell, duplicate or disclose this software must be
+ * obtained in writing. Requests for such permissions may be sent to
+ *
+ *      Dr. Andrew S. Tanenbaum
+ *      Wiskundig Seminarium
+ *      Vrije Universiteit
+ *      Postbox 7161
+ *      1007 MC Amsterdam
+ *      The Netherlands
+ *
+ */
+
+/*
+ * machine dependent back end routines for the Motorola 68000, 68010 or 68020
+ */
+
+#ifndef m68k4
+#define m68020
+#endif
+		/* use m68020 when you want a m68020 cg, don't if you want a
+		 * m68k4 cg. The m68k4 cg can be used for both the MC68000
+		 * and the MC68010.
+		 */
+
+con_part(sz,w) register sz; word w; {
+
+	while (part_size % sz)
+		part_size++;
+	if (part_size == 4)
+		part_flush();
+	if (sz == 1) {
+		w &= 0xFF;
+		w <<= 8*(3-part_size);
+		part_word |= w;
+	} else if (sz == 2) {
+		w &= 0xFFFF;
+		if (part_size == 0)
+			w <<= 16;
+		part_word |= w;
+	} else {
+		assert(sz == 4);
+		part_word = w;
+	}
+	part_size += sz;
+}
+
+con_mult(sz) word sz; {
+
+	if (sz != 4)
+		fatal("bad icon/ucon size");
+	fprintf(codefile,".data4 %s\n",str);
+}
+
+con_float() {
+
+static int been_here;
+	if (argval != 4 && argval != 8)
+		fatal("bad fcon size");
+	fprintf(codefile,".data4\t");
+	if (argval == 8)
+		fprintf(codefile,"F_DUM,");
+	fprintf(codefile,"F_DUM\n");
+	if ( !been_here++)
+	{
+	fprintf(stderr,"Warning : dummy float-constant(s)\n");
+	}
+}
+
+regscore(off,size,typ,score,totyp)
+	long off;
+{
+	if (score == 0) return -1;
+	switch(typ) {
+		case reg_float:
+			return -1;
+		case reg_pointer:
+			if (size != 4 || totyp != reg_pointer) return -1;
+			score *= 2;
+			break;
+		case reg_loop:
+			score += 5;
+			/* fall through .. */
+		case reg_any:
+			if (size != 4 || totyp == reg_pointer) return -1;
+			break;
+	}
+	if (off >= 0) {
+		/* parameters must be initialised with an instruction
+		 * like "move.l 4(a6),d0", which costs 2 words.
+		 */
+		score -= 2;
+	}
+	score -= 1; /* take save/restore into account */
+	return score;
+}
+struct regsav_t {
+	char	*rs_reg;	/* e.g. "a3" or "d5" */
+	long	rs_off;		/* offset of variable */
+	int	rs_size;	/* 2 or 4 bytes */
+} regsav[9];
+
+
+int regnr;
+
+i_regsave()
+{
+	regnr = 0;
+}
+
+#define MOVEM_LIMIT	2
+/* If #registers to be saved exceeds MOVEM_LIMIT, we
+* use the movem instruction to save registers; else
+* we simply use several move.l's.
+*/
+
+save()
+{
+	register struct regsav_t *p;
+
+	if (regnr > MOVEM_LIMIT) {
+		fprintf(codefile,"movem.l ");
+		for (p = regsav; ;) {
+			fprintf(codefile,"%s",p->rs_reg);
+			if (++p == &regsav[regnr]) break;
+			putc('/',codefile);
+		}
+		fprintf(codefile,",-(sp)\n");
+	} else {
+		for (p = regsav; p < &regsav[regnr]; p++) {
+			fprintf(codefile,"move.l %s,-(sp)\n",p->rs_reg);
+		}
+	}
+	/* initialise register-parameters */
+	for (p = regsav; p < &regsav[regnr]; p++) {
+		if (p->rs_off >= 0) {
+#ifdef m68020
+			fprintf(codefile,"move.%c (%ld,a6),%s\n",
+#else
+			fprintf(codefile,"move.%c %ld(a6),%s\n",
+#endif
+				(p->rs_size == 4 ? 'l' : 'w'),
+				p->rs_off,
+				p->rs_reg);
+		}
+	}
+}
+
+restr()
+{
+	register struct regsav_t *p;
+
+	if (regnr > MOVEM_LIMIT)  {
+		fprintf(codefile,"movem.l (sp)+,");
+		for (p = regsav; ;) {
+			fprintf(codefile,"%s",p->rs_reg);
+			if (++p == &regsav[regnr]) break;
+			putc('/',codefile);
+		}
+		putc('\n',codefile);
+	} else {
+		for (p = &regsav[regnr-1]; p >= regsav; p--) {
+			fprintf(codefile,"move.l (sp)+,%s\n",p->rs_reg);
+		}
+	}
+	fprintf(codefile,"unlk a6\n");
+	fprintf(codefile,"rts\n");
+}
+
+
+f_regsave()
+{
+	save();
+}
+
+regsave(str,off,size)
+	char *str;
+	long off;
+{
+	assert (regnr < 9);
+	regsav[regnr].rs_reg = str;
+	regsav[regnr].rs_off = off;
+	regsav[regnr++].rs_size = size;
+	fprintf(codefile, "!Local %ld into %s\n",off,str);
+}
+
+regreturn()
+{
+	restr();
+}
+
+
+prolog(nlocals) full nlocals; {
+
+#ifdef m68020
+	fprintf(codefile,"tst.b (-%ld,sp)\nlink\ta6,#-%ld\n",nlocals+40,nlocals);
+#else
+	fprintf(codefile,"tst.b -%ld(sp)\nlink\ta6,#-%ld\n",nlocals+40,nlocals);
+#endif
+}
+
+
+
+mes(type) word type ; {
+	int argt ;
+
+	switch ( (int)type ) {
+	case ms_ext :
+		for (;;) {
+			switch ( argt=getarg(
+			    ptyp(sp_cend)|ptyp(sp_pnam)|sym_ptyp) ) {
+			case sp_cend :
+				return ;
+			default:
+				strarg(argt) ;
+				fprintf(codefile,".define %s\n",argstr) ;
+				break ;
+			}
+		}
+	default :
+		while ( getarg(any_ptyp) != sp_cend ) ;
+		break ;
+	}
+}
+
+
+char    *segname[] = {
+	".sect .text",	/* SEGTXT */
+	".sect .data",	/* SEGCON */
+	".sect .rom",	/* SEGROM */
+	".sect .bss"	/* SEGBSS */
+};

mach/m68020/ncg/mach.h

@@ -0,0 +1,39 @@
+#ifndef m68k4
+#define m68020
+#endif
+			/* m68020 should be used for a m68020 cg, and it should
+			 * not be used for a m68k4 cg
+			 */
+
+#define ex_ap(y)	fprintf(codefile,".extern %s\n",y)
+#define in_ap(y)	/* nothing */
+
+#define newilb(x)	fprintf(codefile,"%s:\n",x)
+#define newdlb(x)	fprintf(codefile,"%s:\n",x)
+#define	dlbdlb(x,y)	fprintf(codefile,"%s = %s\n",x,y)
+#define newlbss(l,x)	fprintf(codefile,"%s:.space\t%ld\n",l,x);
+
+#define	pop_fmt		"(sp)+"
+#define cst_fmt		"%ld"
+#define	off_fmt		"%ld"
+#define ilb_fmt		"I%03x%x"
+#define dlb_fmt		"_%d"
+#define	hol_fmt		"hol%d"
+
+#ifdef m68020
+#define loc_off		"(%d,a6)"
+#define arg_off		"(8+%d,a6)"
+#else
+#define loc_off		"%d(a6)"
+#define arg_off		"8+%d(a6)"
+#endif
+#define hol_off		"%ld+hol%d"
+
+#define con_cst(x)	fprintf(codefile,".data4\t%ld\n",x)
+#define con_ilb(x)	fprintf(codefile,".data4\t%s\n",x)
+#define con_dlb(x)	fprintf(codefile,".data4\t%s\n",x)
+
+#define modhead		".sect .text\n.sect .rom\n.sect .data\n.sect .bss\n"
+
+#define id_first	'_'
+#define BSS_INIT	0

mach/m68k2/ncg/mach.c

@@ -0,0 +1,236 @@
+/*
+ * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
+ *
+ *          This product is part of the Amsterdam Compiler Kit.
+ *
+ * Permission to use, sell, duplicate or disclose this software must be
+ * obtained in writing. Requests for such permissions may be sent to
+ *
+ *      Dr. Andrew S. Tanenbaum
+ *      Wiskundig Seminarium
+ *      Vrije Universiteit
+ *      Postbox 7161
+ *      1007 MC Amsterdam
+ *      The Netherlands
+ *
+ */
+
+/*
+ * machine dependent back end routines for the Motorola 68000, 68010 or 68020
+ */
+
+#ifndef m68k4
+#define m68020
+#endif
+		/* use m68020 when you want a m68020 cg, don't if you want a
+		 * m68k4 cg. The m68k4 cg can be used for both the MC68000
+		 * and the MC68010.
+		 */
+
+con_part(sz,w) register sz; word w; {
+
+	while (part_size % sz)
+		part_size++;
+	if (part_size == 4)
+		part_flush();
+	if (sz == 1) {
+		w &= 0xFF;
+		w <<= 8*(3-part_size);
+		part_word |= w;
+	} else if (sz == 2) {
+		w &= 0xFFFF;
+		if (part_size == 0)
+			w <<= 16;
+		part_word |= w;
+	} else {
+		assert(sz == 4);
+		part_word = w;
+	}
+	part_size += sz;
+}
+
+con_mult(sz) word sz; {
+
+	if (sz != 4)
+		fatal("bad icon/ucon size");
+	fprintf(codefile,".data4 %s\n",str);
+}
+
+con_float() {
+
+static int been_here;
+	if (argval != 4 && argval != 8)
+		fatal("bad fcon size");
+	fprintf(codefile,".data4\t");
+	if (argval == 8)
+		fprintf(codefile,"F_DUM,");
+	fprintf(codefile,"F_DUM\n");
+	if ( !been_here++)
+	{
+	fprintf(stderr,"Warning : dummy float-constant(s)\n");
+	}
+}
+
+regscore(off,size,typ,score,totyp)
+	long off;
+{
+	if (score == 0) return -1;
+	switch(typ) {
+		case reg_float:
+			return -1;
+		case reg_pointer:
+			if (size != 4 || totyp != reg_pointer) return -1;
+			score *= 2;
+			break;
+		case reg_loop:
+			score += 5;
+			/* fall through .. */
+		case reg_any:
+			if (size != 4 || totyp == reg_pointer) return -1;
+			break;
+	}
+	if (off >= 0) {
+		/* parameters must be initialised with an instruction
+		 * like "move.l 4(a6),d0", which costs 2 words.
+		 */
+		score -= 2;
+	}
+	score -= 1; /* take save/restore into account */
+	return score;
+}
+struct regsav_t {
+	char	*rs_reg;	/* e.g. "a3" or "d5" */
+	long	rs_off;		/* offset of variable */
+	int	rs_size;	/* 2 or 4 bytes */
+} regsav[9];
+
+
+int regnr;
+
+i_regsave()
+{
+	regnr = 0;
+}
+
+#define MOVEM_LIMIT	2
+/* If #registers to be saved exceeds MOVEM_LIMIT, we
+* use the movem instruction to save registers; else
+* we simply use several move.l's.
+*/
+
+save()
+{
+	register struct regsav_t *p;
+
+	if (regnr > MOVEM_LIMIT) {
+		fprintf(codefile,"movem.l ");
+		for (p = regsav; ;) {
+			fprintf(codefile,"%s",p->rs_reg);
+			if (++p == &regsav[regnr]) break;
+			putc('/',codefile);
+		}
+		fprintf(codefile,",-(sp)\n");
+	} else {
+		for (p = regsav; p < &regsav[regnr]; p++) {
+			fprintf(codefile,"move.l %s,-(sp)\n",p->rs_reg);
+		}
+	}
+	/* initialise register-parameters */
+	for (p = regsav; p < &regsav[regnr]; p++) {
+		if (p->rs_off >= 0) {
+#ifdef m68020
+			fprintf(codefile,"move.%c (%ld,a6),%s\n",
+#else
+			fprintf(codefile,"move.%c %ld(a6),%s\n",
+#endif
+				(p->rs_size == 4 ? 'l' : 'w'),
+				p->rs_off,
+				p->rs_reg);
+		}
+	}
+}
+
+restr()
+{
+	register struct regsav_t *p;
+
+	if (regnr > MOVEM_LIMIT)  {
+		fprintf(codefile,"movem.l (sp)+,");
+		for (p = regsav; ;) {
+			fprintf(codefile,"%s",p->rs_reg);
+			if (++p == &regsav[regnr]) break;
+			putc('/',codefile);
+		}
+		putc('\n',codefile);
+	} else {
+		for (p = &regsav[regnr-1]; p >= regsav; p--) {
+			fprintf(codefile,"move.l (sp)+,%s\n",p->rs_reg);
+		}
+	}
+	fprintf(codefile,"unlk a6\n");
+	fprintf(codefile,"rts\n");
+}
+
+
+f_regsave()
+{
+	save();
+}
+
+regsave(str,off,size)
+	char *str;
+	long off;
+{
+	assert (regnr < 9);
+	regsav[regnr].rs_reg = str;
+	regsav[regnr].rs_off = off;
+	regsav[regnr++].rs_size = size;
+	fprintf(codefile, "!Local %ld into %s\n",off,str);
+}
+
+regreturn()
+{
+	restr();
+}
+
+
+prolog(nlocals) full nlocals; {
+
+#ifdef m68020
+	fprintf(codefile,"tst.b (-%ld,sp)\nlink\ta6,#-%ld\n",nlocals+40,nlocals);
+#else
+	fprintf(codefile,"tst.b -%ld(sp)\nlink\ta6,#-%ld\n",nlocals+40,nlocals);
+#endif
+}
+
+
+
+mes(type) word type ; {
+	int argt ;
+
+	switch ( (int)type ) {
+	case ms_ext :
+		for (;;) {
+			switch ( argt=getarg(
+			    ptyp(sp_cend)|ptyp(sp_pnam)|sym_ptyp) ) {
+			case sp_cend :
+				return ;
+			default:
+				strarg(argt) ;
+				fprintf(codefile,".define %s\n",argstr) ;
+				break ;
+			}
+		}
+	default :
+		while ( getarg(any_ptyp) != sp_cend ) ;
+		break ;
+	}
+}
+
+
+char    *segname[] = {
+	".sect .text",	/* SEGTXT */
+	".sect .data",	/* SEGCON */
+	".sect .rom",	/* SEGROM */
+	".sect .bss"	/* SEGBSS */
+};

mach/m68k2/ncg/mach.h

@@ -0,0 +1,39 @@
+#ifndef m68k4
+#define m68020
+#endif
+			/* m68020 should be used for a m68020 cg, and it should
+			 * not be used for a m68k4 cg
+			 */
+
+#define ex_ap(y)	fprintf(codefile,".extern %s\n",y)
+#define in_ap(y)	/* nothing */
+
+#define newilb(x)	fprintf(codefile,"%s:\n",x)
+#define newdlb(x)	fprintf(codefile,"%s:\n",x)
+#define	dlbdlb(x,y)	fprintf(codefile,"%s = %s\n",x,y)
+#define newlbss(l,x)	fprintf(codefile,"%s:.space\t%ld\n",l,x);
+
+#define	pop_fmt		"(sp)+"
+#define cst_fmt		"%ld"
+#define	off_fmt		"%ld"
+#define ilb_fmt		"I%03x%x"
+#define dlb_fmt		"_%d"
+#define	hol_fmt		"hol%d"
+
+#ifdef m68020
+#define loc_off		"(%d,a6)"
+#define arg_off		"(8+%d,a6)"
+#else
+#define loc_off		"%d(a6)"
+#define arg_off		"8+%d(a6)"
+#endif
+#define hol_off		"%ld+hol%d"
+
+#define con_cst(x)	fprintf(codefile,".data4\t%ld\n",x)
+#define con_ilb(x)	fprintf(codefile,".data4\t%s\n",x)
+#define con_dlb(x)	fprintf(codefile,".data4\t%s\n",x)
+
+#define modhead		".sect .text\n.sect .rom\n.sect .data\n.sect .bss\n"
+
+#define id_first	'_'
+#define BSS_INIT	0

mach/m68k4/ncg/mach.c

@@ -0,0 +1,236 @@
+/*
+ * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
+ *
+ *          This product is part of the Amsterdam Compiler Kit.
+ *
+ * Permission to use, sell, duplicate or disclose this software must be
+ * obtained in writing. Requests for such permissions may be sent to
+ *
+ *      Dr. Andrew S. Tanenbaum
+ *      Wiskundig Seminarium
+ *      Vrije Universiteit
+ *      Postbox 7161
+ *      1007 MC Amsterdam
+ *      The Netherlands
+ *
+ */
+
+/*
+ * machine dependent back end routines for the Motorola 68000, 68010 or 68020
+ */
+
+#ifndef m68k4
+#define m68020
+#endif
+		/* use m68020 when you want a m68020 cg, don't if you want a
+		 * m68k4 cg. The m68k4 cg can be used for both the MC68000
+		 * and the MC68010.
+		 */
+
+con_part(sz,w) register sz; word w; {
+
+	while (part_size % sz)
+		part_size++;
+	if (part_size == 4)
+		part_flush();
+	if (sz == 1) {
+		w &= 0xFF;
+		w <<= 8*(3-part_size);
+		part_word |= w;
+	} else if (sz == 2) {
+		w &= 0xFFFF;
+		if (part_size == 0)
+			w <<= 16;
+		part_word |= w;
+	} else {
+		assert(sz == 4);
+		part_word = w;
+	}
+	part_size += sz;
+}
+
+con_mult(sz) word sz; {
+
+	if (sz != 4)
+		fatal("bad icon/ucon size");
+	fprintf(codefile,".data4 %s\n",str);
+}
+
+con_float() {
+
+static int been_here;
+	if (argval != 4 && argval != 8)
+		fatal("bad fcon size");
+	fprintf(codefile,".data4\t");
+	if (argval == 8)
+		fprintf(codefile,"F_DUM,");
+	fprintf(codefile,"F_DUM\n");
+	if ( !been_here++)
+	{
+	fprintf(stderr,"Warning : dummy float-constant(s)\n");
+	}
+}
+
+regscore(off,size,typ,score,totyp)
+	long off;
+{
+	if (score == 0) return -1;
+	switch(typ) {
+		case reg_float:
+			return -1;
+		case reg_pointer:
+			if (size != 4 || totyp != reg_pointer) return -1;
+			score *= 2;
+			break;
+		case reg_loop:
+			score += 5;
+			/* fall through .. */
+		case reg_any:
+			if (size != 4 || totyp == reg_pointer) return -1;
+			break;
+	}
+	if (off >= 0) {
+		/* parameters must be initialised with an instruction
+		 * like "move.l 4(a6),d0", which costs 2 words.
+		 */
+		score -= 2;
+	}
+	score -= 1; /* take save/restore into account */
+	return score;
+}
+struct regsav_t {
+	char	*rs_reg;	/* e.g. "a3" or "d5" */
+	long	rs_off;		/* offset of variable */
+	int	rs_size;	/* 2 or 4 bytes */
+} regsav[9];
+
+
+int regnr;
+
+i_regsave()
+{
+	regnr = 0;
+}
+
+#define MOVEM_LIMIT	2
+/* If #registers to be saved exceeds MOVEM_LIMIT, we
+* use the movem instruction to save registers; else
+* we simply use several move.l's.
+*/
+
+save()
+{
+	register struct regsav_t *p;
+
+	if (regnr > MOVEM_LIMIT) {
+		fprintf(codefile,"movem.l ");
+		for (p = regsav; ;) {
+			fprintf(codefile,"%s",p->rs_reg);
+			if (++p == &regsav[regnr]) break;
+			putc('/',codefile);
+		}
+		fprintf(codefile,",-(sp)\n");
+	} else {
+		for (p = regsav; p < &regsav[regnr]; p++) {
+			fprintf(codefile,"move.l %s,-(sp)\n",p->rs_reg);
+		}
+	}
+	/* initialise register-parameters */
+	for (p = regsav; p < &regsav[regnr]; p++) {
+		if (p->rs_off >= 0) {
+#ifdef m68020
+			fprintf(codefile,"move.%c (%ld,a6),%s\n",
+#else
+			fprintf(codefile,"move.%c %ld(a6),%s\n",
+#endif
+				(p->rs_size == 4 ? 'l' : 'w'),
+				p->rs_off,
+				p->rs_reg);
+		}
+	}
+}
+
+restr()
+{
+	register struct regsav_t *p;
+
+	if (regnr > MOVEM_LIMIT)  {
+		fprintf(codefile,"movem.l (sp)+,");
+		for (p = regsav; ;) {
+			fprintf(codefile,"%s",p->rs_reg);
+			if (++p == &regsav[regnr]) break;
+			putc('/',codefile);
+		}
+		putc('\n',codefile);
+	} else {
+		for (p = &regsav[regnr-1]; p >= regsav; p--) {
+			fprintf(codefile,"move.l (sp)+,%s\n",p->rs_reg);
+		}
+	}
+	fprintf(codefile,"unlk a6\n");
+	fprintf(codefile,"rts\n");
+}
+
+
+f_regsave()
+{
+	save();
+}
+
+regsave(str,off,size)
+	char *str;
+	long off;
+{
+	assert (regnr < 9);
+	regsav[regnr].rs_reg = str;
+	regsav[regnr].rs_off = off;
+	regsav[regnr++].rs_size = size;
+	fprintf(codefile, "!Local %ld into %s\n",off,str);
+}
+
+regreturn()
+{
+	restr();
+}
+
+
+prolog(nlocals) full nlocals; {
+
+#ifdef m68020
+	fprintf(codefile,"tst.b (-%ld,sp)\nlink\ta6,#-%ld\n",nlocals+40,nlocals);
+#else
+	fprintf(codefile,"tst.b -%ld(sp)\nlink\ta6,#-%ld\n",nlocals+40,nlocals);
+#endif
+}
+
+
+
+mes(type) word type ; {
+	int argt ;
+
+	switch ( (int)type ) {
+	case ms_ext :
+		for (;;) {
+			switch ( argt=getarg(
+			    ptyp(sp_cend)|ptyp(sp_pnam)|sym_ptyp) ) {
+			case sp_cend :
+				return ;
+			default:
+				strarg(argt) ;
+				fprintf(codefile,".define %s\n",argstr) ;
+				break ;
+			}
+		}
+	default :
+		while ( getarg(any_ptyp) != sp_cend ) ;
+		break ;
+	}
+}
+
+
+char    *segname[] = {
+	".sect .text",	/* SEGTXT */
+	".sect .data",	/* SEGCON */
+	".sect .rom",	/* SEGROM */
+	".sect .bss"	/* SEGBSS */
+};

mach/m68k4/ncg/mach.h

@@ -0,0 +1,39 @@
+#ifndef m68k4
+#define m68020
+#endif
+			/* m68020 should be used for a m68020 cg, and it should
+			 * not be used for a m68k4 cg
+			 */
+
+#define ex_ap(y)	fprintf(codefile,".extern %s\n",y)
+#define in_ap(y)	/* nothing */
+
+#define newilb(x)	fprintf(codefile,"%s:\n",x)
+#define newdlb(x)	fprintf(codefile,"%s:\n",x)
+#define	dlbdlb(x,y)	fprintf(codefile,"%s = %s\n",x,y)
+#define newlbss(l,x)	fprintf(codefile,"%s:.space\t%ld\n",l,x);
+
+#define	pop_fmt		"(sp)+"
+#define cst_fmt		"%ld"
+#define	off_fmt		"%ld"
+#define ilb_fmt		"I%03x%x"
+#define dlb_fmt		"_%d"
+#define	hol_fmt		"hol%d"
+
+#ifdef m68020
+#define loc_off		"(%d,a6)"
+#define arg_off		"(8+%d,a6)"
+#else
+#define loc_off		"%d(a6)"
+#define arg_off		"8+%d(a6)"
+#endif
+#define hol_off		"%ld+hol%d"
+
+#define con_cst(x)	fprintf(codefile,".data4\t%ld\n",x)
+#define con_ilb(x)	fprintf(codefile,".data4\t%s\n",x)
+#define con_dlb(x)	fprintf(codefile,".data4\t%s\n",x)
+
+#define modhead		".sect .text\n.sect .rom\n.sect .data\n.sect .bss\n"
+
+#define id_first	'_'
+#define BSS_INIT	0

mach/moon3/ncg/mach.c

@@ -0,0 +1,236 @@
+/*
+ * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
+ *
+ *          This product is part of the Amsterdam Compiler Kit.
+ *
+ * Permission to use, sell, duplicate or disclose this software must be
+ * obtained in writing. Requests for such permissions may be sent to
+ *
+ *      Dr. Andrew S. Tanenbaum
+ *      Wiskundig Seminarium
+ *      Vrije Universiteit
+ *      Postbox 7161
+ *      1007 MC Amsterdam
+ *      The Netherlands
+ *
+ */
+
+/*
+ * machine dependent back end routines for the Motorola 68000, 68010 or 68020
+ */
+
+#ifndef m68k4
+#define m68020
+#endif
+		/* use m68020 when you want a m68020 cg, don't if you want a
+		 * m68k4 cg. The m68k4 cg can be used for both the MC68000
+		 * and the MC68010.
+		 */
+
+con_part(sz,w) register sz; word w; {
+
+	while (part_size % sz)
+		part_size++;
+	if (part_size == 4)
+		part_flush();
+	if (sz == 1) {
+		w &= 0xFF;
+		w <<= 8*(3-part_size);
+		part_word |= w;
+	} else if (sz == 2) {
+		w &= 0xFFFF;
+		if (part_size == 0)
+			w <<= 16;
+		part_word |= w;
+	} else {
+		assert(sz == 4);
+		part_word = w;
+	}
+	part_size += sz;
+}
+
+con_mult(sz) word sz; {
+
+	if (sz != 4)
+		fatal("bad icon/ucon size");
+	fprintf(codefile,".data4 %s\n",str);
+}
+
+con_float() {
+
+static int been_here;
+	if (argval != 4 && argval != 8)
+		fatal("bad fcon size");
+	fprintf(codefile,".data4\t");
+	if (argval == 8)
+		fprintf(codefile,"F_DUM,");
+	fprintf(codefile,"F_DUM\n");
+	if ( !been_here++)
+	{
+	fprintf(stderr,"Warning : dummy float-constant(s)\n");
+	}
+}
+
+regscore(off,size,typ,score,totyp)
+	long off;
+{
+	if (score == 0) return -1;
+	switch(typ) {
+		case reg_float:
+			return -1;
+		case reg_pointer:
+			if (size != 4 || totyp != reg_pointer) return -1;
+			score *= 2;
+			break;
+		case reg_loop:
+			score += 5;
+			/* fall through .. */
+		case reg_any:
+			if (size != 4 || totyp == reg_pointer) return -1;
+			break;
+	}
+	if (off >= 0) {
+		/* parameters must be initialised with an instruction
+		 * like "move.l 4(a6),d0", which costs 2 words.
+		 */
+		score -= 2;
+	}
+	score -= 1; /* take save/restore into account */
+	return score;
+}
+struct regsav_t {
+	char	*rs_reg;	/* e.g. "a3" or "d5" */
+	long	rs_off;		/* offset of variable */
+	int	rs_size;	/* 2 or 4 bytes */
+} regsav[9];
+
+
+int regnr;
+
+i_regsave()
+{
+	regnr = 0;
+}
+
+#define MOVEM_LIMIT	2
+/* If #registers to be saved exceeds MOVEM_LIMIT, we
+* use the movem instruction to save registers; else
+* we simply use several move.l's.
+*/
+
+save()
+{
+	register struct regsav_t *p;
+
+	if (regnr > MOVEM_LIMIT) {
+		fprintf(codefile,"movem.l ");
+		for (p = regsav; ;) {
+			fprintf(codefile,"%s",p->rs_reg);
+			if (++p == &regsav[regnr]) break;
+			putc('/',codefile);
+		}
+		fprintf(codefile,",-(sp)\n");
+	} else {
+		for (p = regsav; p < &regsav[regnr]; p++) {
+			fprintf(codefile,"move.l %s,-(sp)\n",p->rs_reg);
+		}
+	}
+	/* initialise register-parameters */
+	for (p = regsav; p < &regsav[regnr]; p++) {
+		if (p->rs_off >= 0) {
+#ifdef m68020
+			fprintf(codefile,"move.%c (%ld,a6),%s\n",
+#else
+			fprintf(codefile,"move.%c %ld(a6),%s\n",
+#endif
+				(p->rs_size == 4 ? 'l' : 'w'),
+				p->rs_off,
+				p->rs_reg);
+		}
+	}
+}
+
+restr()
+{
+	register struct regsav_t *p;
+
+	if (regnr > MOVEM_LIMIT)  {
+		fprintf(codefile,"movem.l (sp)+,");
+		for (p = regsav; ;) {
+			fprintf(codefile,"%s",p->rs_reg);
+			if (++p == &regsav[regnr]) break;
+			putc('/',codefile);
+		}
+		putc('\n',codefile);
+	} else {
+		for (p = &regsav[regnr-1]; p >= regsav; p--) {
+			fprintf(codefile,"move.l (sp)+,%s\n",p->rs_reg);
+		}
+	}
+	fprintf(codefile,"unlk a6\n");
+	fprintf(codefile,"rts\n");
+}
+
+
+f_regsave()
+{
+	save();
+}
+
+regsave(str,off,size)
+	char *str;
+	long off;
+{
+	assert (regnr < 9);
+	regsav[regnr].rs_reg = str;
+	regsav[regnr].rs_off = off;
+	regsav[regnr++].rs_size = size;
+	fprintf(codefile, "!Local %ld into %s\n",off,str);
+}
+
+regreturn()
+{
+	restr();
+}
+
+
+prolog(nlocals) full nlocals; {
+
+#ifdef m68020
+	fprintf(codefile,"tst.b (-%ld,sp)\nlink\ta6,#-%ld\n",nlocals+40,nlocals);
+#else
+	fprintf(codefile,"tst.b -%ld(sp)\nlink\ta6,#-%ld\n",nlocals+40,nlocals);
+#endif
+}
+
+
+
+mes(type) word type ; {
+	int argt ;
+
+	switch ( (int)type ) {
+	case ms_ext :
+		for (;;) {
+			switch ( argt=getarg(
+			    ptyp(sp_cend)|ptyp(sp_pnam)|sym_ptyp) ) {
+			case sp_cend :
+				return ;
+			default:
+				strarg(argt) ;
+				fprintf(codefile,".define %s\n",argstr) ;
+				break ;
+			}
+		}
+	default :
+		while ( getarg(any_ptyp) != sp_cend ) ;
+		break ;
+	}
+}
+
+
+char    *segname[] = {
+	".sect .text",	/* SEGTXT */
+	".sect .data",	/* SEGCON */
+	".sect .rom",	/* SEGROM */
+	".sect .bss"	/* SEGBSS */
+};

mach/moon3/ncg/mach.h

@@ -0,0 +1,39 @@
+#ifndef m68k4
+#define m68020
+#endif
+			/* m68020 should be used for a m68020 cg, and it should
+			 * not be used for a m68k4 cg
+			 */
+
+#define ex_ap(y)	fprintf(codefile,".extern %s\n",y)
+#define in_ap(y)	/* nothing */
+
+#define newilb(x)	fprintf(codefile,"%s:\n",x)
+#define newdlb(x)	fprintf(codefile,"%s:\n",x)
+#define	dlbdlb(x,y)	fprintf(codefile,"%s = %s\n",x,y)
+#define newlbss(l,x)	fprintf(codefile,"%s:.space\t%ld\n",l,x);
+
+#define	pop_fmt		"(sp)+"
+#define cst_fmt		"%ld"
+#define	off_fmt		"%ld"
+#define ilb_fmt		"I%03x%x"
+#define dlb_fmt		"_%d"
+#define	hol_fmt		"hol%d"
+
+#ifdef m68020
+#define loc_off		"(%d,a6)"
+#define arg_off		"(8+%d,a6)"
+#else
+#define loc_off		"%d(a6)"
+#define arg_off		"8+%d(a6)"
+#endif
+#define hol_off		"%ld+hol%d"
+
+#define con_cst(x)	fprintf(codefile,".data4\t%ld\n",x)
+#define con_ilb(x)	fprintf(codefile,".data4\t%s\n",x)
+#define con_dlb(x)	fprintf(codefile,".data4\t%s\n",x)
+
+#define modhead		".sect .text\n.sect .rom\n.sect .data\n.sect .bss\n"
+
+#define id_first	'_'
+#define BSS_INIT	0