Browse Source

Check in incomplete Linux PowerPC and M68K work.

--HG--
branch : dtrg-experimental-powerpc
David Given 11 years ago
parent
commit
c93cb69959
70 changed files with 885 additions and 804 deletions
  1. 2 0
      h/cgg_cg.h
  2. 4 1
      h/out.h
  3. 2 2
      mach/m68020/libem/dia.s
  4. 1 1
      mach/m68020/libem/nop.s
  5. 1 1
      mach/m68020/libem/trp.s
  6. 1 0
      mach/m68020/libem/trpstr.c
  7. 11 9
      mach/m68020/libend/em_end.s
  8. 5 5
      mach/m68020/ncg/table
  9. 1 1
      mach/m68020/ncg/whichone.h
  10. 9 15
      mach/m68020/pmfile
  11. 4 5
      mach/powerpc/ncg/table
  12. 2 1
      mach/proto/as/comm0.h
  13. 1 0
      mach/proto/ncg/assert.h
  14. 23 1
      mach/proto/ncg/codegen.c
  15. 2 0
      mach/proto/ncg/equiv.c
  16. 6 0
      mach/proto/ncg/extern.h
  17. 0 2
      mach/proto/ncg/fillem.c
  18. 2 0
      mach/proto/ncg/move.c
  19. 2 0
      mach/proto/ncg/nextem.c
  20. 6 4
      mach/proto/ncg/pmfile
  21. 2 0
      mach/proto/ncg/reg.c
  22. 2 0
      mach/proto/ncg/regvar.c
  23. 1 0
      mach/proto/ncg/salloc.c
  24. 2 0
      mach/proto/ncg/state.c
  25. 0 14
      plat/linux386/libsys/_exit.c
  26. 0 20
      plat/linux386/libsys/_hol0.s
  27. 0 2
      plat/linux386/libsys/_syscall.s
  28. 0 13
      plat/linux386/libsys/brk.c
  29. 0 14
      plat/linux386/libsys/close.c
  30. 0 13
      plat/linux386/libsys/creat.c
  31. 0 28
      plat/linux386/libsys/errno.s
  32. 0 14
      plat/linux386/libsys/getpid.c
  33. 0 16
      plat/linux386/libsys/gettimeofday.c
  34. 0 13
      plat/linux386/libsys/isatty.c
  35. 0 14
      plat/linux386/libsys/kill.c
  36. 0 15
      plat/linux386/libsys/libsys.h
  37. 0 14
      plat/linux386/libsys/lseek.c
  38. 0 25
      plat/linux386/libsys/open.c
  39. 3 23
      plat/linux386/libsys/pmfile
  40. 0 14
      plat/linux386/libsys/read.c
  41. 0 15
      plat/linux386/libsys/remove.c
  42. 0 35
      plat/linux386/libsys/sbrk.c
  43. 0 14
      plat/linux386/libsys/signal.c
  44. 0 328
      plat/linux386/libsys/syscalls.h
  45. 0 15
      plat/linux386/libsys/unlink.c
  46. 0 14
      plat/linux386/libsys/write.c
  47. 26 0
      plat/linuxppc/.distr
  48. 42 0
      plat/linuxppc/README
  49. 56 0
      plat/linuxppc/boot.s
  50. 81 0
      plat/linuxppc/descr
  51. 18 0
      plat/linuxppc/include/ack/config.h
  52. 76 0
      plat/linuxppc/include/sys/ioctl.h
  53. 123 0
      plat/linuxppc/include/unistd.h
  54. 53 0
      plat/linuxppc/libsys/_syscall.s
  55. 14 0
      plat/linuxppc/libsys/pmfile
  56. 108 0
      plat/linuxppc/libsys/trap.s
  57. 48 0
      plat/linuxppc/pmfile
  58. 9 1
      pmfile
  59. 12 6
      util/amisc/ashow.c
  60. 3 1
      util/led/ack.out.5
  61. 2 2
      util/led/pmfile
  62. 83 43
      util/led/relocate.c
  63. 9 5
      util/ncgg/cgg.y
  64. 9 0
      util/ncgg/coerc.c
  65. 1 0
      util/ncgg/extern.h
  66. 2 0
      util/ncgg/keywords
  67. 9 0
      util/ncgg/output.c
  68. 4 4
      util/ncgg/param.h
  69. 1 21
      util/ncgg/pmfile
  70. 1 0
      util/ncgg/pseudo.h

+ 2 - 0
h/cgg_cg.h

@@ -39,6 +39,7 @@
 #define DO_TOSTACK	23
 #define DO_KILLREG	24
 #define DO_LABDEF	25
+#define DO_STACKADJUST	26
 
 #ifndef MAXATT
 #define MAXATT TOKENSIZE
@@ -133,6 +134,7 @@ typedef struct exprnode *node_p;
 #define EX_ISROM	44
 #define EX_TOPELTSIZE	45
 #define EX_FALLTHROUGH	46
+#define EX_STACKOFFSET	47
 
 
 typedef struct {        /* to stack coercions */

+ 4 - 1
h/out.h

@@ -61,7 +61,10 @@ struct outname {
 #define RELSZ	0x07			/* relocation length */
 #define RELO1	   1			/* 1 byte */
 #define RELO2	   2			/* 2 bytes */
-#define RELO4	   4			/* 4 bytes */
+#define RELO4	   3			/* 4 bytes */
+#define RELOPPC    4            /* PowerPC 26-bit address */
+#define RELOH2     5            /* write top 2 bytes of 4 byte word */
+
 #define RELPC	0x08			/* pc relative */
 #define RELBR	0x10			/* High order byte lowest address. */
 #define RELWR	0x20			/* High order word lowest address. */

+ 2 - 2
mach/m68020/libem/dia.s

@@ -14,8 +14,8 @@ del	= 0177
 .sect .text
 .diagnos:
 	movem.l	d0/d1/d2/a0, -(sp)
-	move.l	(.lino), -(sp)
-	move.l	(.filn), d2
+	move.l	(hol0), -(sp)
+	move.l	(hol0+4), d2
 	beq	1f
 	move.l	d2, a0
 	move.l	#40, d0

+ 1 - 1
mach/m68020/libem/nop.s

@@ -9,7 +9,7 @@
 	move.l	(.limhp),-(sp)
 	move.l	(.reghp),-(sp)
 	pea	(12, sp)
-	move.l	(.lino),-(sp)
+	move.l	(hol0),-(sp)
 	pea	(fmt)
 	jsr	(.diagnos)
 	lea	(20, sp), sp

+ 1 - 1
mach/m68020/libem/trp.s

@@ -15,7 +15,7 @@ fmt:	.asciz "%s\n"
 	move.l	d0, (12, sp)
 	cmp.l	#16, d0
 	bcc	1f
-	move.l	(.trpim), d1
+	move.l	(.ignmask), d1
 	btst	d0, d1
 	bne	3f
 1:

+ 1 - 0
mach/m68020/libem/trpstr.c

@@ -1,4 +1,5 @@
 #include <em_abs.h>
+
 char *
 _trpstr(d)
 {

+ 11 - 9
mach/m68020/libend/em_end.s

@@ -1,22 +1,24 @@
+! $Source: /cvsroot/tack/Ack/mach/i386/libend/em_end.s,v $
+! $State: Exp $
+! $Revision: 1.2 $
+
 .sect .text
 .sect .rom
 .sect .data
 .sect .bss
-.define	endtext,enddata,endbss,__end
-.sect .text
-	.align 4
-.sect .rom
-	.align 4
-.sect .data
-	.align 4
-.sect .bss
-	.align 4
 .sect .end ! only for declaration of _end, __end and endbss.
+.define	endtext, endrom, enddata, endbss, __end
 
 	.sect .text
+	.align 4
 endtext:
+	.sect .rom
+	.align 4
+endrom:
 	.sect .data
+	.align 4
 enddata:
 	.sect .end
+	.align 4
 __end:
 endbss:

+ 5 - 5
mach/m68020/ncg/table

@@ -5840,7 +5840,7 @@ with any_int STACK
 	jsr {absolute4, ".exg"}
 
 pat fil
-    gen move_l {ext_addr, $1}, {absolute4, ".filn"}
+    gen move_l {ext_addr, $1}, {absolute4, "hol0+4"}
 
 pat gto
 with STACK
@@ -5854,15 +5854,15 @@ with STACK
 	jmp {indirect4, %a}
 #endif
 
-pat lim			yields	{absolute_int, ".trpim"}
+pat lim			yields	{absolute_int, ".ignmask"}
 
 pat lin
     kills posextern
-    gen move_i {const, $1}, {absolute_int, ".lino"}
+    gen move_i {const, $1}, {absolute_int, "hol0"}
     
 pat lni
     kills posextern
-    gen add_i {const, 1}, {absolute_int, ".lino"}
+    gen add_i {const, 1}, {absolute_int, "hol0"}
 
 pat lor $1==0		yields	lb
 
@@ -5955,7 +5955,7 @@ with any4
 pat sim
 with any_int
     kills posextern
-    gen move_i %1, {absolute_int, ".trpim"}
+    gen move_i %1, {absolute_int, ".ignmask"}
 
 pat str $1==0
 with any4 STACK

+ 1 - 1
mach/m68020/ncg/whichone.h

@@ -6,4 +6,4 @@
 
 #define	WORD_SIZE	4	/* should be 2 or 4 */
 #define TBL68020	1	/* should be TBL68020 or TBL68000 */
-/* #define TBL68881	1 	/* use floating point processor */
+#define TBL68881	1 	/* use floating point processor */

+ 9 - 15
mach/m68020/pmfile

@@ -3,6 +3,9 @@
 
 local d = ROOTDIR.."mach/m68020/"
 
+include (d.."libem/pmfile")
+include (d.."libend/pmfile")
+
 mach_m68020 = group {
 	ARCH = "m68020",
 	
@@ -10,20 +13,11 @@ mach_m68020 = group {
 	proto_ncg { ARCHDIR = "m68020" },
 	proto_top,
 	ego_descr,
-	
-	install = {
-		pm.install("%ROOTDIR%/lib/%ARCH%/descr", "%BINDIR%%PLATIND%/%ARCH%/descr"),
-	}
 }
 
--- Revision history
--- $Log$
--- Revision 1.3  2006-07-22 12:31:19  dtrg
--- Added support for the top target peephole optimiser.
---
--- Revision 1.2  2006/07/22 00:52:01  dtrg
--- Added support for the ego global optimisation suite.
---
--- Revision 1.1  2006/07/20 23:18:18  dtrg
--- First version in CVS.
---
+support_m68020 = group {
+	OPTIMISATION = "-O6",
+
+	libem_m68020,
+	libend_m68020,
+}

+ 4 - 5
mach/powerpc/ncg/table

@@ -53,12 +53,12 @@ PROPERTIES
 	GPR24 GPR25 GPR26 GPR27 GPR28 GPR29 GPR30 GPR31
 	
 	CR0   CR1
-	
+
 	FPR0  FPR1  FPR2  FPR3  FPR4  FPR5  FPR6  FPR7
 	FPR8  FPR9  FPR10 FPR11 FPR12 FPR13 FPR14 FPR15
 	FPR16 FPR17 FPR18 FPR19 FPR20 FPR21 FPR22 FPR23
 	FPR24 FPR25 FPR26 FPR27 FPR28 FPR29 FPR30 FPR31
-	
+
 REGISTERS
 
 	/* Reverse order to encourage ncg to allocate them from r31 down */
@@ -95,7 +95,7 @@ REGISTERS
 	FP("fp")           : GPR, GPRFP.
 	SP("sp")           : GPR, GPRSP.
 	R0("r0")           : GPR, GPR0.
-	
+
 	F31("f31")         : FPR, FREG, FPR31.
 	F30("f30")         : FPR, FREG, FPR30.
 	F29("f29")         : FPR, FREG, FPR29.
@@ -1996,7 +1996,7 @@ PATTERNS
 
 	/* All very cheap and nasty --- this needs to be properly integrated into
 	 * the code generator. ncg doesn't like having separate FPU registers. */
-	 
+
 	/* Single-precision */
 	
 	pat zrf $1==INT32                  /* Push zero */
@@ -2158,4 +2158,3 @@ PATTERNS
 			gen
 				bl {LABEL, ".fif8"}
 				
-		

+ 2 - 1
mach/proto/as/comm0.h

@@ -41,7 +41,7 @@
 
 #define	GENLAB		"I"		/* compiler generated labels */
 
-#define	valu_t		short		/* type of expression values */
+#define	valu_t		long		/* type of expression values */
 #define	ADDR_T		unsigned short	/* type of dot */
 #define	word_t		short		/* type of keyword value */
 /*
@@ -113,6 +113,7 @@ _include	<signal.h>
 #define	lowb(z)		((int)(z) & 0xFF)
 #define	loww(z)		((int)(z) & 0xFFFF)
 
+#define fitx(x, d)  ((((x) + (1<<(d-1))) & ~((int)(1<<(d))-1)) == 0)
 #define	fitb(x)		((((x) + 0x80) & ~((int)0xFF)) == 0)
 #define	fitw(x)		((((x) + 0x8000L) & ~0xFFFFL) == 0)
 

+ 1 - 0
mach/proto/ncg/assert.h

@@ -4,6 +4,7 @@
  */
 /* $Id$ */
 
+#undef NDEBUG
 #ifndef NDEBUG
 #define assert(x) if(!(x)) badassertion("x",__FILE__,__LINE__)
 #else

+ 23 - 1
mach/proto/ncg/codegen.c

@@ -2,6 +2,8 @@
 static char rcsid[] = "$Id$";
 #endif
 
+#include <stdlib.h>
+#include <stdio.h>
 #include "assert.h"
 #include "param.h"
 #include "tables.h"
@@ -778,7 +780,10 @@ normalfailed:	if (stackpad!=tokpatlen) {
 	compute(&enodes[nodeno], &result);
 	assert(result.e_typ!=EV_INT && result.e_typ!=EV_ADDR);
 	if (result.e_typ==EV_REG)
-		erasereg(result.e_v.e_reg);
+	{
+		int regno = result.e_v.e_reg;
+		erasereg(regno);
+	}
 	break;
     }
     case DO_TOKREPLACE: {
@@ -904,6 +909,23 @@ normalfailed:	if (stackpad!=tokpatlen) {
 
 	break;
     }
+#endif
+#ifdef USE_NOFRAMEPOINTER
+	case DO_STACKADJUST: {
+	result_t result;
+	int nodeno;
+	
+	DEBUG("STACKADJUST");
+	/* The offset is an expression, which we need to evaluate. */
+	
+	getint(nodeno,codep);
+	compute(&enodes[nodeno], &result);
+	assert(result.e_typ==EV_INT);
+	
+	if (toplevel)
+		stackoffset += result.e_v.e_con;
+	break;
+	}
 #endif
 	}
 	}

+ 2 - 0
mach/proto/ncg/equiv.c

@@ -2,6 +2,8 @@
 static char rcsid[] = "$Id$";
 #endif
 
+#include <stdlib.h>
+#include <stdio.h>
 #include "assert.h"
 #include "equiv.h"
 #include "param.h"

+ 6 - 0
mach/proto/ncg/extern.h

@@ -20,6 +20,9 @@ extern rl_p curreglist;                 /* side effect of findcoerc() */
 #ifndef NDEBUG
 extern int Debug;                       /* on/off debug printout */
 #endif
+#ifdef USE_NOFRAMEPOINTER
+extern int stackoffset;                 /* offset from localbase to sp */
+#endif
 
 /*
  * Next descriptions are external declarations for tables created
@@ -52,3 +55,6 @@ extern struct reginfo **reglist[];	/* lists of registers per property */
 extern int nregvar[];			/* # of register variables per type */
 extern int *rvnumbers[];		/* lists of numbers */
 #endif
+
+extern FILE *codefile;
+extern FILE *freopen();

+ 0 - 2
mach/proto/ncg/fillem.c

@@ -60,8 +60,6 @@ long con();
 #define get8()  getc(emfile)
 
 FILE *emfile;
-extern FILE *codefile;
-extern FILE *freopen();
 
 int nextispseu,savetab1;
 int opcode;

+ 2 - 0
mach/proto/ncg/move.c

@@ -2,6 +2,8 @@
 static char rcsid[] = "$Id$";
 #endif
 
+#include <stdlib.h>
+#include <stdio.h>
 #include "assert.h"
 #include "param.h"
 #include "tables.h"

+ 2 - 0
mach/proto/ncg/nextem.c

@@ -2,6 +2,8 @@
 static char rcsid[] = "$Id$";
 #endif
 
+#include <stdlib.h>
+#include <stdio.h>
 #include <em_spec.h>
 #include <em_flag.h>
 #include "assert.h"

+ 6 - 4
mach/proto/ncg/pmfile

@@ -1,5 +1,5 @@
--- $Source$
--- $State$
+-- $Source: /cvsroot/tack/Ack/mach/proto/ncg/pmfile,v $
+-- $State: Exp $
 
 local d = ROOTDIR.."mach/proto/ncg/"
 
@@ -18,6 +18,8 @@ local cfile_with_tables = cfile {
 proto_ncg = cprogram {
 	class = "proto_ncg",
 	
+	exename = "ncg",
+	
 	CINCLUDES = {
 		PARENT,
 		"mach/%PLATFORM%/ncg",
@@ -50,6 +52,6 @@ proto_ncg = cprogram {
 	lib_em_data,
 	lib_flt_arith,
 	
-	outputs = {"%U%/%PLATFORM%-ncg"},
-	install = pm.install("%BINDIR%%PLATDEP%/%PLATFORM%/ncg")
+	outputs = {"%U%/%PLATFORM%-%exename%"},
+	install = pm.install("%BINDIR%%PLATDEP%/%PLATFORM%/%exename%")
 }

+ 2 - 0
mach/proto/ncg/reg.c

@@ -2,6 +2,8 @@
 static char rcsid[] = "$Id$";
 #endif
 
+#include <stdlib.h>
+#include <stdio.h>
 #include "assert.h"
 #include "param.h"
 #include "tables.h"

+ 2 - 0
mach/proto/ncg/regvar.c

@@ -1,3 +1,5 @@
+#include <stdlib.h>
+#include <stdio.h>
 #include "assert.h"
 #include "param.h"
 #include "tables.h"

+ 1 - 0
mach/proto/ncg/salloc.c

@@ -3,6 +3,7 @@ static char rcsid[] = "$Id$";
 #endif
 
 #include <stdlib.h>
+#include <stdio.h>
 #include "assert.h"
 #include "param.h"
 #include "tables.h"

+ 2 - 0
mach/proto/ncg/state.c

@@ -2,6 +2,8 @@
 static char rcsid[] = "$Id$";
 #endif
 
+#include <stdlib.h>
+#include <stdio.h>
 #include "assert.h"
 #include "param.h"
 #include "tables.h"

+ 0 - 14
plat/linux386/libsys/_exit.c

@@ -1,14 +0,0 @@
-/* $Source$
- * $State$
- * $Revision$
- */
-
-#include <stdlib.h>
-#include <errno.h>
-#include <unistd.h>
-#include "libsys.h"
-
-void _exit(int status)
-{
-	_syscall(__NR_exit, status, 0, 0);
-}

+ 0 - 20
plat/linux386/libsys/_hol0.s

@@ -1,20 +0,0 @@
-#
-! $Source$
-! $State$
-! $Revision$
-
-! Declare segments (the order is important).
-
-.sect .text
-.sect .rom
-.sect .data
-.sect .bss
-
-.sect .text
-
-! 
-! This data block is used to store information about the current line number
-! and file.
-
-.define hol0
-.comm hol0, 8

+ 0 - 2
plat/linux386/libsys/_syscall.s

@@ -3,8 +3,6 @@
 ! $State$
 ! $Revision$
 
-#include "syscalls.h"
-
 ! Declare segments (the order is important).
 
 .sect .text

+ 0 - 13
plat/linux386/libsys/brk.c

@@ -1,13 +0,0 @@
-/* $Source$
- * $State$
- * $Revision$
- */
-
-#include <stdlib.h>
-#include <unistd.h>
-#include "libsys.h"
-
-int brk(void* end)
-{
-	return _syscall(__NR_brk, (quad) end, 0, 0);
-}

+ 0 - 14
plat/linux386/libsys/close.c

@@ -1,14 +0,0 @@
-/* $Source$
- * $State$
- * $Revision$
- */
-
-#include <stdlib.h>
-#include <errno.h>
-#include <unistd.h>
-#include "libsys.h"
-
-int close(int fd)
-{
-	return _syscall(__NR_close, fd, 0, 0);
-}

+ 0 - 13
plat/linux386/libsys/creat.c

@@ -1,13 +0,0 @@
-/* $Source$
- * $State$
- * $Revision$
- */
-
-#include <stdlib.h>
-#include <unistd.h>
-#include "libsys.h"
-
-int creat(const char* filename, int mode)
-{
-	return open(filename, O_CREAT|O_WRONLY|O_TRUNC, mode);
-}

+ 0 - 28
plat/linux386/libsys/errno.s

@@ -1,28 +0,0 @@
-#
-! $Source$
-! $State$
-! $Revision$
-
-! Declare segments (the order is important).
-
-.sect .text
-.sect .rom
-.sect .data
-.sect .bss
-
-#define D(e) .define e; e
-
-.sect .data
-
-! Define various ACK error numbers. Note that these are *not* ANSI C
-! errnos, and are used for different purposes.
-
-D(ERANGE)         = 1
-D(ESET)           = 2
-D(EIDIVZ)         = 6
-D(EHEAP)          = 17
-D(EILLINS)        = 18
-D(EODDZ)          = 19
-D(ECASE)          = 20
-D(EBADMON)        = 25
-

+ 0 - 14
plat/linux386/libsys/getpid.c

@@ -1,14 +0,0 @@
-/* $Source$
- * $State$
- * $Revision$
- */
-
-#include <stdlib.h>
-#include <errno.h>
-#include <unistd.h>
-#include "libsys.h"
-
-pid_t getpid(void)
-{
-	return _syscall(__NR_getpid, 0, 0, 0);
-}

+ 0 - 16
plat/linux386/libsys/gettimeofday.c

@@ -1,16 +0,0 @@
-/* $Source$
- * $State$
- * $Revision$
- */
-
-#include <stdlib.h>
-#include <errno.h>
-#include <sys/time.h>
-#include <time.h>
-#include <unistd.h>
-#include "libsys.h"
-
-int gettimeofday(struct timeval *tv, struct timezone *tz)
-{
-	return _syscall(__NR_gettimeofday, (quad) tv, (quad) tz, 0);
-}

+ 0 - 13
plat/linux386/libsys/isatty.c

@@ -1,13 +0,0 @@
-/* $Source$
- * $State$
- * $Revision$
- */
-
-#include <stdlib.h>
-#include <errno.h>
-#include <unistd.h>
-
-int isatty(int fd)
-{
-	return 0;
-}

+ 0 - 14
plat/linux386/libsys/kill.c

@@ -1,14 +0,0 @@
-/* $Source$
- * $State$
- * $Revision$
- */
-
-#include <stdlib.h>
-#include <errno.h>
-#include <unistd.h>
-#include "libsys.h"
-
-int kill(pid_t pid, int signum)
-{
-	return _syscall(__NR_kill, pid, signum, 0);
-}

+ 0 - 15
plat/linux386/libsys/libsys.h

@@ -1,15 +0,0 @@
-/* $Source$
- * $State$
- * $Revision$
- */
-
-#ifndef LIBSYS_H
-#define LIBSYS_H
-
-#include "syscalls.h"
-
-typedef unsigned long quad;
-
-extern quad _syscall(int op, quad p1, quad p2, quad p3); 
-
-#endif

+ 0 - 14
plat/linux386/libsys/lseek.c

@@ -1,14 +0,0 @@
-/* $Source$
- * $State$
- * $Revision$
- */
-
-#include <stdlib.h>
-#include <errno.h>
-#include <unistd.h>
-#include "libsys.h"
-
-off_t lseek(int fd, off_t offset, int whence)
-{
-	return _syscall(__NR_lseek, fd, offset, whence);
-}

+ 0 - 25
plat/linux386/libsys/open.c

@@ -1,25 +0,0 @@
-/* $Source$
- * $State$
- * $Revision$
- */
-
-#include <stdlib.h>
-#include <errno.h>
-#include <unistd.h>
-#include <stdarg.h>
-#include "libsys.h"
-
-int open(const char* path, int access, ...)
-{
-	int mode = 0;
-	
-	if (access & O_CREAT)
-	{
-		va_list ap;
-		va_start(ap, access);
-		mode = va_arg(ap, int);
-		va_end(ap);
-	}
-	
-	return _syscall(__NR_open, (quad) path, access, mode);
-}

+ 3 - 23
plat/linux386/libsys/pmfile

@@ -1,33 +1,13 @@
--- $Source$
--- $State$
--- $Revision$
+-- $Source: /cvsroot/tack/Ack/plat/linux386/libsys/pmfile,v $
+-- $State: Exp $
+-- $Revision: 1.1 $
 
 local d = ROOTDIR.."plat/linux386/libsys/"
 
 libsys_linux386 = acklibrary {
-	ACKBUILDFLAGS = {PARENT, "-ansi"},
 	ACKINCLUDES = {"%BINDIR%include"},
 	
-	ackfile (d.."errno.s"),
-	ackfile (d.."_hol0.s"),
 	ackfile (d.."_syscall.s"),
 	
-	ackfile (d.."brk.c"),
-	ackfile (d.."close.c"),
-	ackfile (d.."creat.c"),
-	ackfile (d.."getpid.c"),
-	ackfile (d.."gettimeofday.c"),
-	ackfile (d.."_exit.c"),
-	ackfile (d.."isatty.c"),
-	ackfile (d.."kill.c"),
-	ackfile (d.."lseek.c"),
-	ackfile (d.."open.c"),
-	ackfile (d.."read.c"),
-	ackfile (d.."sbrk.c"),
-	ackfile (d.."signal.c"),
-	ackfile (d.."write.c"),
-	ackfile (d.."unlink.c"),
-	ackfile (d.."remove.c"),
-	
 	install = pm.install("%BINDIR%lib/%PLATFORM%/libsys.a"),
 }

+ 0 - 14
plat/linux386/libsys/read.c

@@ -1,14 +0,0 @@
-/* $Source$
- * $State$
- * $Revision$
- */
-
-#include <stdlib.h>
-#include <errno.h>
-#include <unistd.h>
-#include "libsys.h"
-
-int read(int fd, void* buffer, size_t count)
-{
-	return _syscall(__NR_read, fd, (quad) buffer, count);
-}

+ 0 - 15
plat/linux386/libsys/remove.c

@@ -1,15 +0,0 @@
-/* $Source$
- * $State$
- * $Revision$
- */
-
-#include <stdlib.h>
-#include <errno.h>
-#include <unistd.h>
-#include <stdarg.h>
-#include "libsys.h"
-
-int remove(const char* path)
-{
-	return unlink(path);
-}

+ 0 - 35
plat/linux386/libsys/sbrk.c

@@ -1,35 +0,0 @@
-/* $Source$
- * $State$
- * $Revision$
- */
-
-#include <stdlib.h>
-#include <unistd.h>
-#include "libsys.h"
-
-#define	OUT_OF_MEMORY (void*)(-1)	/* sbrk returns this on failure */
-
-static char* current = NULL;
- 
-void* sbrk(intptr_t increment)
-{
-	char* old;
-	char* new;
-	char* actual;
-	
-	if (!current)
-		current = (char*) _syscall(__NR_brk, 0, 0, 0);
-
-	if (increment == 0)
-		return current;
-		
-	old = current;
-	new = old + increment;
-
-	actual = (char*) _syscall(__NR_brk, (quad) new, 0, 0);
-	if (actual < new)
-		return OUT_OF_MEMORY;
-		
-	current = actual;
-	return old;
-}

+ 0 - 14
plat/linux386/libsys/signal.c

@@ -1,14 +0,0 @@
-/* $Source$
- * $State$
- * $Revision$
- */
-
-#include <stdlib.h>
-#include <unistd.h>
-#include <signal.h>
-#include "libsys.h"
-
-sighandler_t signal(int signum, sighandler_t handler)
-{
-	return (sighandler_t) _syscall(__NR_signal, signum, (quad) handler, 0);
-}

+ 0 - 328
plat/linux386/libsys/syscalls.h

@@ -1,328 +0,0 @@
-/* $Source$
-* $State$
-* $Revision$
-*/
-
-#ifndef SYSCALLS_H
-#define SYSCALLS_H
-
-/* Linux system calls. */
-
-#define __NR_restart_syscall 0
-#define __NR_exit 1
-#define __NR_fork 2
-#define __NR_read 3
-#define __NR_write 4
-#define __NR_open 5
-#define __NR_close 6
-#define __NR_waitpid 7
-#define __NR_creat 8
-#define __NR_link 9
-#define __NR_unlink 10
-#define __NR_execve 11
-#define __NR_chdir 12
-#define __NR_time 13
-#define __NR_mknod 14
-#define __NR_chmod 15
-#define __NR_lchown 16
-#define __NR_break 17
-#define __NR_oldstat 18
-#define __NR_lseek 19
-#define __NR_getpid 20
-#define __NR_mount 21
-#define __NR_umount 22
-#define __NR_setuid 23
-#define __NR_getuid 24
-#define __NR_stime 25
-#define __NR_ptrace 26
-#define __NR_alarm 27
-#define __NR_oldfstat 28
-#define __NR_pause 29
-#define __NR_utime 30
-#define __NR_stty 31
-#define __NR_gtty 32
-#define __NR_access 33
-#define __NR_nice 34
-#define __NR_ftime 35
-#define __NR_sync 36
-#define __NR_kill 37
-#define __NR_rename 38
-#define __NR_mkdir 39
-#define __NR_rmdir 40
-#define __NR_dup 41
-#define __NR_pipe 42
-#define __NR_times 43
-#define __NR_prof 44
-#define __NR_brk 45
-#define __NR_setgid 46
-#define __NR_getgid 47
-#define __NR_signal 48
-#define __NR_geteuid 49
-#define __NR_getegid 50
-#define __NR_acct 51
-#define __NR_umount2 52
-#define __NR_lock 53
-#define __NR_ioctl 54
-#define __NR_fcntl 55
-#define __NR_mpx 56
-#define __NR_setpgid 57
-#define __NR_ulimit 58
-#define __NR_oldolduname 59
-#define __NR_umask 60
-#define __NR_chroot 61
-#define __NR_ustat 62
-#define __NR_dup2 63
-#define __NR_getppid 64
-#define __NR_getpgrp 65
-#define __NR_setsid 66
-#define __NR_sigaction 67
-#define __NR_sgetmask 68
-#define __NR_ssetmask 69
-#define __NR_setreuid 70
-#define __NR_setregid 71
-#define __NR_sigsuspend 72
-#define __NR_sigpending 73
-#define __NR_sethostname 74
-#define __NR_setrlimit 75
-#define __NR_getrlimit 76 /* Back compatible 2Gig limited rlimit */
-#define __NR_getrusage 77
-#define __NR_gettimeofday 78
-#define __NR_settimeofday 79
-#define __NR_getgroups 80
-#define __NR_setgroups 81
-#define __NR_select 82
-#define __NR_symlink 83
-#define __NR_oldlstat 84
-#define __NR_readlink 85
-#define __NR_uselib 86
-#define __NR_swapon 87
-#define __NR_reboot 88
-#define __NR_readdir 89
-#define __NR_mmap 90
-#define __NR_munmap 91
-#define __NR_truncate 92
-#define __NR_ftruncate 93
-#define __NR_fchmod 94
-#define __NR_fchown 95
-#define __NR_getpriority 96
-#define __NR_setpriority 97
-#define __NR_profil 98
-#define __NR_statfs 99
-#define __NR_fstatfs 100
-#define __NR_ioperm 101
-#define __NR_socketcall 102
-#define __NR_syslog 103
-#define __NR_setitimer 104
-#define __NR_getitimer 105
-#define __NR_stat 106
-#define __NR_lstat 107
-#define __NR_fstat 108
-#define __NR_olduname 109
-#define __NR_iopl 110
-#define __NR_vhangup 111
-#define __NR_idle 112
-#define __NR_vm86old 113
-#define __NR_wait4 114
-#define __NR_swapoff 115
-#define __NR_sysinfo 116
-#define __NR_ipc 117
-#define __NR_fsync 118
-#define __NR_sigreturn 119
-#define __NR_clone 120
-#define __NR_setdomainname 121
-#define __NR_uname 122
-#define __NR_modify_ldt 123
-#define __NR_adjtimex 124
-#define __NR_mprotect 125
-#define __NR_sigprocmask 126
-#define __NR_create_module 127
-#define __NR_init_module 128
-#define __NR_delete_module 129
-#define __NR_get_kernel_syms 130
-#define __NR_quotactl 131
-#define __NR_getpgid 132
-#define __NR_fchdir 133
-#define __NR_bdflush 134
-#define __NR_sysfs 135
-#define __NR_personality 136
-#define __NR_afs_syscall 137 /* Syscall for Andrew File System */
-#define __NR_setfsuid 138
-#define __NR_setfsgid 139
-#define __NR__llseek 140
-#define __NR_getdents 141
-#define __NR__newselect 142
-#define __NR_flock 143
-#define __NR_msync 144
-#define __NR_readv 145
-#define __NR_writev 146
-#define __NR_getsid 147
-#define __NR_fdatasync 148
-#define __NR__sysctl 149
-#define __NR_mlock 150
-#define __NR_munlock 151
-#define __NR_mlockall 152
-#define __NR_munlockall 153
-#define __NR_sched_setparam 154
-#define __NR_sched_getparam 155
-#define __NR_sched_setscheduler 156
-#define __NR_sched_getscheduler 157
-#define __NR_sched_yield 158
-#define __NR_sched_get_priority_max 159
-#define __NR_sched_get_priority_min 160
-#define __NR_sched_rr_get_interval 161
-#define __NR_nanosleep 162
-#define __NR_mremap 163
-#define __NR_setresuid 164
-#define __NR_getresuid 165
-#define __NR_vm86 166
-#define __NR_query_module 167
-#define __NR_poll 168
-#define __NR_nfsservctl 169
-#define __NR_setresgid 170
-#define __NR_getresgid 171
-#define __NR_prctl 172
-#define __NR_rt_sigreturn 173
-#define __NR_rt_sigaction 174
-#define __NR_rt_sigprocmask 175
-#define __NR_rt_sigpending 176
-#define __NR_rt_sigtimedwait 177
-#define __NR_rt_sigqueueinfo 178
-#define __NR_rt_sigsuspend 179
-#define __NR_pread64 180
-#define __NR_pwrite64 181
-#define __NR_chown 182
-#define __NR_getcwd 183
-#define __NR_capget 184
-#define __NR_capset 185
-#define __NR_sigaltstack 186
-#define __NR_sendfile 187
-#define __NR_getpmsg 188/* some people actually want streams */
-#define __NR_putpmsg 189/* some people actually want streams */
-#define __NR_vfork 190
-#define __NR_ugetrlimit 191/* SuS compliant getrlimit */
-#define __NR_mmap2 192
-#define __NR_truncate64 193
-#define __NR_ftruncate64 194
-#define __NR_stat64 195
-#define __NR_lstat64 196
-#define __NR_fstat64 197
-#define __NR_lchown32 198
-#define __NR_getuid32 199
-#define __NR_getgid32 200
-#define __NR_geteuid32 201
-#define __NR_getegid32 202
-#define __NR_setreuid32 203
-#define __NR_setregid32 204
-#define __NR_getgroups32 205
-#define __NR_setgroups32 206
-#define __NR_fchown32 207
-#define __NR_setresuid32 208
-#define __NR_getresuid32 209
-#define __NR_setresgid32 210
-#define __NR_getresgid32 211
-#define __NR_chown32 212
-#define __NR_setuid32 213
-#define __NR_setgid32 214
-#define __NR_setfsuid32 215
-#define __NR_setfsgid32 216
-#define __NR_pivot_root 217
-#define __NR_mincore 218
-#define __NR_madvise 219
-#define __NR_getdents64 220
-#define __NR_fcntl64 221
-#define __NR_gettid 224
-#define __NR_readahead 225
-#define __NR_setxattr 226
-#define __NR_lsetxattr 227
-#define __NR_fsetxattr 228
-#define __NR_getxattr 229
-#define __NR_lgetxattr 230
-#define __NR_fgetxattr 231
-#define __NR_listxattr 232
-#define __NR_llistxattr 233
-#define __NR_flistxattr 234
-#define __NR_removexattr 235
-#define __NR_lremovexattr 236
-#define __NR_fremovexattr 237
-#define __NR_tkill 238
-#define __NR_sendfile64 239
-#define __NR_futex 240
-#define __NR_sched_setaffinity 241
-#define __NR_sched_getaffinity 242
-#define __NR_set_thread_area 243
-#define __NR_get_thread_area 244
-#define __NR_io_setup 245
-#define __NR_io_destroy 246
-#define __NR_io_getevents 247
-#define __NR_io_submit 248
-#define __NR_io_cancel 249
-#define __NR_fadvise64 250
-#define __NR_exit_group 252
-#define __NR_lookup_dcookie 253
-#define __NR_epoll_create 254
-#define __NR_epoll_ctl 255
-#define __NR_epoll_wait 256
-#define __NR_remap_file_pages 257
-#define __NR_set_tid_address 258
-#define __NR_timer_create 259
-#define __NR_timer_settime (__NR_timer_create+1)
-#define __NR_timer_gettime (__NR_timer_create+2)
-#define __NR_timer_getoverrun (__NR_timer_create+3)
-#define __NR_timer_delete (__NR_timer_create+4)
-#define __NR_clock_settime (__NR_timer_create+5)
-#define __NR_clock_gettime (__NR_timer_create+6)
-#define __NR_clock_getres (__NR_timer_create+7)
-#define __NR_clock_nanosleep (__NR_timer_create+8)
-#define __NR_statfs64 268
-#define __NR_fstatfs64 269
-#define __NR_tgkill 270
-#define __NR_utimes 271
-#define __NR_fadvise64_64 272
-#define __NR_vserver 273
-#define __NR_mbind 274
-#define __NR_get_mempolicy 275
-#define __NR_set_mempolicy 276
-#define __NR_mq_open 277
-#define __NR_mq_unlink (__NR_mq_open+1)
-#define __NR_mq_timedsend (__NR_mq_open+2)
-#define __NR_mq_timedreceive (__NR_mq_open+3)
-#define __NR_mq_notify (__NR_mq_open+4)
-#define __NR_mq_getsetattr (__NR_mq_open+5)
-#define __NR_kexec_load 283
-#define __NR_waitid 284
-#define __NR_add_key 286
-#define __NR_request_key 287
-#define __NR_keyctl 288
-#define __NR_ioprio_set 289
-#define __NR_ioprio_get 290
-#define __NR_inotify_init 291
-#define __NR_inotify_add_watch 292
-#define __NR_inotify_rm_watch 293
-#define __NR_migrate_pages 294
-#define __NR_openat 295
-#define __NR_mkdirat 296
-#define __NR_mknodat 297
-#define __NR_fchownat 298
-#define __NR_futimesat 299
-#define __NR_fstatat64 300
-#define __NR_unlinkat 301
-#define __NR_renameat 302
-#define __NR_linkat 303
-#define __NR_symlinkat 304
-#define __NR_readlinkat 305
-#define __NR_fchmodat 306
-#define __NR_faccessat 307
-#define __NR_pselect6 308
-#define __NR_ppoll 309
-#define __NR_unshare 310
-#define __NR_set_robust_list 311
-#define __NR_get_robust_list 312
-#define __NR_splice 313
-#define __NR_sync_file_range 314
-#define __NR_tee 315
-#define __NR_vmsplice 316
-
-#define concat(x, y) x##y
-#define MAPPED_SYSCALL(p, n) .define concat(p,n); concat(p,n): xor eax, eax; movb al, concat(__NR_,n); jmp __mapped_syscall
-
-#endif

+ 0 - 15
plat/linux386/libsys/unlink.c

@@ -1,15 +0,0 @@
-/* $Source$
- * $State$
- * $Revision$
- */
-
-#include <stdlib.h>
-#include <errno.h>
-#include <unistd.h>
-#include <stdarg.h>
-#include "libsys.h"
-
-int unlink(const char* path)
-{
-	return _syscall(__NR_unlink, (quad) path, 0, 0);
-}

+ 0 - 14
plat/linux386/libsys/write.c

@@ -1,14 +0,0 @@
-/* $Source$
- * $State$
- * $Revision$
- */
-
-#include <stdlib.h>
-#include <errno.h>
-#include <unistd.h>
-#include "libsys.h"
-
-int write(int fd, void* buffer, size_t count)
-{
-	return _syscall(__NR_write, fd, (quad) buffer, count);
-}

+ 26 - 0
plat/linuxppc/.distr

@@ -0,0 +1,26 @@
+descr
+boot.s
+pmfile
+README
+include/ack/config.h
+include/unistd.h
+libsys/pmfile
+libsys/_exit.c
+libsys/_hol0.s
+libsys/_syscall.s
+libsys/brk.c
+libsys/close.c
+libsys/creat.c
+libsys/errno.s
+libsys/getpid.c
+libsys/gettimeofday.c
+libsys/isatty.c
+libsys/kill.c
+libsys/libsys.h
+libsys/lseek.c
+libsys/open.c
+libsys/read.c
+libsys/sbrk.c
+libsys/signal.c
+libsys/syscalls.h
+libsys/write.c

+ 42 - 0
plat/linuxppc/README

@@ -0,0 +1,42 @@
+# $Source: /cvsroot/tack/Ack/plat/linux386/README,v $
+# $State: Exp $
+# $Revision: 1.2 $
+
+
+The linux386 platform
+=====================
+
+linux386 is an i386-based BSP that produces Linux ELF executables.
+
+This port only implements a very limited number of system calls; basically,
+just enough to make the demo apps run. Adding more is easy, but there are some
+subtleties that require more thought. The port should be considered only in
+proof-of-concept stage right now.
+
+Important note: you *can't* link access ELF shared libraries from these
+executables. In other words, you have to all your work from inside ACK.
+
+IEEE floating point is available, but requires an FPU.
+
+The executables are generated with aelfslod and are extremely simple; there's
+one rwx ELF section which contains all the application's code and data. This
+is not optimal, but it does work.
+
+
+Bugs
+====
+
+isatty() is a stub and always returns 0.
+
+
+Example command line
+====================
+
+ack -mlinux386 -O -o linux386.exe examples/paranoia.c
+
+The file linux386.exe can then be run on a i386 Linux machine (or on an
+emulation thereof).
+
+
+David Given
+dg@cowlark.com

+ 56 - 0
plat/linuxppc/boot.s

@@ -0,0 +1,56 @@
+#
+! $Source: /cvsroot/tack/Ack/plat/linux386/boot.s,v $
+! $State: Exp $
+! $Revision: 1.3 $
+
+! Declare segments (the order is important).
+
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+
+.sect .text
+
+begtext:
+	! This code is placed at the beginning of the ELF executable and is the
+	! first thing that runs.
+	!
+	! On entry, the stack looks like this:
+	!
+	! sp+...          NULL
+	! sp+8+(4*argc)   env (X quads)
+	! sp+4+(4*argc)   NULL
+	! sp+4            argv (argc quads)
+	! sp              argc
+	!
+	! The ACK actually expects:
+	!
+	! sp+8            argc
+	! sp+4            ptr to argv
+	! sp              ptr to env
+
+	lwz r3, 0(sp)            ! r3 = argc
+	addi r4, sp, 4           ! r4 = argv
+	rlwinm r5, r3, 32-2, 2, 31 ! shift left 2 bits
+	add r5, r5, r4 
+	addi r5, r5, 8           ! r5 = env
+	
+	stwu r5, -4(sp)
+	stwu r4, -4(sp)
+	stwu r3, -4(sp)
+	
+	b __m_a_i_n
+	
+! Some magic data. All EM systems need these.
+
+.define _errno
+.comm _errno, 4              ! Posix errno storage
+
+.define .trppc, .ignmask
+.comm .trppc, 4              ! ptr to user trap handler
+.comm .ignmask, 4            ! user trap ignore mask 
+
+.define .linenumber, .filename
+.comm .linenumber, 4         ! current linenumber (used for debugging)
+.comm .filename, 4           ! ptr to current filename (used for debugging)

+ 81 - 0
plat/linuxppc/descr

@@ -0,0 +1,81 @@
+# $Source: /cvsroot/tack/Ack/plat/linux386/descr,v $
+# $State: Exp $
+# $Revision: 1.1 $
+
+var w=4
+var p=4
+var s=2
+var l=4
+var f=4
+var d=8
+var ARCH=powerpc
+var PLATFORM=linuxppc
+var PLATFORMDIR={EM}/lib/{PLATFORM}
+var CPP_F=-D__unix -D__POWERPC
+var ALIGN=-a0:4 -a1:4 -a2:4 -a3:4 -b0:0x80000054
+var C_LIB={PLATFORMDIR}/libc-ansi.a
+# bitfields reversed for compatibility with (g)cc.
+var CC_ALIGN=-Vr
+var OLD_C_LIB={C_LIB}
+var MACHOPT_F=
+
+# Override the setting in fe so that files compiled for linuxppc can see
+# the platform-specific headers.
+
+var C_INCLUDES=-I{PLATFORMDIR}/include -I{EM}/include/ansi
+
+name be
+	from .m.g
+	to .s
+	program {EM}/lib.bin/{PLATFORM}/ncg
+	mapflag -gdb GF=-gdb
+	args {GF?} <
+	stdout
+	need .e
+end
+name asopt
+	from .s
+	to .so
+	program {EM}/lib.bin/{PLATFORM}/top
+	args
+	optimizer
+	stdin
+	stdout
+end
+name as
+	from .s.so
+	to .o
+	program {EM}/lib.bin/{PLATFORM}/as
+	args - -o > <
+	prep cond
+end
+name led
+	from .o.a
+	to .out
+	program {EM}/lib.bin/em_led
+	mapflag -l* LNAME={PLATFORMDIR}/lib*
+	mapflag -fp FLOATS={EM}/{LIB}fp
+	args {ALIGN} {SEPID?} \
+	    {PLATFORMDIR}/boot.o \
+		({RTS}:.ocm.b.c={PLATFORMDIR}/c-ansi.o) \
+		({RTS}:.mod={PLATFORMDIR}/modula2.o) \
+		({RTS}:.p={PLATFORMDIR}/pascal.o) \
+		-o > < \
+		(.p:{TAIL}={PLATFORMDIR}/libpascal.a) \
+		(.b:{TAIL}={PLATFORMDIR}/libbasic.a) \
+		(.mod:{TAIL}={PLATFORMDIR}/libmodula2.a) \
+		(.ocm:{TAIL}={PLATFORMDIR}/liboccam.a) \
+		(.ocm.b.mod.c.p:{TAIL}={PLATFORMDIR}/libc.a) \
+		{PLATFORMDIR}/liblinux.a \
+		{PLATFORMDIR}/libem.a \
+		{PLATFORMDIR}/libsys.a \
+		{PLATFORMDIR}/libend.a
+	linker
+end
+name cv
+	from .out
+	to .exe
+	program {EM}/bin/aelflod
+	args 20 1 < >
+	outfile linuxppc.exe
+end

+ 18 - 0
plat/linuxppc/include/ack/config.h

@@ -0,0 +1,18 @@
+/* $Source: /cvsroot/tack/Ack/plat/linux386/include/ack/config.h,v $
+ * $State: Exp $
+ * $Revision: 1.1 $
+ */
+
+#ifndef _ACK_CONFIG_H
+#define _ACK_CONFIG_H
+
+/* We're providing a time() system call rather than wanting a wrapper around
+ * gettimeofday() in the libc. */
+ 
+/* #define ACKCONF_TIME_IS_A_SYSCALL */
+
+/* We don't support floating point right now. */
+ 
+/* #define ACKCONF_NO_STDIO_FLOAT */
+
+#endif

+ 76 - 0
plat/linuxppc/include/sys/ioctl.h

@@ -0,0 +1,76 @@
+/* $Source: /cvsroot/tack/Ack/plat/linux386/include/sys/ioctl.h,v $
+ * $State: Exp $
+ * $Revision: 1.1 $
+ */
+
+#ifndef _SYS_IOCTL_H
+#define _SYS_IOCTL_H
+
+/* These are copied from the ioctl_list(2) man page. */
+ 
+/* <include/asm-i386/socket.h> */
+
+#define FIOSETOWN 0x00008901
+#define SIOCSPGRP 0x00008902
+#define FIOGETOWN 0x00008903
+#define SIOCGPGRP 0x00008904
+#define SIOCATMARK 0x00008905
+#define SIOCGSTAMP 0x00008906
+
+/* <include/asm-i386/termios.h> */
+
+#define TCGETS 0x00005401
+#define TCSETS 0x00005402
+#define TCSETSW 0x00005403
+#define TCSETSF 0x00005404
+#define TCGETA 0x00005405
+#define TCSETA 0x00005406
+#define TCSETAW 0x00005407
+#define TCSETAF 0x00005408
+#define TCSBRK 0x00005409
+#define TCXONC 0x0000540A
+#define TCFLSH 0x0000540B
+#define TIOCEXCL 0x0000540C
+#define TIOCNXCL 0x0000540D
+#define TIOCSCTTY 0x0000540E
+#define TIOCGPGRP 0x0000540F
+#define TIOCSPGRP 0x00005410
+#define TIOCOUTQ 0x00005411
+#define TIOCSTI 0x00005412
+#define TIOCGWINSZ 0x00005413
+#define TIOCSWINSZ 0x00005414
+#define TIOCMGET 0x00005415
+#define TIOCMBIS 0x00005416
+#define TIOCMBIC 0x00005417
+#define TIOCMSET 0x00005418
+#define TIOCGSOFTCAR 0x00005419
+#define TIOCSSOFTCAR 0x0000541A
+#define FIONREAD 0x0000541B
+#define TIOCINQ 0x0000541B
+#define TIOCLINUX 0x0000541C
+#define TIOCCONS 0x0000541D
+#define TIOCGSERIAL 0x0000541E
+#define TIOCSSERIAL 0x0000541F
+#define TIOCPKT 0x00005420
+#define FIONBIO 0x00005421
+#define TIOCNOTTY 0x00005422
+#define TIOCSETD 0x00005423
+#define TIOCGETD 0x00005424
+#define TCSBRKP 0x00005425
+#define TIOCTTYGSTRUCT 0x00005426
+#define FIONCLEX 0x00005450
+#define FIOCLEX 0x00005451
+#define FIOASYNC 0x00005452
+#define TIOCSERCONFIG 0x00005453
+#define TIOCSERGWILD 0x00005454
+#define TIOCSERSWILD 0x00005455
+#define TIOCGLCKTRMIOS 0x00005456
+#define TIOCSLCKTRMIOS 0x00005457
+#define TIOCSERGSTRUCT 0x00005458
+#define TIOCSERGETLSR 0x00005459
+#define TIOCSERGETMULTI 0x0000545A
+#define TIOCSERSETMULTI 0x0000545B
+
+
+
+#endif

+ 123 - 0
plat/linuxppc/include/unistd.h

@@ -0,0 +1,123 @@
+/*
+ * unistd.h - standard system calls
+ */
+/* $Id$ */
+
+#ifndef _UNISTD_H
+#define _UNISTD_H
+
+#include <stddef.h>
+#include <time.h>
+
+/* Types */
+
+typedef int pid_t;
+typedef int mode_t;
+
+typedef long suseconds_t;
+
+/* Time handling. */
+
+struct timeval
+{
+	time_t tv_sec;
+	suseconds_t tv_usec;
+};
+
+struct timezone
+{
+	int tz_minuteswest;
+	int tz_dsttime;
+}; /* obsolete, unused */
+
+extern int gettimeofday(struct timeval* tv, struct timezone* tz);
+extern int settimeofday(const struct timeval* tv, const struct timezone* tz);
+
+/* File access. */
+
+enum
+{
+	O_ACCMODE = 0x3,
+	
+	O_RDONLY = 0,
+	O_WRONLY = 1,
+	O_RDWR = 2,
+	
+	O_CREAT = 0x10,
+	O_TRUNC = 0x20,
+	O_APPEND = 0x40
+};
+
+extern int open(const char* path, int access, ...);
+extern int creat(const char* path, mode_t mode);
+extern int close(int d);
+extern int read(int fd, void* buffer, size_t count);
+extern int write(int fd, void* buffer, size_t count);
+extern off_t lseek(int fildes, off_t offset, int whence);
+extern int fcntl(int fd, int op, ...);
+
+/* Special variables */
+
+extern char** environ;
+
+/* Implemented system calls */
+
+extern void _exit(int);
+extern pid_t getpid(void);
+extern int brk(void* ptr);
+extern void* sbrk(intptr_t increment);
+extern int isatty(int d);
+
+/* Signal handling */
+
+typedef int sig_atomic_t;
+
+#define SIG_ERR ((sighandler_t) -1)           /* Error return.  */
+#define SIG_DFL ((sighandler_t) 0)            /* Default action.  */
+#define SIG_IGN ((sighandler_t) 1)            /* Ignore signal.  */
+
+#define SIGHUP          1       /* Hangup (POSIX).  */
+#define SIGINT          2       /* Interrupt (ANSI).  */
+#define SIGQUIT         3       /* Quit (POSIX).  */
+#define SIGILL          4       /* Illegal instruction (ANSI).  */
+#define SIGTRAP         5       /* Trace trap (POSIX).  */
+#define SIGABRT         6       /* Abort (ANSI).  */
+#define SIGIOT          6       /* IOT trap (4.2 BSD).  */
+#define SIGBUS          7       /* BUS error (4.2 BSD).  */
+#define SIGFPE          8       /* Floating-point exception (ANSI).  */
+#define SIGKILL         9       /* Kill, unblockable (POSIX).  */
+#define SIGUSR1         10      /* User-defined signal 1 (POSIX).  */
+#define SIGSEGV         11      /* Segmentation violation (ANSI).  */
+#define SIGUSR2         12      /* User-defined signal 2 (POSIX).  */
+#define SIGPIPE         13      /* Broken pipe (POSIX).  */
+#define SIGALRM         14      /* Alarm clock (POSIX).  */
+#define SIGTERM         15      /* Termination (ANSI).  */
+#define SIGSTKFLT       16      /* Stack fault.  */
+#define SIGCLD          SIGCHLD /* Same as SIGCHLD (System V).  */
+#define SIGCHLD         17      /* Child status has changed (POSIX).  */
+#define SIGCONT         18      /* Continue (POSIX).  */
+#define SIGSTOP         19      /* Stop, unblockable (POSIX).  */
+#define SIGTSTP         20      /* Keyboard stop (POSIX).  */
+#define SIGTTIN         21      /* Background read from tty (POSIX).  */
+#define SIGTTOU         22      /* Background write to tty (POSIX).  */
+#define SIGURG          23      /* Urgent condition on socket (4.2 BSD).  */
+#define SIGXCPU         24      /* CPU limit exceeded (4.2 BSD).  */
+#define SIGXFSZ         25      /* File size limit exceeded (4.2 BSD).  */
+#define SIGVTALRM       26      /* Virtual alarm clock (4.2 BSD).  */
+#define SIGPROF         27      /* Profiling alarm clock (4.2 BSD).  */
+#define SIGWINCH        28      /* Window size change (4.3 BSD, Sun).  */
+#define SIGPOLL         SIGIO   /* Pollable event occurred (System V).  */
+#define SIGIO           29      /* I/O now possible (4.2 BSD).  */
+#define SIGPWR          30      /* Power failure restart (System V).  */
+#define SIGSYS          31      /* Bad system call.  */
+#define SIGUNUSED       31
+
+#define _NSIG           32      /* Biggest signal number + 1
+                                   (not including real-time signals).  */
+typedef void (*sighandler_t)(int);
+extern sighandler_t signal(int signum, sighandler_t handler);
+extern int raise(int signum);
+
+
+
+#endif

+ 53 - 0
plat/linuxppc/libsys/_syscall.s

@@ -0,0 +1,53 @@
+#
+! $Source: /cvsroot/tack/Ack/plat/linux386/libsys/_syscall.s,v $
+! $State: Exp $
+! $Revision: 1.1 $
+
+! Declare segments (the order is important).
+
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+
+.sect .text
+
+EINVAL = 22
+
+#define IFFALSE 4
+#define IFTRUE 12
+#define ALWAYS 20
+
+#define LT 0
+#define GT 1
+#define EQ 2
+#define OV 3
+	
+! Perform a Linux system call.
+
+.define __syscall
+__syscall:
+	lwz r0, 0(sp)
+	lwz r3, 4(sp)
+	lwz r4, 8(sp)
+	lwz r5, 12(sp)
+	sc 0
+	bclr IFFALSE, OV, 0
+	
+	! On error, r3 contains the errno.	
+	! It just so happens that errnos 1-34 are the same in Linux as in ACK.
+	cmpi cr0, 0, r3, 1
+	bc IFTRUE, LT, 2f
+	cmpi cr0, 0, r3, 34
+	bc IFTRUE, GT, 2f
+	
+3:
+	addis r4, r0, <_errno
+	ori r4, r4, >_errno
+	stw r3, 0(r4)
+	addi r3, r0, -1
+	bclr ALWAYS, 0, 0
+	
+2:
+	addi r3, r0, EINVAL
+	b 3b

+ 14 - 0
plat/linuxppc/libsys/pmfile

@@ -0,0 +1,14 @@
+-- $Source: /cvsroot/tack/Ack/plat/linux386/libsys/pmfile,v $
+-- $State: Exp $
+-- $Revision: 1.1 $
+
+local d = ROOTDIR.."plat/linuxppc/libsys/"
+
+libsys_linuxppc = acklibrary {
+	ACKINCLUDES = {"%BINDIR%include"},
+	
+	ackfile (d.."_syscall.s"),
+	ackfile (d.."trap.s"),
+	
+	install = pm.install("%BINDIR%lib/%PLATFORM%/libsys.a"),
+}

+ 108 - 0
plat/linuxppc/libsys/trap.s

@@ -0,0 +1,108 @@
+#
+! $Source: /cvsroot/tack/Ack/plat/linux386/libsys/_syscall.s,v $
+! $State: Exp $
+! $Revision: 1.1 $
+
+! Declare segments (the order is important).
+
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+
+.sect .text
+
+#define IFFALSE 4
+#define IFTRUE 12
+#define ALWAYS 20
+
+#define LT 0
+#define GT 1
+#define EQ 2
+#define OV 3
+
+EARRAY	=  0
+ERANGE	=  1
+ESET	=  2
+EIOVFL	=  3
+EFOVFL	=  4
+EFUNFL	=  5
+EIDIVZ	=  6
+EFDIVZ	=  7
+EIUND	=  8
+EFUND	=  9
+ECONV	= 10
+ESTACK  = 16
+EHEAP	= 17
+EILLINS = 18
+EODDZ	= 19
+ECASE	= 20
+EMEMFLT	= 21
+EBADPTR = 22
+EBADPC  = 23
+EBADLAE = 24
+EBADMON = 25
+EBADLIN = 26
+EBADGTO = 27
+EUNIMPL = 63		! unimplemented em-instruction called
+
+! EM trap handling.
+
+.define .trap_ecase
+.trap_ecase:
+	addi r3, r0, ECASE
+	b .trap
+	
+.define .trap_earray
+.trap_earray:
+	addi r3, r0, EARRAY
+	b .trap
+	
+.define .trap
+.trap:
+	cmpi cr0, 0, r3, 15      ! traps >15 can't be ignored
+	bc IFTRUE, LT, 1f
+	
+	addi r4, r0, 1
+	rlwnm r4, r4, r3, 0, 31  ! calculate trap bit
+	addis r5, r0, <.ignmask
+	ori r5, r5, >.ignmask
+	lwz r5, 0(r5)            ! load ignore mask
+	and. r4, r4, r5          ! compare
+	bclr IFFALSE, EQ, 0      ! return if non-zero
+	
+1:
+	addis r4, r0, <.trppc
+	ori r4, r4, >.trppc
+	lwz r5, 0(r4)            ! load user trap routine
+	or. r5, r5, r5           ! test
+	bc IFTRUE, EQ, fatal     ! if no user trap routine, bail out
+	
+	addi r0, r0, 0
+	stw r0, 0(r4)            ! reset trap routine
+	
+	mfspr r0, lr
+	stwu r0, -4(sp)          ! save old lr
+	
+	stwu r3, -4(sp)
+	mtspr ctr, r5
+	bcctrl ALWAYS, 0, 0      ! call trap routine
+	
+	lwz r0, 4(sp)            ! load old lr again
+	addi sp, sp, 8           ! retract over stack usage
+	bclr ALWAYS, 0, 0        ! return 
+
+fatal:
+	addi r3, r0, 1
+	addis r4, r0, <message
+	ori r4, r4, >message
+	addi r5, r0, 6
+	addi r0, r0, 4           ! write()
+	sc 0
+	
+	addi r0, r0, 1           ! exit()
+	sc 0
+
+.sect .rom
+message:
+	.ascii "TRAP!\n"

+ 48 - 0
plat/linuxppc/pmfile

@@ -0,0 +1,48 @@
+-- $Source: /cvsroot/tack/Ack/plat/linux386/pmfile,v $
+-- $State: Exp $
+-- $Revision: 1.3 $
+
+local d = ROOTDIR.."plat/linuxppc/"
+
+include (d.."libsys/pmfile")
+include "plat/linux/liblinux/pmfile"
+
+local bootsector = ackfile {
+	file (d.."boot.s"),
+	install = pm.install("%BINDIR%lib/%PLATFORM%/boot.o"),
+}
+
+local descr = group {
+	install = pm.install(d.."descr", "%BINDIR%%PLATIND%/%PLATFORM%/descr")
+}
+
+local headers = group {
+	install = {
+		pm.install(d.."include/ack/config.h", "%BINDIR%%PLATIND%/%PLATFORM%/include/ack/config.h"),
+		pm.install(d.."include/unistd.h",     "%BINDIR%%PLATIND%/%PLATFORM%/include/unistd.h"),
+	}
+}
+
+platform_linuxppc = group {
+	ARCH = "powerpc",
+	PLATFORM = "linuxppc",
+	OPTIMISATION = "-O",
+	
+	-- Ensure the descr and headers are installed first because we'll need it
+	-- to build the libraries.
+	
+	descr,
+	headers,
+	
+	-- Build the back-end support.
+	
+	mach_powerpc,
+	support_powerpc,
+	lang_runtimes,
+
+	-- Build the PC standalone syscall library.
+	
+	liblinux,
+	libsys_linuxppc,
+	bootsector,
+}

+ 9 - 1
pmfile

@@ -95,6 +95,12 @@ include "plat/pc86/pmfile"             -- PC standalone
 include "mach/i386/pmfile"             -- generic i386
 include "plat/linux386/pmfile"         -- Linux executables
 
+include "mach/powerpc/pmfile"          -- generic PowerPC
+include "plat/linuxppc/pmfile"         -- Linux executables
+
+include "mach/m68020/pmfile"           -- generic M68k
+include "plat/linux68k/pmfile"         -- Linux executables
+
 include "mach/i80/pmfile"              -- generic 8080
 include "plat/cpm/pmfile"              -- CP/M
 
@@ -180,7 +186,9 @@ default = group {
 	
 	platform_pc86,
 	platform_linux386,
-	platform_cpm
+	platform_linuxppc,
+	platform_linux68k,
+	platform_cpm,
 }
 
 -- Ensure that the work directories exist.

+ 12 - 6
util/amisc/ashow.c

@@ -112,10 +112,10 @@ showsect()
 	struct outsect	section;
 
 	rd_sect(&section, 1);
-	printf("\tstartaddress in machine\t%ld\n",	section.os_base);
-	printf("\tsection size in machine\t%ld\n",	section.os_size);
-	printf("\tstartaddress in file\t%ld\n",		section.os_foff);
-	printf("\tsection size in file\t%ld\n",		section.os_flen);
+	printf("\tstartaddress in machine\t0x%lX\n",	section.os_base);
+	printf("\tsection size in machine\t0x%lX\n",	section.os_size);
+	printf("\tstartaddress in file\t0x%lX\n",		section.os_foff);
+	printf("\tsection size in file\t0x%lX\n",		section.os_flen);
 	printf("\tsection alignment\t%ld\n",		section.os_lign);
 }
 
@@ -137,8 +137,14 @@ showrelo()
 	case RELO4:
 		printf("\t4 bytes\n");
 		break;
+	case RELOPPC:
+		printf("\tPowerPC 26-bit address\n");
+		break;
+	case RELOH2:
+		printf("\ttop 2 bytes of a 4 byte word\n");
+		break;
 	default:
-		error("\tunexpected relocation length\n");
+		printf("\tunknown relocation type %d\n", relrec.or_type & RELSZ);
 		break;
 	}
 	if (relrec.or_type & RELPC) printf("\tpc relative\n");
@@ -194,7 +200,7 @@ showname(namep)
 		printf("\tstab 0x%x\n", namep->on_type >> 8);
 		printf("\tdesc 0x%x\n", namep->on_desc);
 	}
-	printf("\tvalue %ld\n", namep->on_valu);
+	printf("\tvalue 0x%lX\n", namep->on_valu);
 }
 
 /*

+ 3 - 1
util/led/ack.out.5

@@ -161,7 +161,9 @@ struct outrelo {
 #define RELSZ	0x07		/* relocation length */
 #define RELO1	0x01		/* 1 byte */
 #define RELO2	0x02		/* 2 bytes */
-#define RELO4	0x04		/* 4 bytes */
+#define RELO4	0x03		/* 4 bytes */
+#define RELOPPC	0x04		/* 26-bit PowerPC address */
+#define RELOH2  0x05        /* write top 2 bytes of 4 byte word */
 #define RELPC	0x08		/* pc relative */
 #define RELBR	0x10		/* High order byte lowest address. */
 #define RELWR	0x20		/* High order word lowest address. */

+ 2 - 2
util/led/pmfile

@@ -31,8 +31,8 @@ tool_led = cprogram {
 }
 	
 -- Revision history
--- $Log$
--- Revision 1.2  2006-07-22 20:52:44  dtrg
+-- $Log: pmfile,v $
+-- Revision 1.2  2006/07/22 20:52:44  dtrg
 -- led now gets installed into the right place.
 --
 -- Revision 1.1  2006/07/22 20:04:41  dtrg

+ 83 - 43
util/led/relocate.c

@@ -16,6 +16,33 @@ static char rcsid[] = "$Id$";
 
 #define UBYTE(x)	((x) & BYTEMASK)
 
+static long read2(char* addr, int type)
+{
+	unsigned short word0, word1;
+
+	if (type & RELBR)
+		return (UBYTE(addr[0]) << WIDTH) + UBYTE(addr[1]);
+	else
+		return (UBYTE(addr[1]) << WIDTH) + UBYTE(addr[0]);
+}
+
+static long read4(char* addr, int type)
+{
+	unsigned short word0, word1;
+
+	if (type & RELBR) {
+		word0 = (UBYTE(addr[0]) << WIDTH) + UBYTE(addr[1]);
+		word1 = (UBYTE(addr[2]) << WIDTH) + UBYTE(addr[3]);
+	} else {
+		word0 = (UBYTE(addr[1]) << WIDTH) + UBYTE(addr[0]);
+		word1 = (UBYTE(addr[3]) << WIDTH) + UBYTE(addr[2]);
+	}
+	if (type & RELWR)
+		return ((long)word0 << (2 * WIDTH)) + word1;
+	else
+		return ((long)word1 << (2 * WIDTH)) + word0;
+}
+
 /*
  * The bits in type indicate how many bytes the value occupies and what
  * significance should be attributed to each byte.
@@ -25,34 +52,60 @@ getvalu(addr, type)
 	char	addr[];
 	char	type;
 {
-	unsigned short	word0, word1;
-
 	switch (type & RELSZ) {
 	case RELO1:
 		return UBYTE(addr[0]);
 	case RELO2:
-		if (type & RELBR)
-			return (UBYTE(addr[0]) << WIDTH) + UBYTE(addr[1]);
-		else
-			return (UBYTE(addr[1]) << WIDTH) + UBYTE(addr[0]);
+		return read2(addr, type);
 	case RELO4:
-		if (type & RELBR) {
-			word0 = (UBYTE(addr[0]) << WIDTH) + UBYTE(addr[1]);
-			word1 = (UBYTE(addr[2]) << WIDTH) + UBYTE(addr[3]);
-		} else {
-			word0 = (UBYTE(addr[1]) << WIDTH) + UBYTE(addr[0]);
-			word1 = (UBYTE(addr[3]) << WIDTH) + UBYTE(addr[2]);
-		}
-		if (type & RELWR)
-			return ((long)word0 << (2 * WIDTH)) + word1;
-		else
-			return ((long)word1 << (2 * WIDTH)) + word0;
+		return read4(addr, type);
+	case RELOPPC:
+		return read4(addr, type) & 0x03FFFFFD;
+	case RELOH2:
+		return read2(addr, type) << 16;
 	default:
 		fatal("bad relocation size");
 	}
 	/* NOTREACHED */
 }
 
+static void write2(long valu, char* addr, int type)
+{
+	unsigned short	word0, word1;
+
+	if (type & RELBR) {
+		addr[0] = valu >> WIDTH;
+		addr[1] = valu;
+	} else {
+		addr[0] = valu;
+		addr[1] = valu >> WIDTH;
+	}
+}
+
+static void write4(long valu, char* addr, int type)
+{
+	unsigned short	word0, word1;
+
+	if (type & RELWR) {
+		word0 = valu >> (2 * WIDTH);
+		word1 = valu;
+	} else {
+		word0 = valu;
+		word1 = valu >> (2 * WIDTH);
+	}
+	if (type & RELBR) {
+		addr[0] = word0 >> WIDTH;
+		addr[1] = word0;
+		addr[2] = word1 >> WIDTH;
+		addr[3] = word1;
+	} else {
+		addr[0] = word0;
+		addr[1] = word0 >> WIDTH;
+		addr[2] = word1;
+		addr[3] = word1 >> WIDTH;
+	}
+}
+
 /*
  * The bits in type indicate how many bytes the value occupies and what
  * significance should be attributed to each byte.
@@ -64,40 +117,26 @@ putvalu(valu, addr, type)
 	char	addr[];
 	char	type;
 {
-	unsigned short	word0, word1;
 
 	switch (type & RELSZ) {
 	case RELO1:
 		addr[0] = valu;
 		break;
 	case RELO2:
-		if (type & RELBR) {
-			addr[0] = valu >> WIDTH;
-			addr[1] = valu;
-		} else {
-			addr[0] = valu;
-			addr[1] = valu >> WIDTH;
-		}
+		write2(valu, addr, type);
 		break;
 	case RELO4:
-		if (type & RELWR) {
-			word0 = valu >> (2 * WIDTH);
-			word1 = valu;
-		} else {
-			word0 = valu;
-			word1 = valu >> (2 * WIDTH);
-		}
-		if (type & RELBR) {
-			addr[0] = word0 >> WIDTH;
-			addr[1] = word0;
-			addr[2] = word1 >> WIDTH;
-			addr[3] = word1;
-		} else {
-			addr[0] = word0;
-			addr[1] = word0 >> WIDTH;
-			addr[2] = word1;
-			addr[3] = word1 >> WIDTH;
-		}
+		write4(valu, addr, type);
+		break;
+	case RELOPPC:
+	{
+		long i = read4(addr, type) & ~0x03FFFFFD;
+		i |= valu & 0x03FFFFFD;
+		write4(i, addr, type);
+		break;
+	}
+	case RELOH2:
+		write2(valu>>16, addr, type);
 		break;
 	default:
 		fatal("bad relocation size");
@@ -182,6 +221,7 @@ relocate(head, emit, names, relo, off)
 	 * Pick up previous value at location to be relocated.
 	 */
 	valu = getvalu(emit + (relo->or_addr - off), relo->or_type);
+
 	/*
 	 * Or_nami is an index in the name table of the considered module.
 	 * The name of which it is an index can be:

+ 9 - 5
util/ncgg/cgg.y

@@ -38,7 +38,7 @@ int Xstackflag=0; /* set in coercions, moves, and tests. %1 means something
 		   */
 
 struct varinfo *gen_inst(),*gen_move(),*gen_test(),*gen_preturn(),*gen_tlab();
-struct varinfo *gen_label(), *make_erase();
+struct varinfo *gen_label(), *gen_stackadjust(), *make_erase();
 expr_t make_expr(),ident_expr(),subreg_expr(),tokm_expr(),all_expr();
 expr_t perc_ident_expr(),sum_expr(),regvar_expr();
 
@@ -74,9 +74,9 @@ iocc_t iops[20];
 %token TOPELTSIZE FALLTHROUGH LABELDEF
 %token PROC CALL EXAMPLE
 %token FROM TO
-%token TEST MOVE STACK RETURN
+%token TEST MOVE STACK RETURN STACKADJUST
 %token PATTERNS PAT WITH EXACT KILLS USES REUSING GEN YIELDS LEAVING
-%token DEFINED SAMESIGN SFIT UFIT ROM LOWW HIGHW ISROM
+%token DEFINED SAMESIGN SFIT UFIT ROM LOWW HIGHW ISROM STACKOFFSET
 %token CMPEQ CMPNE CMPLT CMPGT CMPLE CMPGE OR2 AND2 LSHIFT RSHIFT NOT COMP
 %token INREG REGVAR REG_ANY REG_FLOAT REG_LOOP REG_POINTER
 %token <yy_int> ADORNACCESS
@@ -635,8 +635,8 @@ coderule
 			maxempatlen=empatlen;
 		}
 	  patterns
-		{ if (!saferulefound)
-			error("Previous rule impossible on empty stack");
+		{ /* if (!saferulefound)
+			error("Previous rule impossible on empty stack"); */
 		  outpatterns();
 		}
 	| PROC IDENT example
@@ -849,6 +849,8 @@ gen_instruction
 		{ $$ = gen_label($2-1); use_tes++; }
 	| RETURN
 		{ $$ = gen_preturn(); }
+	| STACKADJUST expr
+		{ $$ = gen_stackadjust($2.ex_index); use_noframepointer++; }
 	;
 optstar
 	: /* empty */
@@ -1028,6 +1030,8 @@ expr
 		{ $$ = make_expr(TYPINT,EX_LOWW,$3-1,0); }
 	| HIGHW '(' emarg ')'
 		{ $$ = make_expr(TYPINT,EX_HIGHW,$3-1,0); }
+	| STACKOFFSET '(' ')'
+		{ $$ = make_expr(TYPINT,EX_STACKOFFSET, 0, 0); }
 /* Excluded, because it causes a shift-reduce conflict
    (problems with a tokenset_no followed by an optexpr)
 	| '-' expr %prec UMINUS

+ 9 - 0
util/ncgg/coerc.c

@@ -127,6 +127,15 @@ struct varinfo *gen_preturn() {
 	return(vp);
 }
 
+struct varinfo *gen_stackadjust(int expr) {
+	register struct varinfo *vp;
+
+	NEW(vp,struct varinfo);
+	vp->vi_int[0] = INSSTACKADJUST;
+	vp->vi_int[1] = expr;
+	return(vp);
+}
+
 struct varinfo *gen_tlab(n) {
 	register struct varinfo *vp;
 

+ 1 - 0
util/ncgg/extern.h

@@ -37,6 +37,7 @@ extern int regclass;
 extern int maxtokensize;
 extern int nprocargs, maxprocargs;
 extern int use_tes;
+extern int use_noframepointer;
 
 extern char *mystrcpy();
 extern char *myalloc();

+ 2 - 0
util/ncgg/keywords

@@ -43,6 +43,8 @@ reusing	REUSING
 rom	ROM
 samesign	SAMESIGN
 sfit	SFIT
+stackadjust STACKADJUST
+stackoffset STACKOFFSET
 topeltsize	TOPELTSIZE
 test	TEST
 to	TO

+ 9 - 0
util/ncgg/output.c

@@ -12,6 +12,8 @@ int	tabledebug=0;	/* do not generate code for table debugging */
 #endif
 int	verbose=0;	/* print all statistics */
 int	use_tes;	/* use top element size information */
+int use_noframepointer;	/* use stackadjust mechanism to remove requirement
+                           for frame pointer */
 char	*c_file=	"tables.c";
 char	*h_file=	"tables.H";
 char	*cd_file=	"code";
@@ -612,6 +614,8 @@ outdefs() {
 		cdef("TABLEDEBUG",1);
 	if (use_tes)
 		cdef("USE_TES",1);
+	if (use_noframepointer)
+		cdef("USE_NOFRAMEPOINTER",1);
 }
 
 outars() {
@@ -852,6 +856,11 @@ varinfo *kills,*allocates,*generates,*yields,*leaving;
 			codeint(vp->vi_int[1]);
 			codenl();
 			break;
+		case INSSTACKADJUST:
+			code8(DO_STACKADJUST);
+			codeint(vp->vi_int[1]);
+			codenl();
+			break;
 		}
 	}
 	codecoco(cocono);

+ 4 - 4
util/ncgg/param.h

@@ -15,8 +15,8 @@
 #define BORS(x,y) y
 #endif
 
-#define MAXREGS BORS(40,30)
-#define MAXPROPS BORS(30,20)
+#define MAXREGS BORS(80,30)
+#define MAXPROPS BORS(120,20)
 #define MAXTOKENS BORS(100,60)
 #define MAXATT 6
 #define MAXSETS BORS(200,100)
@@ -27,14 +27,14 @@
 #define MAXPATTERNS BORS(40,30)
 #define MAXALLREG 5
 #define MAXINSTANCES BORS(500,300)
-#define MAXMOVES BORS(40,20)
+#define MAXMOVES BORS(80,20)
 #define MAXTESTS 10
 #define MAXSTACKS BORS(30,20)
 #define MAXCOERCS BORS(50,30)
 #define MAXSPLCOERC BORS(20,10)
 #define MAXSPLIT 3
 #define MAXPATBYTES BORS(14000,7000)
-#define MAXREGVAR 10
+#define MAXREGVAR 64
 #define MAXSOURCELINES 7000
 #define MAXPROCARG 10
 

+ 1 - 21
util/ncgg/pmfile

@@ -61,27 +61,7 @@ ncgg = simple {
 	
 	outputs = {"%U%/tables.c", "%U%/tables.h"},
 	command = {
-		"cd %out[1]:dirname% && (%BINDIR%%PLATDEP%/cpp.ansi -P -I%NCGGINCLUDEDIR% %in% | %TOOLDIR%ncgg)",
+		"cd %out[1]:dirname% && (%BINDIR%%PLATDEP%/cpp.ansi -I%NCGGINCLUDEDIR% %in% | %TOOLDIR%ncgg)",
 		"mv %out[1]:dirname%/tables.H %out[2]%"
 	},
 }
-
---[[
-	@echo HOSTNCG $SRCDIR/src/arch/$table/ncg/table
-	@mkdir -p \$(dir \$@)
-	@(cd $OBJDIR/src/arch/$1/ncg && $DESTDIR/bin/cpp -P -I$SRCDIR/src/arch/$1/ncg $SRCDIR/src/arch/$table/ncg/table | \
-		$DESTDIR/bin/ncgg) > /dev/null
-	@(cd $OBJDIR/src/arch/$1/ncg && mv tables.H tables.h)
---]]
-
--- Revision history
--- $Log$
--- Revision 1.3  2007-04-23 23:40:59  dtrg
--- Modified to run ncgg input files through the ANSI preprocessor rather than the K&R one.
---
--- Revision 1.2  2006/07/22 20:58:27  dtrg
--- cpp now gets installed in the right place.
---
--- Revision 1.1  2006/07/20 23:24:28  dtrg
--- First version in CVS.
---

+ 1 - 0
util/ncgg/pseudo.h

@@ -12,3 +12,4 @@
 #define INSERASE	(-6)
 #define INSREMOVE	(-7)
 #define INSLABDEF	(-8)
+#define INSSTACKADJUST (-9)