Bug fixed in pattern sti $1 > 4 (ADDREG -> ADDSCR)

Definition of EM_BSIZE removed.

first/local.h.src

@@ -0,0 +1,7 @@
+/* collection of options, selected by including or excluding 'defines' */
+
+/* Version number of the EM object code */
+#	define	VERSION		3	/* 16 bits number */
+
+/* The default machine used by ack, acc, apc */
+#	define	ACKM		"pdp"

mach/m68k2/cg/mach.c

@@ -0,0 +1,274 @@
+#ifndef NORCSID
+static char rcsid[] = "$Header$";
+#endif
+
+/*
+ * (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
+ */
+
+con_part(sz,w) register sz; word w; {
+
+	while (part_size % sz)
+		part_size++;
+	if (part_size == TEM_WSIZE)
+		part_flush();
+	if (sz == 1) {
+		w &= 0xFF;
+		if (part_size == 0)
+			w <<= 8;
+		part_word |= w;
+	} else {
+		assert(sz == 2);
+		part_word = w;
+	}
+	part_size += sz;
+}
+
+con_mult(sz) word sz; {
+
+	if (sz != 4)
+		fatal("bad icon/ucon size");
+	fprintf(codefile,".long %s\n",str);
+}
+
+con_float() {
+
+static int been_here;
+	if (argval != 4 && argval != 8)
+		fatal("bad fcon size");
+	fprintf(codefile,".long\t");
+	if (argval == 8)
+		fprintf(codefile,"F_DUM,");
+	fprintf(codefile,"F_DUM\n");
+	if ( !been_here++)
+	{
+	fprintf(stderr,"Warning : dummy float-constant(s)\n");
+	}
+}
+
+#ifdef REGVARS
+
+
+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 != 2 || totyp == reg_pointer) return -1;
+			break;
+	}
+	if (off >= 0) {
+		/* parameters must be initialised with an instruction
+		 * like "move.w 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;
+int nr_a_regs,nr_d_regs;
+int TEM_BSIZE;
+static long nlocals;
+
+prolog(n)
+{	nlocals = n; }
+
+
+i_regsave()
+{
+	regnr = 0;
+	nr_a_regs = 0;
+	nr_d_regs = 0;
+	TEM_BSIZE = 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;
+	int i;
+
+	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 {
+		/* Note that the order in which the registers are saved
+		 * is important; it is used by gto.s.
+		 */
+		for (i = 0; i < nr_a_regs; i++) {
+			fprintf(codefile,"move.l a%d,-(sp)\n",5-i);
+		}
+		for (i = 0; i < nr_d_regs; i++) {
+			fprintf(codefile,"move.l d%d,-(sp)\n",7-i);
+		}
+	}
+	/* Push a mask that indicates which registers were saved */
+	assert(nr_d_regs < 8 && nr_a_regs < 8);
+	if (nr_d_regs == 0 && nr_a_regs == 0) {
+		fprintf(codefile,"clr.w -(sp)\n");
+	} else {
+		fprintf(codefile,"move.w #%d,-(sp)\n",
+			nr_d_regs + (nr_a_regs<<3));
+	}
+
+	/* Compute AB - LB */
+	TEM_BSIZE = 4 * (nr_d_regs + nr_a_regs) + 10;
+
+	/* allocate space for local variables */
+	fprintf(codefile,"tst.b -%D(sp)\nlink\ta6,#-%D\n",nlocals+40,nlocals);
+
+	/* initialise register-parameters */
+	for (p = regsav; p < &regsav[regnr]; p++) {
+		if (p->rs_off >= 0) {
+			fprintf(codefile,"move.%c %ld(a6),%s\n",
+				(p->rs_size == 4 ? 'l' : 'w'),
+				p->rs_off + TEM_BSIZE,
+				p->rs_reg);
+		}
+	}
+}
+
+restr()
+{
+	register struct regsav_t *p;
+	int i;
+
+	fprintf(codefile,"unlk a6\n");
+	fprintf(codefile,"add.l #2,sp\n"); /* pop mask */
+	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 (i = nr_d_regs - 1; i >= 0; i--) {
+			fprintf(codefile,"move.l (sp)+,d%d\n",7-i);
+		}
+		for (i = nr_a_regs - 1; i >= 0; i--) {
+			fprintf(codefile,"move.l (sp)+,a%d\n",5-i);
+		}
+	}
+	fprintf(codefile,"rts\n");
+}
+
+
+f_regsave()
+{
+	save();
+}
+
+regsave(str,off,size)
+	char *str;
+	long off;
+{
+	assert (regnr < 9);
+	regsav[regnr].rs_reg = str;
+	if (str[0] == 'a') {
+		nr_a_regs++;
+	} else {
+		assert(str[0] == 'd');
+		nr_d_regs++;
+	}
+	regsav[regnr].rs_off = off;
+	regsav[regnr++].rs_size = size;
+	fprintf(codefile, "!Local %ld into %s\n",off,str);
+}
+
+regreturn()
+{
+	restr();
+}
+
+#endif
+
+#ifndef REGVARS
+
+prolog(nlocals) full nlocals; {
+
+	fprintf(codefile,"tst.b -%D(sp)\nlink\ta6,#-%D\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[] = {
+	".text",        /* SEGTXT */
+	".data",        /* SEGCON */
+	".data",        /* SEGROM */
+	".bss"          /* SEGBSS */
+};

mach/m68k4/libem/dvi.s

@@ -0,0 +1,42 @@
+.define .dvi
+
+ ! signed long divide
+	.text
+.dvi:
+	movem.l	d0/d2,.savdvi
+	move.l	(sp)+,.retdvi
+	move.l	(sp)+,d0
+	move.l	(sp)+,d1
+	clr.l	d4
+	tst.l	d0	! divisor
+	bpl	1f
+	neg.l	d0
+	not	d4
+1:
+	tst.l	d1	! dividend
+	bpl	2f
+	neg.l	d1
+	not	d4
+	swap	d4
+	not	d4
+	swap	d4
+2:
+	move.l	d1,-(sp)
+	move.l	d0,-(sp)
+	jsr	.dvu
+	tst	d4
+	beq	5f
+	neg.l	d1	! quotient
+5:
+	tst.l	d4
+	bpl	6f
+	neg.l	d3	! remainder
+6:
+	movem.l .savdvi,d0/d2
+	move.l	.retdvi,-(sp)
+	rts
+.data
+.savdvi:	.space 8
+.retdvi:	.long 0
+.text
+.align 2

util/ass/Makefile

@@ -0,0 +1,78 @@
+d=../..
+l=$d/mach/m68k2/lib
+h=$d/h
+ASS_PATH=$l/em_ass
+CC=pmds
+
+SEP_OPT=-n
+
+CFLAGS=-O -.c
+
+all:            ass$(SEP_OPT)
+
+clean:
+		-rm -f ass-i ass-n *.o maktab *.old asstb.c
+
+install :       all
+		cp ass$(SEP_OPT) $(ASS_PATH)
+
+cmp :           all
+		cmp ass$(SEP_OPT) $(ASS_PATH)
+
+lint:           ass00.c ass30.c ass40.c ass50.c ass60.c ass70.c \
+			ass80.c assci.c assda.c assrl.c asstb.c asscm.c
+		lint -hpvbx \
+			ass00.c ass30.c ass40.c ass50.c ass60.c ass70.c \
+			ass80.c assci.c assda.c assrl.c asstb.c asscm.c
+
+
+ass-n:       ass00.o ass30.o ass40.o ass50.o ass60.o ass70.o \
+			ass80.o assci.o assda.o assrl.o asstb.o asscm.o \
+			$l/em_data.a
+		$(CC) $(CFLAGS) -s -o ass-n \
+			ass00.o ass30.o ass40.o ass50.o ass60.o ass70.o \
+			ass80.o assci.o assda.o assrl.o asstb.o asscm.o \
+			$l/em_data.a >ass.symb
+
+ass-i:       ass00.o ass30.o ass40.o ass50.o ass60.o ass70.o \
+			ass80.o assci.o assda.o assrl.o asstb.o asscm.o \
+			$l/em_data.a
+		$(CC) -i $(CFLAGS) -o ass-i \
+			ass00.o ass30.o ass40.o ass50.o ass60.o ass70.o \
+			ass80.o assci.o assda.o assrl.o asstb.o asscm.o \
+			$l/em_data.a
+
+ass00.o ass40.o ass60.o ass70.o ass80.o assrl.o: \
+		$h/local.h $h/em_spec.h $h/as_spec.h \
+		$h/em_flag.h $h/arch.h ass00.h assex.h
+
+assci.o:        $h/local.h $h/em_spec.h $h/as_spec.h \
+		$h/em_flag.h $h/em_mes.h $h/em_pseu.h \
+		$h/em_ptyp.h $h/arch.h ass00.h assex.h
+
+ass30.o ass50.o : \
+		$h/local.h $h/em_spec.h $h/as_spec.h \
+		$h/em_flag.h ip_spec.h ass00.h assex.h
+
+ass80.o:        $h/em_path.h
+
+assda.o:        $h/local.h $h/em_spec.h $h/as_spec.h \
+		$h/em_flag.h $h/arch.h ass00.h
+
+asscm.o:        ass00.h
+
+asstb.o:        asstb.c
+
+asstb.c:        maktab ip_spec.t
+		maktab ip_spec.t asstb.c
+
+maktab:         maktab.c $h/em_spec.h ip_spec.h $h/em_flag.h \
+		$l/em_data.a
+		$(CC) -O -o maktab maktab.c $l/em_data.a
+
+opr:
+		make pr ^ opr
+
+pr:
+		@(pr ass00.h assex.h ip_spec.h ass?0.c ass[rcd]?.c \
+		maktab.c ; pr -3 ip_spec.t)

util/cmisc/tabgen.c

@@ -1,339 +0,0 @@
-/*
- * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
- * See the copyright notice in the ACK home directory, in the file "Copyright".
- */
-/*
-	chtabgen - character table generator 
-
-	Author: Erik Baalbergen (..tjalk!erikb)
-	Many mods by Ceriel Jacobs
-*/
-
-#include <stdio.h> 
-
-#ifndef NORCSID
-static char *RcsId = "$Id$";
-#endif
-
-#define MAXBUF	256
-#define MAXTAB 10000
-#define COMCOM	'-'
-#define FILECOM	'%'
-
-int InputForm = 'c';	/* default input format (and, currently, only one) */
-char OutputForm[MAXBUF] = "%s,\n";
-			/* format for spitting out a string */
-char *Table[MAXTAB];
-char *ProgCall;		/* callname of this program */
-int TabSize = 128;	/* default size of generated table */
-char *InitialValue;	/* initial value of all table entries */
-
-extern char *malloc(), *strcpy();
-
-main(argc, argv)
-	char *argv[];
-{
-
-	ProgCall = *argv++;
-	argc--;
-	while (argc-- > 0) {
-		if (**argv == COMCOM) {
-			option(*argv++);
-		}
-		else {
-			if (! process(*argv++, InputForm)) {
-				exit(1);
-			}
-		}
-	}
-	exit(0);
-	/*NOTREACHED*/
-}
-
-char *
-Salloc(s)
-	char *s;
-{
-	char *ns = malloc((unsigned)strlen(s) + 1);
-
-	if (ns) {
-		strcpy(ns, s);
-	}
-	else {
-		fprintf(stderr, "%s: out of memory\n", ProgCall);
-		exit(1);
-	}
-	return ns;
-}
-
-option(str)
-	char *str;
-{
-	/*	note that *str indicates the source of the option:
-		either COMCOM (from command line) or FILECOM (from a file).
-	*/
-	switch (*++str) {
-
-	case ' ':	/* command */
-	case '\t':
-	case '\0':
-		break;
-	case 'I':	/* for future extension */
-		InputForm = *++str;
-		break;
-	case 'f':	/* input from file ... */
-		if (*++str == '\0') {
-			fprintf(stderr, "%s: -f: name expected\n", ProgCall);
-			exit(1);
-		}
-		DoFile(str);
-		break;
-	case 'F':	/* new output format string */
-		sprintf(OutputForm, "%s\n", ++str);
-		break;
-	case 'T':	/* insert text literally */
-		printf("%s\n", ++str);
-		break;
-	case 'p':	/* print table */
-		PrintTable();
-		break;
-	case 'C':	/* clear table */
-		InitTable((char *)0);
-		break;
-	case 'i':	/* initialize table with given value */
-		if (*++str == '\0') {
-			InitTable((char *)0);
-		}
-		else	InitTable(str);
-		break;
-	case 'S':
-	{
-		int i = atoi(++str);
-
-		if (i <= 0 || i > MAXTAB) {
-			fprintf(stderr, "%s: size would exceed maximum\n",
-				ProgCall);
-		}
-		else {
-			TabSize = i;
-		}
-		break;
-	}
-	default:
-		fprintf(stderr, "%s: bad option -%s\n", ProgCall, str);
-	}
-}
-
-InitTable(ival)
-	char *ival;
-{
-	int i;
-
-	for (i = 0; i < TabSize; i++) {
-		Table[i] = 0;
-	}
-	InitialValue = 0;
-	if (ival) {
-		InitialValue = Salloc(ival);
-	}
-}
-
-PrintTable()
-{
-	int i;
-
-	for (i = 0; i < TabSize; i++) {
-		if (Table[i]) {
-			printf(OutputForm, Table[i]);
-		}
-		else if (InitialValue) {
-			printf(OutputForm, InitialValue);
-		}
-		else {
-			printf(OutputForm, "0");
-		}
-	}
-}
-
-int
-process(str, format)
-	char *str;
-{
-	char *cstr = str;
-	char *Name = cstr;	/* overwrite original string!	*/
-
-	/* strip of the entry name
-	*/
-	while (*str && *str != ':') {
-		if (*str == '\\') {
-			++str;
-		}
-		*cstr++ = *str++;
-	}
-
-	if (*str != ':') {
-		fprintf(stderr, "%s: bad specification: \"%s\", ignored\n",
-			ProgCall, Name);
-		return 0;
-	}
-	*cstr = '\0';
-	str++;
-
-	switch (format) {
-
-	case 'c':
-		return c_proc(str, Name);
-	default:
-		fprintf(stderr, "%s: bad input format\n", ProgCall);
-	}
-	return 0;
-}
-
-c_proc(str, Name)
-	char *str;
-	char *Name;
-{
-	int ch, ch2;
-	int quoted();
-	char *name = Salloc(Name);
-
-	while (*str)	{
-		if (*str == '\\')	{
-			ch = quoted(&str);
-		}
-		else	{
-			ch = *str++ & 0377;
-		}
-		if (*str == '-')	{
-			if (*++str == '\\')	{
-				ch2 = quoted(&str);
-			}
-			else	{
-				if (ch2 = (*str++ & 0377));
-				else str--;
-			}
-			if (ch > ch2) {
-				fprintf(stderr, "%s: bad range\n", ProgCall);
-				return 0;
-			}
-			while (ch <= ch2) {
-				if (! setval(ch, name)) return 0;
-				ch++;
-			}
-		}
-		else	{
-			if (! setval(ch, name)) return 0;
-		}
-	}
-	return 1;
-}
-
-int
-setval(ch, nm)
-	char *nm;
-{
-	char **p = &Table[ch];
-
-	if (ch < 0 || ch >= TabSize) {
-		fprintf(stderr, "Illegal index: %d\n", ch);
-		return 0;
-	}
-	if (*(p = &Table[ch])) {
-		fprintf(stderr, "Warning: redefinition of index %d\n", ch);
-	}
-	*p = nm;
-	return 1;
-}
-
-int
-quoted(pstr)
-	char **pstr;
-{
-	int ch;
-	int i;
-	char *str = *pstr;
-
-	if ((*++str >= '0') && (*str <= '9'))	{
-		ch = 0;
-		for (i = 0; i < 3; i++)	{
-			ch = 8 * ch + (*str - '0');
-			if (*++str < '0' || *str > '9')
-				break;
-		}
-	}
-	else	{
-		switch (*str++)	{
-		case 'n':
-			ch = '\n';
-			break;
-		case 't':
-			ch = '\t';
-			break;
-		case 'b':
-			ch = '\b';
-			break;
-		case 'r':
-			ch = '\r';
-			break;
-		case 'f':
-			ch = '\f';
-			break;
-		case 'v':
-			ch = 013;
-			break;
-		default :
-			ch = *(str - 1);
-			break;
-		}
-	}
-	*pstr = str;
-	return ch & 0377;
-}
-
-char *
-getline(s, n, fp)
-	char *s;
-	FILE *fp;
-{
-	int c = getc(fp);
-	char *str = s;
-
-	while (n--) {
-		if (c == EOF) {
-			return NULL;
-		}
-		else
-		if (c == '\n') {
-			*str++ = '\0';
-			return s;
-		}
-		*str++ = c;
-		c = getc(fp);
-	}
-	s[n - 1] = '\0';
-	return s;
-}
-
-#define BUFSIZE 1024
-
-DoFile(name)
-	char *name;
-{
-	char text[BUFSIZE];
-	FILE *fp;
-
-	if ((fp = fopen(name, "r")) == NULL) {
-		fprintf(stderr, "%s: cannot read file %s\n", ProgCall, name);
-		exit(1);
-	}
-	while (getline(text, BUFSIZE, fp) != NULL) {
-		if (text[0] == FILECOM) {
-			option(text);
-		}
-		else {
-			if (! process(text, InputForm)) {
-				exit(1);
-			}
-		}
-	}
-}