Virtualmips modified to allow access to SRSCtl register.

When only one GPR set supported, opcodes RDPGPR and WRPGPR
behave like MOVE instruction.

Makefile

@@ -12,6 +12,7 @@
 # Supported boards
 #
 MAX32           = sys/pic32/max32/MAX32
+MAX32-ETH       = sys/pic32/max32-eth/MAX32-ETH
 UBW32           = sys/pic32/ubw32/UBW32
 UBW32UART       = sys/pic32/ubw32-uart/UBW32-UART
 UBW32UARTSDRAM  = sys/pic32/ubw32-uart-sdram/UBW32-UART-SDRAM
@@ -81,6 +82,7 @@ SHARE_FILES	= share/re.help share/example/Makefile \
                   share/example/blkjack.bas share/example/hilow.bas \
                   share/example/stars.bas share/example/prime.scm \
                   share/example/fact.fth share/example/echo.S \
+                  share/example/stdarg.c share/example/skeleton.c \
                   $(wildcard share/smallc/*)
 MANFILES	= share/man/ share/man/cat1/ share/man/cat2/ share/man/cat3/ \
 		  share/man/cat4/ share/man/cat5/ share/man/cat6/ share/man/cat7/ \
@@ -193,11 +195,11 @@ else
 endif
 
 # TODO: make it relative to Target
-installflash: 
+installflash:
 	sudo  pic32prog  sys/pic32/fubarino/unix.hex
 
 # TODO: make it relative to Target
-installboot: 
+installboot:
 	sudo  pic32prog  sys/pic32/fubarino/bootloader.hex
 
 .profile:   etc/root/dot.profile

README.md

@@ -40,6 +40,7 @@ TARGET = $(MAXCOLOR)       # for the Colour Maximite board
 TARGET = $(EXPLORER16)     # for the Explorer 16 board
 TARGET = $(STARTERKIT)     # for the PIC32 USB or Ethernet Starter Kit
 TARGET = $(MAX32)          # default
+TARGET = $(MAX32-ETH)      # for the chipKIT MAX32 board with Arduino Ethernet shield
 TARGET = $(DUINOMITE)      # for the Duinomite board with USB console
 TARGET = $(DUINOMITEUART)  # for the Duinomite board with UART console
 TARGET = $(DUINOMITEE)     # for the Duinomite E board with USB console
@@ -89,7 +90,7 @@ on a board used.
 #### Max32 board:
 ```shell
 $ cd sys/pic32/ubw32
-$ AVRTOOLS=/Applications/Mpide.app/Contents/Resources/Java/hardware/tools
+$ AVRTOOLS=/Applications/Mpide.app/Contents/Resources/Java/hardware/tools/avr
     $AVRTOOLS/bin/avrdude -C$AVRTOOLS/etc/avrdude.conf -c stk500v2 -p pic32 \
     -P /dev/tty.usbserial-* -b 115200 -v -U flash:w:unix.hex:i
 ```

include/a.out.h

@@ -33,29 +33,7 @@
 #ifndef	_AOUT_H_
 #define	_AOUT_H_
 
-#include <sys/exec.h>
-
-/* Valid magic number check. */
-#define	N_BADMAG(x) 		(((x).a_magic) != RMAGIC && \
-				 ((x).a_magic) != OMAGIC && \
-				 ((x).a_magic) != NMAGIC)
-
-/* Text segment offset. */
-#define	N_TXTOFF(x) 		sizeof(struct exec)
-
-/* Data segment offset. */
-#define	N_DATOFF(x) 		(N_TXTOFF(x) + (x).a_text)
-
-/* Text relocation table offset. */
-#define	N_TRELOFF(x) 		(N_DATOFF(x) + (x).a_data)
-
-/* Data relocation table offset. */
-#define	N_DRELOFF(x) 		(N_TRELOFF(x) + (x).a_reltext)
-
-/* Symbol table offset. */
-#define	N_SYMOFF(x) 		((x).a_magic == RMAGIC ? \
-                                    N_DRELOFF(x) + (x).a_reldata : \
-                                    N_DATOFF(x) + (x).a_data)
+#include <sys/exec_aout.h>
 
 #define	_AOUT_INCLUDE_
 #include <nlist.h>

include/stdarg.h

@@ -4,32 +4,49 @@
 #ifndef _STDARG_H
 #define _STDARG_H
 
-/* Define __gnuc_va_list.  */
+/*
+ * Define va_start, va_arg, va_end, va_copy.
+ */
+#if defined(__GNUC__)           /* Gnu C */
+# define va_start(ap, last)	__builtin_va_start((ap), last)
+# define va_arg(ap, type)       __builtin_va_arg((ap), type)
+# define va_end(ap)             __builtin_va_end((ap))
+# define va_copy(dest, src)     __builtin_va_copy((dest), (src))
 
+#elif defined(__PCC__)          /* PCC */
+# define va_start(ap, last)     __builtin_stdarg_start((ap), last)
+# define va_arg(ap, type)       __builtin_va_arg((ap), type)
+# define va_end(ap)             __builtin_va_end((ap))
+# define va_copy(dest, src)     __builtin_va_copy((dest), (src))
 
-#ifdef __GNUC__
-#   ifndef __GNUC_VA_LIST
-#       define __GNUC_VA_LIST
-        typedef __builtin_va_list __gnuc_va_list;
-#   endif
-#   define va_start(ap, last)	__builtin_va_start((ap), last)
+#else                           /* SmallerC, LCC */
+# define va_start(ap, last)     (ap = ((char*)&(last) + \
+        (((sizeof(last) + sizeof(int) - 1) / sizeof(int)) * sizeof(int))))
+# define va_arg(ap, type)       ((type*)(ap += \
+        sizeof(type) == sizeof(int) ? sizeof(type) : \
+        (-(int)(ap) & (sizeof(type) - 1)) + sizeof(type)))[-1]
+# define va_end(ap)
+# define va_copy(dest, src)     (dest = (src))
 #endif
-#ifdef __PCC__
-#   define va_start(ap, last)   __builtin_stdarg_start((ap), last)
-#endif
-#define va_arg(ap, type)        __builtin_va_arg((ap), type)
-#define va_end(ap)              __builtin_va_end((ap))
-#define va_copy(dest, src)      __builtin_va_copy((dest), (src))
-
 
+/*
+ * Define va_list.
+ */
 #ifndef _VA_LIST_T
-#define _VA_LIST_T
-#ifdef __GNUC__
+# define _VA_LIST_T
+# if defined(__GNUC__) || defined(__PCC__)
     typedef __builtin_va_list va_list;
+# else
+    typedef char *va_list;
+# endif
 #endif
-#ifdef __SMALLER_C__
-    typedef int *va_list;
-#endif
+
+/*
+ * Define __gnuc_va_list.
+ */
+#if defined(__GNUC__) && !defined(__GNUC_VA_LIST)
+# define __GNUC_VA_LIST
+    typedef __builtin_va_list __gnuc_va_list;
 #endif
 
 #endif /* not _STDARG_H */

include/stdio.h

@@ -110,7 +110,12 @@ int	 scanf (const char *, ...);
 int	 sscanf (const char *, const char *, ...);
 
 #ifndef _VA_LIST_
-#define va_list		__builtin_va_list	/* For GCC */
+# ifdef __GNUC__
+#  define va_list   __builtin_va_list   /* For Gnu C */
+# endif
+# ifdef __SMALLER_C__
+#  define va_list   char *              /* For Smaller C */
+# endif
 #endif
 
 int	 vfprintf (FILE *, const char *, va_list);
@@ -126,7 +131,7 @@ int	_doprnt (const char *, va_list, FILE *);
 int	_doscan (FILE *, const char *, va_list);
 
 #ifndef _VA_LIST_
-#undef va_list
+# undef va_list
 #endif
 
 void    perror (const char *);

include/stdlib.h

@@ -54,49 +54,51 @@
 
 #define	RAND_MAX	0x7fff
 
-void	abort();
+void	abort (void);
 int	abs (int);
 int	atexit (void (*)(void));
-double	atof();
-int	atoi();
-long	atol();
+int	atoi (const char *);
+long	atol (const char *);
 void	*calloc (size_t, size_t);
 void	exit (int);
 void	free (void *);
-char	*getenv();
+char	*getenv (const char *);
 long    labs (long);
 void	*malloc (size_t);
 char	*mktemp (char *);
 int     mkstemp (char *);
-void	qsort();
-int	rand();
+void	qsort (void *, size_t, size_t, int (*)(const void *, const void *));
+int	rand (void);
 void	*realloc (void*, size_t);
-void	srand();
-double	strtod();
-long	strtol();
-unsigned long strtoul();
-int	system();
+void	srand (unsigned);
+long	strtol (const char *, char **, int);
+unsigned long strtoul (const char *, char **, int);
+int	system (const char *);
 
 int     putenv (char *string);
 int     setenv (const char *name, const char *value, int overwrite);
 int     unsetenv (const char *name);
 char	*_findenv (const char *name, int *offset);
 
-void	*alloca();
+void	*alloca (size_t size);
 
-int	daemon();
-char	*devname();
-int	getloadavg(unsigned loadavg[], int nelem);
+int	daemon (int, int);
+char	*devname (dev_t dev, mode_t type);
+int	getloadavg (unsigned loadavg[], int nelem);
 
 extern char *suboptarg;			/* getsubopt(3) external variable */
-int	getsubopt();
+int	getsubopt (char **, char **, char **);
 
 long	random (void);
 char	*setstate (char *);
 void	srandom (unsigned);
 
-char *ecvt (double, int, int *, int *);
-char *fcvt (double, int, int *, int *);
-char *gcvt (double, int, char *);
+#ifndef __SMALLER_C__
+double	atof (const char *);
+double	strtod (const char *, char **);
+char    *ecvt (double, int, int *, int *);
+char    *fcvt (double, int, int *, int *);
+char    *gcvt (double, int, char *);
+#endif
 
 #endif /* _STDLIB_H_ */

include/unistd.h

@@ -143,7 +143,12 @@ extern	char	*optarg;		/* getopt(3) external variables */
 extern	int	opterr, optind, optopt;
 
 #ifndef _VA_LIST_
-#define va_list		__builtin_va_list	/* For GCC */
+# ifdef __GNUC__
+#  define va_list   __builtin_va_list   /* For Gnu C */
+# endif
+# ifdef __SMALLER_C__
+#  define va_list   char *              /* For Smaller C */
+# endif
 #endif
 
 void	err (int eval, const char *fmt, ...);
@@ -156,6 +161,6 @@ void	vwarn (const char *fmt, va_list ap);
 void	vwarnx (const char *fmt, va_list ap);
 
 #ifndef _VA_LIST_
-#undef va_list
+# undef va_list
 #endif
 #endif /* !_UNISTD_H_ */

lib/.gitignore

@@ -11,3 +11,4 @@ ranlib.h
 retroImage
 size
 strip
+gccdump.s

share/example/Makefile

@@ -1,5 +1,5 @@
 
-all:	ashello echo
+all:	ashello echo chello
 
 ashello: ashello.o
 	$(LD) ashello.o -o $@
@@ -11,4 +11,4 @@ echo:   echo.o
 	$(LD) $@.o -o $@
 
 clean:
-	rm -f *.o ashello echo *.dis *~
+	rm -f *.o ashello echo chello *.dis *~

share/example/Makefile-host

@@ -5,13 +5,13 @@ CFLAGS		+= -Werror
 ASFLAGS		+= -DCROSS
 ASLDFLAGS       = --oformat=elf32-tradlittlemips -N -nostartfiles -T $(TOPSRC)/src/elf32-mips.ld
 
-all:            hello cplus
+all:            chello cplus echo stdarg
 
-hello:          hello.o
-		${CC} ${LDFLAGS} -o hello.elf hello.o ${LIBS}
-		${OBJDUMP} -S hello.elf > hello.dis
-		${SIZE} hello.elf
-		${ELF2AOUT} hello.elf $@
+chello:         chello.o
+		${CC} ${LDFLAGS} -o chello.elf chello.o ${LIBS}
+		${OBJDUMP} -S chello.elf > chello.dis
+		${SIZE} chello.elf
+		${ELF2AOUT} chello.elf $@
 
 cplus:          cplus.o
 		${CXX} ${LDFLAGS} -nostdlib -o cplus.elf cplus.o ${LIBS}
@@ -24,7 +24,6 @@ echo:           echo.o
 		${OBJDUMP} -S $@.elf > $@.dis
 		${SIZE} $@.elf
 		${ELF2AOUT} $@.elf $@
-		./aout $@ > $@.dis
 
 clean:
-		rm -f *.o *.elf ${MAN} hello cplus *.elf *.dis tags *~
+		rm -f *.o *.elf ${MAN} chello cplus echo stdarg *.elf *.dis tags *~

share/example/chello.c

@@ -2,6 +2,6 @@
 
 int main()
 {
-	printf ("Hello, C World!\n");
-	return 0;
+    printf ("Hello, C World!\n");
+    return 0;
 }

share/example/skeleton.c

@@ -0,0 +1,92 @@
+/*
+ * Generic skeleton for a C program.
+ * When you create your own program based on this skeleton,
+ * you can replace the author's name and copyright with
+ * whatever your want.  When you redistribute this skeleton or
+ * enhance it, please leave my name and copyright on it.
+ *
+ * Copyright (C) 1993-2014 Serge Vakulenko, <vak@cronyx.ru>
+ *
+ * Permission to use, copy, modify, and distribute this software
+ * and its documentation for any purpose and without fee is hereby
+ * granted, provided that the above copyright notice appear in all
+ * copies and that both that the copyright notice and this
+ * permission notice and warranty disclaimer appear in supporting
+ * documentation, and that the name of the author not be used in
+ * advertising or publicity pertaining to distribution of the
+ * software without specific, written prior permission.
+ *
+ * The author disclaim all warranties with regard to this
+ * software, including all implied warranties of merchantability
+ * and fitness.  In no event shall the author be liable for any
+ * special, indirect or consequential damages or any damages
+ * whatsoever resulting from loss of use, data or profits, whether
+ * in an action of contract, negligence or other tortious action,
+ * arising out of or in connection with the use or performance of
+ * this software.
+ */
+#include <stdio.h>
+#include <stdlib.h>
+#include <unistd.h>
+
+const char version[] = "1.0";
+const char copyright[] = "Copyright (C) 1993-2014 Serge Vakulenko";
+
+char *progname;         /* Name of the current program (argv[0]) */
+int verbose;            /* Option -v */
+int trace;              /* Option -t */
+int debug;              /* Option -d */
+
+void usage ()
+{
+    fprintf (stderr, "Generic C skeleton, Version %s, %s\n", version, copyright);
+    fprintf (stderr, "Usage:\n\t%s [-vtd] [-r count] file...\n", progname);
+    fprintf (stderr, "Options:\n");
+    fprintf (stderr, "\t-v\tverbose mode\n");
+    fprintf (stderr, "\t-t\ttrace mode\n");
+    fprintf (stderr, "\t-d\tdebug\n");
+    fprintf (stderr, "\t-r #\trepeat count\n");
+    exit (-1);
+}
+
+int main (int argc, char **argv)
+{
+    int count = 1;      /* Option -r # */
+
+    progname = *argv;
+    for (;;) {
+        switch (getopt (argc, argv, "vtdr:")) {
+        case EOF:
+            break;
+        case 'v':
+            ++verbose;
+            continue;
+        case 't':
+            ++trace;
+            continue;
+        case 'd':
+            ++debug;
+            continue;
+        case 'r':
+            count = strtol (optarg, 0, 0);
+            continue;
+        default:
+            usage ();
+        }
+        break;
+    }
+    argc -= optind;
+    argv += optind;
+
+    if (argc < 1)
+        usage ();
+
+    while (count-- > 0) {
+        int i;
+
+        for (i=0; i<argc; ++i)
+            printf ("%s ", argv[i]);
+        printf ("\n");
+    }
+    return (0);
+}

share/example/stdarg.c

@@ -0,0 +1,34 @@
+#include <stdio.h>
+#include <stdarg.h>
+
+void print(char *fmt, ...)
+{
+    va_list ap;
+    int d;
+    char c, *s;
+
+    va_start(ap, fmt);
+    while (*fmt) {
+        switch (*fmt++) {
+        case 's':              /* string */
+            s = va_arg(ap, char*);
+            printf("string %s\n", s);
+            break;
+        case 'd':              /* int */
+            d = va_arg(ap, int);
+            printf("int %d\n", d);
+            break;
+        case 'c':              /* char */
+            c = va_arg(ap, int);
+            printf("char %c\n", c);
+            break;
+        }
+    }
+    va_end(ap);
+}
+
+int main()
+{
+    print("sdcsdc", "abracadabra", 12345, 'Z', "foo", 365, '%');
+    return 0;
+}

src/cmd/as/aout.c

@@ -55,7 +55,7 @@ int fgethdr (text, h)
     register FILE *text;
     register struct exec *h;
 {
-    h->a_magic   = fgetword (text);
+    h->a_midmag   = fgetword (text);
     h->a_text    = fgetword (text);
     h->a_data    = fgetword (text);
     h->a_bss     = fgetword (text);
@@ -235,7 +235,7 @@ void disasm (fname)
         return;
     }
     if (rflag) {
-        if (hdr.a_magic != RMAGIC) {
+	    if (N_GETMAGIC(hdr) != RMAGIC) {
             fprintf (stderr, "aout: %s is not relocatable\n",
                 fname);
             rflag = 0;
@@ -250,9 +250,9 @@ void disasm (fname)
     }
     printf ("File %s:\n", fname);
     printf ("    a_magic   = %08x (%s)\n", hdr.a_magic,
-        hdr.a_magic == RMAGIC ? "relocatable" :
-        hdr.a_magic == OMAGIC ? "OMAGIC" :
-        hdr.a_magic == NMAGIC ? "NMAGIC" : "unknown");
+	    N_GETMAGIC(hdr) == RMAGIC ? "relocatable" :
+	    N_GETMAGIC(hdr) == OMAGIC ? "OMAGIC" :
+	    N_GETMAGIC(hdr) == NMAGIC ? "NMAGIC" : "unknown");
     printf ("    a_text    = %08x (%u bytes)\n", hdr.a_text, hdr.a_text);
     printf ("    a_data    = %08x (%u bytes)\n", hdr.a_data, hdr.a_data);
     printf ("    a_bss     = %08x (%u bytes)\n", hdr.a_bss, hdr.a_bss);
@@ -261,7 +261,7 @@ void disasm (fname)
     printf ("    a_syms    = %08x (%u bytes)\n", hdr.a_syms, hdr.a_syms);
     printf ("    a_entry   = %08x\n", hdr.a_entry);
 
-    addr = (hdr.a_magic == RMAGIC) ? 0 : USER_CODE_START;
+    addr = ((hdr.a_magic) == RMAGIC) ? 0 : USER_CODE_START;
 
     if (hdr.a_text > 0) {
         printf ("\nSection .text:\n");

src/cmd/as/as.c

@@ -83,6 +83,7 @@ enum {
     LIDENT,             /* .ident */
     LWEAK,              /* .weak */
     LLOCAL,             /* .local */
+    LNAN,               /* .nan */
 };
 
 /*
@@ -215,7 +216,8 @@ const struct optable optable [] = {
     { 0x04110000,   "bal",      FAOFF18 | FDSLOT },
     { 0x10000000,   "beq",      FRS1 | FRT2 | FOFF18 | FDSLOT },
     { 0x50000000,   "beql",	FRS1 | FRT2 | FOFF18 | FDSLOT },
-    { 0x50000000,   "beqz",	FRS1 | FOFF18 | FDSLOT },
+    { 0x10000000,   "beqz",	FRS1 | FOFF18 | FDSLOT },
+    { 0x50000000,   "beqzl",	FRS1 | FOFF18 | FDSLOT },
     { 0x04010000,   "bgez",	FRS1 | FOFF18 | FDSLOT },
     { 0x04110000,   "bgezal",	FRS1 | FOFF18 | FDSLOT },
     { 0x04130000,   "bgezall",	FRS1 | FOFF18 | FDSLOT },
@@ -230,7 +232,8 @@ const struct optable optable [] = {
     { 0x04020000,   "bltzl",	FRS1 | FOFF18 | FDSLOT },
     { 0x14000000,   "bne",	FRS1 | FRT2 | FOFF18 | FDSLOT },
     { 0x54000000,   "bnel",	FRS1 | FRT2 | FOFF18 | FDSLOT },
-    { 0x54000000,   "bnez",	FRS1 | FOFF18 | FDSLOT },
+    { 0x14000000,   "bnez",	FRS1 | FOFF18 | FDSLOT },
+    { 0x54000000,   "bnezl",	FRS1 | FOFF18 | FDSLOT },
     { 0x0000000d,   "break",	FCODE16 },
     { 0x70000021,   "clo",	FRD1 | FRS2 | FRTD | FMOD },
     { 0x70000020,   "clz",	FRD1 | FRS2 | FRTD | FMOD },
@@ -372,7 +375,7 @@ int mode_reorder = 1;                   /* .set reorder option (default) */
 int mode_macro;                         /* .set macro option */
 int mode_mips16;                        /* .set mips16 option */
 int mode_micromips;                     /* .set micromips option */
-int mode_at;                            /* .set at option */
+int mode_at = 1;                        /* .set at option */
 int reorder_full;                       /* instruction buffered for reorder */
 unsigned reorder_word;                  /* buffered instruction... */
 unsigned reorder_clobber;               /* ...modified this register */
@@ -522,7 +525,7 @@ void startup ()
 
     int fd = mkstemp (tfilename);
     if (fd == -1) {
-        uerror ("cannot create temporary file %2", tfilename);
+        uerror ("cannot create temporary file %s", tfilename);
     } else {
         close(fd);
     }
@@ -731,6 +734,9 @@ int lookacmd ()
     case 'm':
         if (! strcmp (".mask", name)) return (LMASK);
         break;
+    case 'n':
+        if (! strcmp (".nan", name)) return (LNAN);
+        break;
     case 'p':
         if (! strcmp (".previous", name)) return (LPREVIOUS);
         break;
@@ -1238,7 +1244,7 @@ void emitword (w, r, clobber_reg)
         reorder_word = w;
         reorder_rel = *r;
         reorder_full = 1;
-        reorder_clobber = clobber_reg;
+        reorder_clobber = clobber_reg & 15;
     } else {
         fputword (w, sfile[segm]);
         fputrel (r, rfile[segm]);
@@ -1267,6 +1273,9 @@ void emit_li (opcode, relinfo)
     } else if (value >= -0x8000) {
         /* addiu d, $zero, value */
         opcode |= 0x24000000 | (value & 0xffff);
+    } else if ((value & 0xffff) == 0) {
+        /* lui d, value[31:16] */
+        opcode |= 0x3c000000 | (value >> 16);
     } else {
         /* lui d, value[31:16]
          * ori d, d, value[15:0]) */
@@ -1317,10 +1326,9 @@ void makecmd (opcode, type, emitfunc)
     unsigned opcode;
     void (*emitfunc) (unsigned, struct reloc*);
 {
-    register int clex;
-    register unsigned offset;
+    unsigned offset, orig_opcode = 0;
     struct reloc relinfo;
-    int cval, segment, clobber_reg, negate_literal;
+    int clex, cval, segment, clobber_reg, negate_literal;
 
     offset = 0;
     relinfo.flags = RABS;
@@ -1480,6 +1488,7 @@ frs1:   clex = getlex (&cval);
                 cval = (opcode >> 11) & 31;         /* get 1-st register */
                 newop |= cval << 16;                /* set 1-st register */
                 newop |= opcode & (31 << 21);       /* set 2-nd register */
+                orig_opcode = opcode;
                 opcode = newop;
                 type = FRT1 | FRS2 | FOFF16 | FMOD;
                 goto foff16;
@@ -1572,33 +1581,79 @@ fsa:    offset = getexpr (&segment);
         }
     } else if (type & (FOFF16 | FOFF18 | FAOFF18 | FAOFF28 | FHIGH16)) {
         /* Relocatable offset */
+        int valid_range;
+
         if ((type & (FOFF16 | FOFF18 | FHIGH16)) && getlex (&cval) != ',')
             uerror ("comma expected");
 foff16: expr_flags = 0;
         offset = getexpr (&segment);
         relinfo.flags = segmrel [segment];
-        if (negate_literal) {
-            // Negate literal arg for sub and subu
-            offset = -offset;
-            if (relinfo.flags != RABS)
-                uerror ("cannot negate relocatable literal");
-        }
         if (relinfo.flags == REXT)
             relinfo.index = extref;
         if (expr_flags & EXPR_GPREL)
             relinfo.flags |= RGPREL;
         switch (type & (FOFF16 | FOFF18 | FAOFF18 | FAOFF28 | FHIGH16)) {
         case FOFF16:                    /* low 16-bit byte address */
-            opcode |= offset & 0xffff;
+            /* Test whether the immediate is in valid range
+             * for the opcode. */
+            if (negate_literal) {
+                // Negate literal arg for sub and subu
+                offset = -offset;
+                if (relinfo.flags != RABS)
+                    uerror ("cannot negate relocatable literal");
+            }
+            switch (opcode & 0xfc000000) {
+            default:                    /* addi, addiu, slti, sltiu, lw, sw */
+                /* 16-bit signed value. */
+                valid_range = (offset >= -0x8000) || (offset <= 0x7fff);
+                break;
+            case 0x30000000:            /* andi */
+            case 0x34000000:            /* ori */
+            case 0x38000000:            /* xori */
+                /* 16-bit unsigned value. */
+                valid_range = (offset <= 0xffff);
+                break;
+            }
+            if (valid_range) {
+                opcode |= offset & 0xffff;
+            } else if (orig_opcode == 0 || ! mode_at) {
+                uerror ("value out of range");
+            } else {
+                /* Convert back to 3-reg opcode.
+                 * Insert an extra LI instruction. */
+                if (segment != SABS)
+                    uerror ("absolute value required");
+                if (negate_literal)
+                    offset = -offset;
+
+                if (offset <= 0xffff) {
+                    /* ori $1, $zero, value */
+                    emitword (0x34010000 | offset, &relabs, 1);
+                } else if (offset >= -0x8000) {
+                    /* addiu $1, $zero, value */
+                    emitword (0x24010000 | (offset & 0xffff), &relabs, 1);
+                } else if ((offset & 0xffff) == 0) {
+                    /* lui $1, value[31:16] */
+                    emitword (0x3c010000 | (offset >> 16), &relabs, 1);
+                } else {
+                    /* lui $1, value[31:16]
+                     * ori $1, $1, value[15:0]) */
+                    emitword (0x3c010000 | (offset >> 16), &relabs, 1);
+                    emitword (0x34210000 | (offset & 0xffff), &relabs, 1);
+                }
+                opcode = orig_opcode | 0x10000;
+            }
             break;
         case FHIGH16:                   /* high 16-bit byte address */
-            if (relinfo.flags != RABS) {
+            if (expr_flags & EXPR_HI) {
                 /* %hi function - assume signed offset */
-                relinfo.flags |= (expr_flags & EXPR_HI) ? RHIGH16S : RHIGH16;
+                relinfo.flags |= RHIGH16S;
                 relinfo.offset = offset & 0xffff;
                 offset += 0x8000;
+                opcode |= offset >> 16;
+            } else {
+                opcode |= offset & 0xffff;
             }
-            opcode |= offset >> 16;
             break;
         case FOFF18:                    /* 18-bit PC-relative word address */
         case FAOFF18:
@@ -2111,7 +2166,7 @@ void pass1 ()
             }
             break;
         case LCOMM:
-            /* .comm name,len */
+            /* .comm name,len[,alignment] */
             if (getlex (&cval) != LNAME)
                 uerror ("bad parameter of .comm");
             cval = lookname();
@@ -2155,7 +2210,7 @@ void pass1 ()
         case LSECTION:
             /* .section name[,"flags"[,type[,entsize]]] */
             clex = getlex (&cval);
-            if (clex != LNAME && clex != LBSS)
+            if (clex != LNAME && clex != LBSS && clex != LTEXT && clex != LDATA)
                 uerror ("bad name of .section");
             setsection();
             clex = getlex (&cval);
@@ -2163,7 +2218,12 @@ void pass1 ()
                 ungetlex (clex, cval);
                 break;
             }
-            skipstring();
+            clex = getlex (&cval);
+            if (clex == '"') {
+                ungetlex (clex, cval);
+                skipstring();
+            } else if (clex != LNAME)
+                uerror ("bad type of .section");
             clex = getlex (&cval);
             if (clex != ',') {
                 ungetlex (clex, cval);
@@ -2210,6 +2270,12 @@ void pass1 ()
                 uerror ("bad parameter of .end");
             cval = lookname();
             break;
+        case LNAN:
+            /* .nan name */
+            clex = getlex (&cval);
+            if (clex != LNAME)
+                uerror ("bad parameter of .nan");
+            break;
         case LTYPE:
             /* .type name,type */
             if (getlex (&cval) != LNAME)
@@ -2311,18 +2377,28 @@ int findlabel (int addr, int sym)
 
 void middle ()
 {
-    register int i, snum;
+    register int i, snum, nbytes;
 
     stlength = 0;
     for (snum=0, i=0; i<stabfree; i++) {
-        /* Without -u option, undefined symbol is considered external */
-        if (stab[i].n_type == N_UNDF) {
+        switch (stab[i].n_type) {
+        case N_UNDF:
+            /* Without -u option, undefined symbol is considered external */
             if (uflag)
                 uerror ("name undefined", stab[i].n_name);
             stab[i].n_type |= N_EXT;
+            break;
+        case N_COMM:
+            /* Allocate a local common block */
+            nbytes = stab[i].n_value;
+            stab[i].n_value = count[SBSS];
+            stab[i].n_type = N_BSS;
+            count[SBSS] += nbytes;
+            break;
         }
         if (xflags)
             newindex[i] = snum;
+
         if (! xflags || (stab[i].n_type & N_EXT) ||
             (Xflag && ! IS_LOCAL(&stab[i])))
         {
@@ -2339,7 +2415,7 @@ void makeheader (rtsize, rdsize)
 {
     struct exec hdr;
 
-    hdr.a_magic = RMAGIC;
+    hdr.a_midmag = RMAGIC;
     hdr.a_text = count [STEXT];
     hdr.a_data = count [SDATA] + count [SSTRNG];
     hdr.a_bss = count [SBSS];
@@ -2659,8 +2735,12 @@ int main (argc, argv)
                     break;
                 case 'I':       /* include dir */
                     // TODO
-                    while (*++cp);
-                    --cp;
+                    if (cp[1] == 0) {
+                        i++;
+                    } else {
+                        while (*++cp);
+                        --cp;
+                    }
                     break;
                 case 'O':       /* optimization level */
                     // TODO

src/cmd/as/mips-instruction-set.txt

@@ -226,7 +226,7 @@ RDHWR       Read Hardware Register                      Allows unprivileged acce
 RDPGPR      Read GPR from Previous Shadow Set           Rt = SGPR[SRSCtl.PSS, Rd]
 
 RESTORE     Restore registers and deallocate stack      See Architecture Reference Manual
-            frame (MIPS16eª only)
+            frame (MIPS16e only)
 
 ROTR        Rotate Word Right                           Rd = Rt[sa-1..0] || Rt[31..sa]
 

src/cmd/basic/basic.c

@@ -1534,7 +1534,7 @@ int get_value()
         value = get_num();
     else {
         ++cmdptr;
-        switch (c) {
+        switch ((int)c) {
         case '(':                       /* nesting */
             value = eval_sub();
             break;

src/cmd/cc/Makefile

@@ -26,4 +26,4 @@ clean:
 install:        all
 		install cc $(DESTDIR)/bin/
 		install cc $(DESTDIR)/bin/scc
-		install cc $(DESTDIR)/bin/srcc
+		install cc $(DESTDIR)/bin/lcc

src/cmd/cc/cc.c

@@ -449,17 +449,16 @@ main(int argc, char *argv[])
                 pass0 = LIBEXECDIR "/smallc";
                 incdir = STDINC "/smallc";
 
-        } else if (strcmp ("srcc", progname) == 0) {
-                /* Smaller C. */
-                mode = MODE_SMALLERC;
-                cppadd[0] = "-D__SMALLER_C__";
-                pass0 = LIBEXECDIR "/smlrc";
-                incdir = STDINC "/smallerc";
-        } else {
+        } else if (strcmp ("lcc", progname) == 0) {
                 /* LCC: retargetable C compiler. */
                 mode = MODE_LCC;
                 cppadd[0] = "-D__LCC__";
                 pass0 = LIBEXECDIR "/lccom";
+        } else {
+                /* Smaller C. */
+                mode = MODE_SMALLERC;
+                cppadd[0] = "-D__SMALLER_C__";
+                pass0 = LIBEXECDIR "/smlrc";
         }
 
         if (argc == 1)

src/cmd/cpp/Makefile

@@ -3,14 +3,15 @@ include $(TOPSRC)/target.mk
 #include $(TOPSRC)/cross.mk
 #CFLAGS          = -DCROSS
 
-OBJS            = cpp.o cpy.o token.o
+OBJS            = cpp.o cpy.o token.o doprnt.o
 MAN             = cpp.0
 MANSRC          = cpp.1
 
 LDFLAGS         += -g
 
 CFLAGS		+= -Werror -Wall -Os
-CFLAGS          += -DCPP_DEBUG -DGCC_COMPAT -DHAVE_CPP_VARARG_MACRO_GCC
+#CFLAGS          += -DCPP_DEBUG -DGCC_COMPAT -DHAVE_CPP_VARARG_MACRO_GCC
+CFLAGS          += -DGCC_COMPAT -DHAVE_CPP_VARARG_MACRO_GCC
 
 all:            cpp $(MAN)
 
@@ -24,7 +25,7 @@ $(MAN):         ${MANSRC}
 		${MANROFF} $< > $@
 
 clean:
-		rm -f *.o *.0 *.elf cpp *.elf *.dis tags *~ lex.yy.c y.tab.[ch] tests/run*
+		rm -f *.o *.0 *.elf cpp *.dis tags *~ lex.yy.c y.tab.[ch] tests/run*
 
 install:        all
 		install cpp $(DESTDIR)/bin/
@@ -41,23 +42,23 @@ cpy.o y.tab.h:  cpy.y
 		$(CC) $(DEFS) $(CPPFLAGS) $(CFLAGS) -c -o cpy.o y.tab.c
 
 test:
-		./cpp.elf < tests/test1 > tests/run1
+		./cpp < tests/test1 > tests/run1
 		cmp tests/run1 tests/res1
-		./cpp.elf < tests/test2 > tests/run2
+		./cpp < tests/test2 > tests/run2
 		cmp tests/run2 tests/res2
-		./cpp.elf < tests/test3 > tests/run3
+		./cpp < tests/test3 > tests/run3
 		cmp tests/run3 tests/res3
-		./cpp.elf < tests/test4 > tests/run4
+		./cpp < tests/test4 > tests/run4
 		cmp tests/run4 tests/res4
-		./cpp.elf < tests/test5 > tests/run5
+		./cpp < tests/test5 > tests/run5
 		cmp tests/run5 tests/res5
-		./cpp.elf < tests/test6 > tests/run6
+		./cpp < tests/test6 > tests/run6
 		cmp tests/run6 tests/res6
-		./cpp.elf < tests/test7 > tests/run7
+		./cpp < tests/test7 > tests/run7
 		cmp tests/run7 tests/res7
-		./cpp.elf < tests/test8 > tests/run8
+		./cpp < tests/test8 > tests/run8
 		cmp tests/run8 tests/res8
-		./cpp.elf < tests/test9 > tests/run9
+		./cpp < tests/test9 > tests/run9
 		cmp tests/run9 tests/res9
-		./cpp.elf < tests/test10 > tests/run10
+		./cpp < tests/test10 > tests/run10
 		cmp tests/run10 tests/res10

src/cmd/cpp/cpp.c

@@ -350,7 +350,8 @@ addidir(char *idir, struct incs **ww)
 			return;
 		ww = &w->next;
 	}
-	if ((w = calloc(sizeof(struct incs), 1)) == NULL)
+	w = calloc(sizeof(struct incs), 1);
+	if (w == NULL)
 		error("couldn't add path %s", idir);
 	w->dir = (uchar *)idir;
 	w->dev = st.st_dev;
@@ -1308,16 +1309,24 @@ expdef(const uchar *vp, struct recur *rp, int gotwarn)
 	uchar *sptr;
 	int narg, c, i, plev, snuff, instr;
 	int ellips = 0, shot = gotwarn;
+	size_t allocsz;
 
 	DPRINT(("expdef rp %s\n", (rp ? (const char *)rp->sp->namep : "")));
-	if ((c = sloscan()) != '(')
+	c = sloscan();
+	if (c != '(')
 		error("got %c, expected (", c);
+
 	if (vp[1] == VARG) {
 		narg = *vp--;
 		ellips = 1;
 	} else
 		narg = vp[1];
-	if ((args = malloc(sizeof(uchar *) * (narg+ellips))) == NULL)
+
+	// The code depends on malloc(0) returning a non-NULL pointer, which is not guaranteed.
+	// Workaround it.
+	allocsz = sizeof(uchar *) * ((narg+ellips) ? (narg+ellips) : 1);
+	args = malloc(allocsz);
+	if (args == NULL)
 		error("expdef: out of mem");
 
 	/*

src/cmd/cpp/cpp.h

@@ -58,7 +58,7 @@ extern	int	ofd;
 #define ENTER   1
 
 /* buffer used internally */
-#define CPPBUF  BUFSIZ
+#define CPPBUF  512
 
 #define	NAMEMAX	CPPBUF	/* currently pushbackbuffer */
 
@@ -138,13 +138,8 @@ void line(void);
 uchar *sheap(const char *fmt, ...);
 void xwarning(uchar *);
 void xerror(uchar *);
-#ifdef HAVE_CPP_VARARG_MACRO_GCC
-#define warning(...) xwarning(sheap(__VA_ARGS__))
-#define error(...) xerror(sheap(__VA_ARGS__))
-#else
-#define warning printf
-#define error printf
-#endif
+#define warning(args...) xwarning(sheap(args))
+#define error(args...) xerror(sheap(args))
 void expmac(struct recur *);
 int cinput(void);
 void getcmnt(void);

src/cmd/cpp/doprnt.c

@@ -0,0 +1,203 @@
+/*
+Copyright (c) 2013, Alexey Frunze
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+
+1. Redistributions of source code must retain the above copyright notice, this
+   list of conditions and the following disclaimer.
+2. Redistributions in binary form must reproduce the above copyright notice,
+   this list of conditions and the following disclaimer in the documentation
+   and/or other materials provided with the distribution.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
+ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR
+ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
+ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+The views and conclusions contained in the software and documentation are those
+of the authors and should not be interpreted as representing official policies,
+either expressed or implied, of the FreeBSD Project.
+*/
+
+#include <stdio.h>
+#include <string.h>
+#include <stdarg.h>
+
+int _doprnt (char const *fmt, va_list pp, FILE *stream)
+{
+    int cnt = 0;
+    const char* p;
+    const char* phex = "0123456789abcdef";
+    char s[1/*sign*/+10/*magnitude*/+1/*\0*/]; // up to 11 octal digits in 32-bit numbers
+    char* pc;
+    int n, sign, msign;
+    int minlen = 0, len;
+    int leadchar;
+
+    for (p = fmt; *p != '\0'; p++)
+    {
+        if (*p != '%' || p[1] == '%')
+        {
+            fputc(*p, stream);
+            p = p + (*p == '%');
+            cnt++;
+            continue;
+        }
+        p++;
+        minlen = 0;
+        msign = 0;
+        if (*p == '+') { msign = 1; p++; }
+        else if (*p == '-') { msign = -1; p++; }
+        leadchar = ' ';
+        if (*p >= '0' && *p <= '9')
+        {
+            if (*p == '0')
+                leadchar = '0';
+            while (*p >= '0' && *p <= '9')
+                minlen = minlen * 10 + *p++ - '0';
+            if (msign < 0)
+                minlen = -minlen;
+            msign = 0;
+        }
+        if (!msign)
+        {
+            if (*p == '+') { msign = 1; p++; }
+            else if (*p == '-') { msign = -1; p++; }
+        }
+        switch (*p)
+        {
+        case 'c':
+            while (minlen > 1) { fputc(' ', stream); cnt++; minlen--; }
+            fputc(va_arg(pp, int), stream);
+            while (-minlen > 1) { fputc(' ', stream); cnt++; minlen++; }
+            cnt++;
+            break;
+        case 's':
+            pc = va_arg(pp, char*);
+            len = 0;
+            if (pc)
+                len = strlen(pc);
+            while (minlen > len) { fputc(' ', stream); cnt++; minlen--; }
+            if (len)
+                while (*pc != '\0')
+                {
+                    fputc(*pc++, stream);
+                    cnt++;
+                }
+            while (-minlen > len) { fputc(' ', stream); cnt++; minlen++; }
+            break;
+        case 'i':
+        case 'd':
+            pc = &s[sizeof s - 1];
+            *pc = '\0';
+            len = 0;
+            n = va_arg(pp, int);
+            sign = 1 - 2 * (n < 0);
+            do
+            {
+                *--pc = '0' + (n - n / 10 * 10) * sign;
+                n = n / 10;
+                len++;
+            } while (n);
+            if (sign < 0)
+            {
+                *--pc = '-';
+                len++;
+            }
+            else if (msign > 0)
+            {
+                *--pc = '+';
+                len++;
+                msign = 0;
+            }
+            while (minlen > len) { fputc(leadchar, stream); cnt++; minlen--; }
+            while (*pc != '\0')
+            {
+                fputc(*pc++, stream);
+                cnt++;
+            }
+            while (-minlen > len) { fputc(' ', stream); cnt++; minlen++; }
+            break;
+        case 'u':
+            pc = &s[sizeof s - 1];
+            *pc = '\0';
+            len = 0;
+            n = va_arg(pp, int);
+            do
+            {
+                unsigned nn = n;
+                *--pc = '0' + nn % 10;
+                n = nn / 10;
+                len++;
+            } while (n);
+            if (msign > 0)
+            {
+                *--pc = '+';
+                len++;
+                msign = 0;
+            }
+            while (minlen > len) { fputc(leadchar, stream); cnt++; minlen--; }
+            while (*pc != '\0')
+            {
+                fputc(*pc++, stream);
+                cnt++;
+            }
+            while (-minlen > len) { fputc(' ', stream); cnt++; minlen++; }
+            break;
+        case 'X':
+            phex = "0123456789ABCDEF";
+            // fallthrough
+        case 'p':
+        case 'x':
+            pc = &s[sizeof s - 1];
+            *pc = '\0';
+            len = 0;
+            n = va_arg(pp, int);
+            do
+            {
+                *--pc = phex[n & 0xF];
+                n = (n >> 4) & ((1 << (8 * sizeof n - 4)) - 1); // drop sign-extended bits
+                len++;
+            } while (n);
+            while (minlen > len) { fputc(leadchar, stream); cnt++; minlen--; }
+            while (*pc != '\0')
+            {
+                fputc(*pc++, stream);
+                cnt++;
+            }
+            while (-minlen > len) { fputc(' ', stream); cnt++; minlen++; }
+            break;
+        case 'o':
+            pc = &s[sizeof s - 1];
+            *pc = '\0';
+            len = 0;
+            n = va_arg(pp, int);
+            do
+            {
+                *--pc = '0' + (n & 7);
+                n = (n >> 3) & ((1 << (8 * sizeof n - 3)) - 1); // drop sign-extended bits
+                len++;
+            } while (n);
+            while (minlen > len) { fputc(leadchar, stream); cnt++; minlen--; }
+            while (*pc != '\0')
+            {
+                fputc(*pc++, stream);
+                cnt++;
+            }
+            while (-minlen > len) { fputc(' ', stream); cnt++; minlen++; }
+            break;
+        default:
+            return -1;
+        }
+    }
+
+    return cnt;
+}

src/cmd/cpp/scanner.l

@@ -1,932 +0,0 @@
-%{
-/*
- * Copyright (c) 2004 Anders Magnusson. All rights reserved.
- *
- * Redistribution and use in source and binary forms, with or without
- * modification, are permitted provided that the following conditions
- * are met:
- * 1. Redistributions of source code must retain the above copyright
- *    notice, this list of conditions and the following disclaimer.
- * 2. Redistributions in binary form must reproduce the above copyright
- *    notice, this list of conditions and the following disclaimer in the
- *    documentation and/or other materials provided with the distribution.
- * 3. The name of the author may not be used to endorse or promote products
- *    derived from this software without specific prior written permission
- *
- * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
- * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
- * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
- * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
- * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
- * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
- * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
- * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
- * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
- * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
- */
-#include <stdlib.h>
-#include <string.h>
-#include <ctype.h>
-#include <unistd.h>
-#include <fcntl.h>
-#include <errno.h>
-
-#include "compat.h"
-#include "cpp.h"
-#include "y.tab.h"
-%}
-
-%{
-static void cvtdig(int rad);
-static int charcon(uchar *);
-static void elsestmt(void);
-static void ifdefstmt(void);
-static void ifndefstmt(void);
-static void endifstmt(void);
-static void ifstmt(void);
-static void cpperror(void);
-static void pragmastmt(void);
-static void undefstmt(void);
-static void cpperror(void);
-static void elifstmt(void);
-static void storepb(void);
-static void badop(const char *);
-void  include(void);
-void  define(void);
-
-extern int yyget_lineno (void);
-extern void yyset_lineno (int);
-
-static int inch(void);
-
-static int scale, gotdef, contr;
-int inif;
-
-#ifdef FLEX_SCANNER /* should be set by autoconf instead */
-static int
-yyinput(char *b, int m)
-{
-	int c, i;
-
-	for (i = 0; i < m; i++) {
-		if ((c = inch()) < 0)
-			break;
-		*b++ = c;
-		if (c == '\n') {
-			i++;
-			break;
-		}
-	}
-	return i;
-}
-#undef YY_INPUT
-#undef YY_BUF_SIZE
-#define	YY_BUF_SIZE (8*65536)
-#define YY_INPUT(b,r,m) (r = yyinput(b, m))
-#ifdef HAVE_CPP_VARARG_MACRO_GCC
-#define fprintf(x, ...) error(__VA_ARGS__)
-#endif
-#define	ECHO putstr((uchar *)yytext)
-#undef fileno
-#define fileno(x) 0
-
-#if YY_FLEX_SUBMINOR_VERSION >= 31
-/* Hack to avoid unnecessary warnings */
-FILE *yyget_in	(void);
-FILE *yyget_out  (void);
-int yyget_leng	(void);
-char *yyget_text  (void);
-void yyset_in (FILE *  in_str );
-void yyset_out (FILE *	out_str );
-int yyget_debug  (void);
-void yyset_debug (int  bdebug );
-int yylex_destroy  (void);
-#endif
-#else	/* Assume lex here */
-#undef input
-#undef unput
-#define input() inch()
-#define unput(ch) unch(ch)
-#endif
-#define PRTOUT(x) if (YYSTATE || slow) return x; if (!flslvl) putstr((uchar *)yytext);
-/* protection against recursion in #include */
-#define MAX_INCLEVEL	100
-static int inclevel;
-%}
-
-D	[0-9]
-L	[a-zA-Z_]
-H	[a-fA-F0-9]
-E	[Ee][+-]?{D}+
-FS	(f|F|l|L)
-IS	(u|U|l|L)*
-WS	[\t ]
-
-%s IFR CONTR DEF COMMENT
-
-%%
-
-"\n"			{	int os = YYSTATE;
-				if (os != IFR)
-					BEGIN 0;
-				ifiles->lineno++;
-				if (flslvl == 0) {
-					if (ifiles->lineno == 1)
-						prtline();
-					else
-						putch('\n');
-				}
-				if ((os != 0 || slow) && !contr)
-					return '\n';
-				contr = 0;
-			}
-
-"\r"			{ ; /* Ignore CR's */ }
-
-<IFR>"++"		{ badop("++"); }
-<IFR>"--"		{ badop("--"); }
-<IFR>"=="		{ return EQ; }
-<IFR>"!="		{ return NE; }
-<IFR>"<="		{ return LE; }
-<IFR>"<<"		{ return LS; }
-<IFR>">>"		{ return RS; }
-<IFR>">="		{ return GE; }
-<IFR>"||"		{ return OROR; }
-<IFR>"&&"		{ return ANDAND; }
-<IFR>"defined"		{	int p, c;
-				gotdef = 1;
-				if ((p = c = yylex()) == '(')
-					c = yylex();
-				if (c != IDENT || (p != IDENT && p != '('))
-					error("syntax error");
-				if (p == '(' && yylex() != ')')
-					error("syntax error");
-				return NUMBER;
-			}
-
-<IFR>{WS}+		{ ; }
-<IFR>{L}({L}|{D})*	{
-				yylval.node.op = NUMBER;
-				if (gotdef) {
-					yylval.node.nd_val
-					    = lookup((uchar *)yytext, FIND) != 0;
-					gotdef = 0;
-					return IDENT;
-				}
-				yylval.node.nd_val = 0;
-				return NUMBER;
-			}
-
-[0-9][0-9]*		{
-				if (slow && !YYSTATE)
-					return IDENT;
-				scale = yytext[0] == '0' ? 8 : 10;
-				goto num;
-			}
-
-0[xX]{H}+{IS}?		{	scale = 16;
-			num:	if (YYSTATE == IFR)
-					cvtdig(scale);
-				PRTOUT(NUMBER);
-			}
-0{D}+{IS}?		{ scale = 8; goto num; }
-{D}+{IS}?		{ scale = 10; goto num; }
-'(\\.|[^\\'])+'		{
-				if (YYSTATE || slow) {
-					yylval.node.op = NUMBER;
-					yylval.node.nd_val = charcon((uchar *)yytext);
-					return (NUMBER);
-				}
-				if (tflag)
-					yyless(1);
-				if (!flslvl)
-					putstr((uchar *)yytext);
-			}
-
-<IFR>.			{ return yytext[0]; }
-
-{D}+{E}{FS}?		{ PRTOUT(FPOINT); }
-{D}*"."{D}+({E})?{FS}?	{ PRTOUT(FPOINT); }
-{D}+"."{D}*({E})?{FS}?	{ PRTOUT(FPOINT); }
-
-^{WS}*#{WS}*		{	extern int inmac;
-
-				if (inmac)
-					error("preprocessor directive found "
-					    "while expanding macro");
-				contr = 1;
-				BEGIN CONTR;
-			}
-{WS}+			{ PRTOUT(WSPACE); }
-
-<CONTR>"ifndef"		{ contr = 0; ifndefstmt(); }
-<CONTR>"ifdef"		{ contr = 0; ifdefstmt(); }
-<CONTR>"if"		{ contr = 0; storepb(); BEGIN IFR; ifstmt(); BEGIN 0; }
-<CONTR>"include"	{ contr = 0; BEGIN 0; include(); prtline(); }
-<CONTR>"else"		{ contr = 0; elsestmt(); }
-<CONTR>"endif"		{ contr = 0; endifstmt(); }
-<CONTR>"error"		{ contr = 0; if (slow) return IDENT; cpperror(); BEGIN 0; }
-<CONTR>"define"		{ contr = 0; BEGIN DEF; define(); BEGIN 0; }
-<CONTR>"undef"		{ contr = 0; if (slow) return IDENT; undefstmt(); }
-<CONTR>"line"		{ contr = 0; storepb(); BEGIN 0; line(); }
-<CONTR>"pragma"		{ contr = 0; pragmastmt(); BEGIN 0; }
-<CONTR>"elif"		{ contr = 0; storepb(); BEGIN IFR; elifstmt(); BEGIN 0; }
-
-
-
-"//".*$			{ /* if (tflag) yyless(..) */
-				if (Cflag && !flslvl && !slow)
-					putstr((uchar *)yytext);
-				else if (!flslvl)
-					putch(' ');
-			}
-"/*"			{	int c, wrn;
-				int prtcm = Cflag && !flslvl && !slow;
-				extern int readmac;
-
-				if (Cflag && !flslvl && readmac)
-					return CMNT;
-
-				if (prtcm)
-					putstr((uchar *)yytext);
-				wrn = 0;
-			more:	while ((c = input()) && c != '*') {
-					if (c == '\n')
-						putch(c), ifiles->lineno++;
-					else if (c == 1) /* WARN */
-						wrn = 1;
-					else if (prtcm)
-						putch(c);
-				}
-				if (c == 0)
-					return 0;
-				if (prtcm)
-					putch(c);
-				if ((c = input()) && c != '/') {
-					unput(c);
-					goto more;
-				}
-				if (prtcm)
-					putch(c);
-				if (c == 0)
-					return 0;
-				if (!tflag && !Cflag && !flslvl)
-					unput(' ');
-				if (wrn)
-					unput(1);
-			}
-
-<DEF>"##"		{ return CONCAT; }
-<DEF>"#"		{ return MKSTR; }
-<DEF>"..."		{ return ELLIPS; }
-<DEF>"__VA_ARGS__"	{ return VA_ARGS; }
-
-L?\"(\\.|[^\\"])*\"	{ PRTOUT(STRING); }
-[a-zA-Z_0-9]+		{ /* {L}({L}|{D})* */
-				struct symtab *nl;
-				if (slow)
-					return IDENT;
-				if (YYSTATE == CONTR) {
-					if (flslvl == 0) {
-						/*error("undefined control");*/
-						while (input() != '\n')
-							;
-						unput('\n');
-						BEGIN 0;
-						goto xx;
-					} else {
-						BEGIN 0; /* do nothing */
-					}
-				}
-				if (flslvl) {
-					; /* do nothing */
-				} else if (isdigit((int)yytext[0]) == 0 &&
-				    (nl = lookup((uchar *)yytext, FIND)) != 0) {
-					uchar *op = stringbuf;
-					putstr(gotident(nl));
-					stringbuf = op;
-				} else
-					putstr((uchar *)yytext);
-				xx: ;
-			}
-
-.			{
-				if (contr) {
-					while (input() != '\n')
-						;
-					unput('\n');
-					BEGIN 0;
-					contr = 0;
-					goto yy;
-				}
-				if (YYSTATE || slow)
-					return yytext[0];
-				if (yytext[0] == 6) { /* PRAGS */
-					uchar *obp = stringbuf;
-					extern uchar *prtprag(uchar *);
-					*stringbuf++ = yytext[0];
-					do {
-						*stringbuf = input();
-					} while (*stringbuf++ != 14);
-					prtprag(obp);
-					stringbuf = obp;
-				} else {
-					PRTOUT(yytext[0]);
-				}
-				yy:;
-			}
-
-%%
-
-uchar *yyp, yybuf[CPPBUF];
-
-int yylex(void);
-int yywrap(void);
-
-static int
-inpch(void)
-{
-	int len;
-
-	if (ifiles->curptr < ifiles->maxread)
-		return *ifiles->curptr++;
-
-	if ((len = read(ifiles->infil, ifiles->buffer, CPPBUF)) < 0)
-		error("read error on file %s", ifiles->orgfn);
-	if (len == 0)
-		return -1;
-	ifiles->curptr = ifiles->buffer;
-	ifiles->maxread = ifiles->buffer + len;
-	return inpch();
-}
-
-#define unch(c) *--ifiles->curptr = c
-
-static int
-inch(void)
-{
-	int c;
-
-again:	switch (c = inpch()) {
-	case '\\': /* continued lines */
-msdos:		if ((c = inpch()) == '\n') {
-			ifiles->lineno++;
-			putch('\n');
-			goto again;
-		} else if (c == '\r')
-			goto msdos;
-		unch(c);
-		return '\\';
-	case '?': /* trigraphs */
-		if ((c = inpch()) != '?') {
-			unch(c);
-			return '?';
-		}
-		switch (c = inpch()) {
-		case '=': c = '#'; break;
-		case '(': c = '['; break;
-		case ')': c = ']'; break;
-		case '<': c = '{'; break;
-		case '>': c = '}'; break;
-		case '/': c = '\\'; break;
-		case '\'': c = '^'; break;
-		case '!': c = '|'; break;
-		case '-': c = '~'; break;
-		default:
-			unch(c);
-			unch('?');
-			return '?';
-		}
-		unch(c);
-		goto again;
-	default:
-		return c;
-	}
-}
-
-/*
- * Let the command-line args be faked defines at beginning of file.
- */
-static void
-prinit(struct initar *it, struct includ *ic)
-{
-	char *a, *pre, *post;
-
-	if (it->next)
-		prinit(it->next, ic);
-	pre = post = NULL; /* XXX gcc */
-	switch (it->type) {
-	case 'D':
-		pre = "#define ";
-		if ((a = strchr(it->str, '=')) != NULL) {
-			*a = ' ';
-			post = "\n";
-		} else
-			post = " 1\n";
-		break;
-	case 'U':
-		pre = "#undef ";
-		post = "\n";
-		break;
-	case 'i':
-		pre = "#include \"";
-		post = "\"\n";
-		break;
-	default:
-		error("prinit");
-	}
-	strlcat((char *)ic->buffer, pre, CPPBUF+1);
-	strlcat((char *)ic->buffer, it->str, CPPBUF+1);
-	if (strlcat((char *)ic->buffer, post, CPPBUF+1) >= CPPBUF+1)
-		error("line exceeds buffer size");
-
-	ic->lineno--;
-	while (*ic->maxread)
-		ic->maxread++;
-}
-
-/*
- * A new file included.
- * If ifiles == NULL, this is the first file and already opened (stdin).
- * Return 0 on success, -1 if file to be included is not found.
- */
-int
-pushfile(uchar *file)
-{
-	extern struct initar *initar;
-	struct includ ibuf;
-	struct includ *ic;
-	int c, otrulvl;
-
-	ic = &ibuf;
-	ic->next = ifiles;
-
-	slow = 0;
-	if (file != NULL) {
-		if ((ic->infil = open((char *)file, O_RDONLY)) < 0)
-			return -1;
-		ic->orgfn = ic->fname = file;
-		if (++inclevel > MAX_INCLEVEL)
-			error("Limit for nested includes exceeded");
-	} else {
-		ic->infil = 0;
-		ic->orgfn = ic->fname = (uchar *)"<stdin>";
-	}
-	ic->buffer = ic->bbuf+NAMEMAX;
-	ic->curptr = ic->buffer;
-	ifiles = ic;
-	ic->lineno = 1;
-	ic->maxread = ic->curptr;
-	prtline();
-	if (initar) {
-		*ic->maxread = 0;
-		prinit(initar, ic);
-		if (dMflag)
-			write(ofd, ic->buffer, strlen((char *)ic->buffer));
-		initar = NULL;
-	}
-
-	otrulvl = trulvl;
-
-	if ((c = yylex()) != 0)
-		error("yylex returned %d", c);
-
-	if (otrulvl != trulvl || flslvl)
-		error("unterminated conditional");
-
-	ifiles = ic->next;
-	close(ic->infil);
-	inclevel--;
-	return 0;
-}
-
-/*
- * Print current position to output file.
- */
-void
-prtline()
-{
-	uchar *s, *os = stringbuf;
-
-	if (Mflag) {
-		if (dMflag)
-			return; /* no output */
-		if (ifiles->lineno == 1) {
-			s = sheap("%s: %s\n", Mfile, ifiles->fname);
-			write(ofd, s, strlen((char *)s));
-		}
-	} else if (!Pflag)
-		putstr(sheap("# %d \"%s\"\n", ifiles->lineno, ifiles->fname));
-	stringbuf = os;
-}
-
-void
-cunput(int c)
-{
-#ifdef CPP_DEBUG
-	extern int dflag;
-	if (dflag)printf(": '%c'(%d)", c > 31 ? c : ' ', c);
-#endif
-	unput(c);
-}
-
-int yywrap(void) { return 1; }
-
-static int
-dig2num(int c)
-{
-	if (c >= 'a')
-		c = c - 'a' + 10;
-	else if (c >= 'A')
-		c = c - 'A' + 10;
-	else
-		c = c - '0';
-	return c;
-}
-
-/*
- * Convert string numbers to unsigned long long and check overflow.
- */
-static void
-cvtdig(int rad)
-{
-	unsigned long long rv = 0;
-	unsigned long long rv2 = 0;
-	char *y = yytext;
-	int c;
-
-	c = *y++;
-	if (rad == 16)
-		y++;
-	while (isxdigit(c)) {
-		rv = rv * rad + dig2num(c);
-		/* check overflow */
-		if (rv / rad < rv2)
-			error("Constant \"%s\" is out of range", yytext);
-		rv2 = rv;
-		c = *y++;
-	}
-	y--;
-	while (*y == 'l' || *y == 'L')
-		y++;
-	yylval.node.op = *y == 'u' || *y == 'U' ? UNUMBER : NUMBER;
-	yylval.node.nd_uval = rv;
-	if ((rad == 8 || rad == 16) && yylval.node.nd_val < 0)
-		yylval.node.op = UNUMBER;
-	if (yylval.node.op == NUMBER && yylval.node.nd_val < 0)
-		/* too large for signed */
-		error("Constant \"%s\" is out of range", yytext);
-}
-
-static int
-charcon(uchar *p)
-{
-	int val, c;
-
-	p++; /* skip first ' */
-	val = 0;
-	if (*p++ == '\\') {
-		switch (*p++) {
-		case 'a': val = '\a'; break;
-		case 'b': val = '\b'; break;
-		case 'f': val = '\f'; break;
-		case 'n': val = '\n'; break;
-		case 'r': val = '\r'; break;
-		case 't': val = '\t'; break;
-		case 'v': val = '\v'; break;
-		case '\"': val = '\"'; break;
-		case '\'': val = '\''; break;
-		case '\\': val = '\\'; break;
-		case 'x':
-			while (isxdigit(c = *p)) {
-				val = val * 16 + dig2num(c);
-				p++;
-			}
-			break;
-		case '0': case '1': case '2': case '3': case '4':
-		case '5': case '6': case '7':
-			p--;
-			while (isdigit(c = *p)) {
-				val = val * 8 + (c - '0');
-				p++;
-			}
-			break;
-		default: val = p[-1];
-		}
-
-	} else
-		val = p[-1];
-	return val;
-}
-
-static void
-chknl(int ignore)
-{
-	int t;
-
-	slow = 1;
-	while ((t = yylex()) == WSPACE)
-		;
-	if (t != '\n') {
-		if (ignore) {
-			warning("newline expected, got \"%s\"", yytext);
-			/* ignore rest of line */
-			while ((t = yylex()) && t != '\n')
-				;
-		}
-		else
-			error("newline expected, got \"%s\"", yytext);
-	}
-	slow = 0;
-}
-
-static void
-elsestmt(void)
-{
-	if (flslvl) {
-		if (elflvl > trulvl)
-			;
-		else if (--flslvl!=0) {
-			flslvl++;
-		} else {
-			trulvl++;
-			prtline();
-		}
-	} else if (trulvl) {
-		flslvl++;
-		trulvl--;
-	} else
-		error("If-less else");
-	if (elslvl==trulvl+flslvl)
-		error("Too many else");
-	elslvl=trulvl+flslvl;
-	chknl(1);
-}
-
-static void
-ifdefstmt(void)
-{
-	int t;
-
-	if (flslvl) {
-		/* just ignore the rest of the line */
-		while (input() != '\n')
-			;
-		unput('\n');
-		yylex();
-		flslvl++;
-		return;
-	}
-	slow = 1;
-	do
-		t = yylex();
-	while (t == WSPACE);
-	if (t != IDENT)
-		error("bad ifdef");
-	slow = 0;
-	if (flslvl == 0 && lookup((uchar *)yytext, FIND) != 0)
-		trulvl++;
-	else
-		flslvl++;
-	chknl(0);
-}
-
-static void
-ifndefstmt(void)
-{
-	int t;
-
-	slow = 1;
-	do
-		t = yylex();
-	while (t == WSPACE);
-	if (t != IDENT)
-		error("bad ifndef");
-	slow = 0;
-	if (flslvl == 0 && lookup((uchar *)yytext, FIND) == 0)
-		trulvl++;
-	else
-		flslvl++;
-	chknl(0);
-}
-
-static void
-endifstmt(void)
-{
-	if (flslvl) {
-		flslvl--;
-		if (flslvl == 0)
-			prtline();
-	} else if (trulvl)
-		trulvl--;
-	else
-		error("If-less endif");
-	if (flslvl == 0)
-		elflvl = 0;
-	elslvl = 0;
-	chknl(1);
-}
-
-/*
- * Note! Ugly!
- * Walk over the string s and search for defined, and replace it with
- * spaces and a 1 or 0.
- */
-static void
-fixdefined(uchar *s)
-{
-	uchar *bc, oc;
-
-	for (; *s; s++) {
-		if (*s != 'd')
-			continue;
-		if (memcmp(s, "defined", 7))
-			continue;
-		/* Ok, got defined, can scratch it now */
-		memset(s, ' ', 7);
-		s += 7;
-#define	WSARG(x) (x == ' ' || x == '\t')
-		if (*s != '(' && !WSARG(*s))
-			continue;
-		while (WSARG(*s))
-			s++;
-		if (*s == '(')
-			s++;
-		while (WSARG(*s))
-			s++;
-#define IDARG(x) ((x>= 'A' && x <= 'Z') || (x >= 'a' && x <= 'z') || (x == '_'))
-#define	NUMARG(x) (x >= '0' && x <= '9')
-		if (!IDARG(*s))
-			error("bad defined arg");
-		bc = s;
-		while (IDARG(*s) || NUMARG(*s))
-			s++;
-		oc = *s;
-		*s = 0;
-		*bc = (lookup(bc, FIND) != 0) + '0';
-		memset(bc+1, ' ', s-bc-1);
-		*s = oc;
-	}
-}
-
-/*
- * get the full line of identifiers after an #if, pushback a WARN and
- * the line and prepare for expmac() to expand.
- * This is done before switching state.  When expmac is finished,
- * pushback the expanded line, change state and call yyparse.
- */
-static void
-storepb(void)
-{
-	uchar *opb = stringbuf;
-	int c;
-
-	while ((c = input()) != '\n') {
-		if (c == '/') {
-			 if ((c = input()) == '*') {
-				/* ignore comments here whatsoever */
-				uchar *g = stringbuf;
-				getcmnt();
-				stringbuf = g;
-				continue;
-			} else if (c == '/') {
-				while ((c = input()) && c != '\n')
-					;
-				break;
-			}
-			unput(c);
-			c = '/';
-		}
-		savch(c);
-	}
-	cunput('\n');
-	savch(0);
-	fixdefined(opb); /* XXX can fail if #line? */
-	cunput(1); /* WARN XXX */
-	unpstr(opb);
-	stringbuf = opb;
-	slow = 1;
-	expmac(NULL);
-	slow = 0;
-	/* line now expanded */
-	while (stringbuf > opb)
-		cunput(*--stringbuf);
-}
-
-static void
-ifstmt(void)
-{
-	if (flslvl == 0) {
-		slow = 1;
-		if (yyparse())
-			++trulvl;
-		else
-			++flslvl;
-		slow = 0;
-	} else
-		++flslvl;
-}
-
-static void
-elifstmt(void)
-{
-	if (flslvl == 0)
-		elflvl = trulvl;
-	if (flslvl) {
-		if (elflvl > trulvl)
-			;
-		else if (--flslvl!=0)
-			++flslvl;
-		else {
-			slow = 1;
-			if (yyparse()) {
-				++trulvl;
-				prtline();
-			} else
-				++flslvl;
-			slow = 0;
-		}
-	} else if (trulvl) {
-		++flslvl;
-		--trulvl;
-	} else
-		error("If-less elif");
-}
-
-static uchar *
-svinp(void)
-{
-	int c;
-	uchar *cp = stringbuf;
-
-	while ((c = input()) && c != '\n')
-		savch(c);
-	savch('\n');
-	savch(0);
-	BEGIN 0;
-	return cp;
-}
-
-static void
-cpperror(void)
-{
-	uchar *cp;
-	int c;
-
-	if (flslvl)
-		return;
-	c = yylex();
-	if (c != WSPACE && c != '\n')
-		error("bad error");
-	cp = svinp();
-	if (flslvl)
-		stringbuf = cp;
-	else
-		error("%s", cp);
-}
-
-static void
-undefstmt(void)
-{
-	struct symtab *np;
-
-	slow = 1;
-	if (yylex() != WSPACE || yylex() != IDENT)
-		error("bad undef");
-	if (flslvl == 0 && (np = lookup((uchar *)yytext, FIND)))
-		np->value = 0;
-	slow = 0;
-	chknl(0);
-}
-
-static void
-pragmastmt(void)
-{
-	int c;
-
-	slow = 1;
-	if (yylex() != WSPACE)
-		error("bad pragma");
-	if (!flslvl)
-		putstr((uchar *)"#pragma ");
-	do {
-		c = input();
-		if (!flslvl)
-			putch(c);	/* Do arg expansion instead? */
-	} while (c && c != '\n');
-	ifiles->lineno++;
-	prtline();
-	slow = 0;
-}
-
-static void
-badop(const char *op)
-{
-	error("invalid operator in preprocessor expression: %s", op);
-}
-
-int
-cinput()
-{
-	return input();
-}

src/cmd/cpp/token.c

@@ -767,8 +767,10 @@ pushfile(const uchar *file, const uchar *fn, int idx, void *incs)
 
 	if (file != NULL) {
 	        ic->infil = open((const char *)file, O_RDONLY);
-		if (ic->infil < 0)
+		if (ic->infil < 0) {
+                        free(ic);
 			return -1;
+                }
 		ic->orgfn = ic->fname = file;
 		if (++inclevel > MAX_INCLEVEL)
 			error("Limit for nested includes exceeded");

src/cmd/lccom/Makefile

@@ -61,7 +61,7 @@ $Binits.o:	inits.c;	$(CC) $(CFLAGS) -c -I. -o $@ $<
 $Binput.o:	input.c;	$(CC) $(CFLAGS) -c -I. -o $@ $<
 $Blex.o:	lex.c;		$(CC) $(CFLAGS) -c -I. -o $@ $<
 $Blist.o:	list.c;		$(CC) $(CFLAGS) -c -I. -o $@ $<
-$Bmain.o:	main.c;		$(CC) $(CFLAGS) -DVERSION=\"`svnversion`\" -c -I. -o $@ $<
+$Bmain.o:	main.c;		$(CC) $(CFLAGS) -DVERSION=\"$(VERSION)\" -c -I. -o $@ $<
 $Bnull.o:	null.c;		$(CC) $(CFLAGS) -c -I. -o $@ $<
 $Boutput.o:	output.c;	$(CC) $(CFLAGS) -c -I. -o $@ $<
 $Bprof.o:	prof.c;		$(CC) $(CFLAGS) -c -I. -o $@ $<

src/cmd/ld/ld.c

@@ -172,7 +172,7 @@ int fgethdr (text, h)
         register FILE *text;
         register struct exec *h;
 {
-        h->a_magic   = fgetword (text);
+        h->a_midmag   = fgetword (text);
         h->a_text    = fgetword (text);
         h->a_data    = fgetword (text);
         h->a_bss     = fgetword (text);
@@ -860,7 +860,7 @@ void readhdr (loc)
 	fseek (text, loc, 0);
 	if (! fgethdr (text, &filhdr))
 		error (2, "bad format");
-	if (filhdr.a_magic != RMAGIC)
+	if (N_GETMAGIC(filhdr) != RMAGIC)
 		error (2, "bad magic");
 	if (filhdr.a_text % W)
 		error (2, "bad length of text");
@@ -880,7 +880,7 @@ int load1 (loc, libflg, nloc)
 	int savindex, ndef, type, symlen, nsymbol;
 
 	readhdr (loc);
-	if (filhdr.a_magic != RMAGIC) {
+	if (N_GETMAGIC(filhdr) != RMAGIC) {
 		error (1, "file not relocatable");
 		return (0);
 	}
@@ -1293,7 +1293,7 @@ void setupout ()
     } else {
         close(fd);
     }
-        
+
 	tcreat (&toutb, 1);
 	tcreat (&doutb, 1);
 
@@ -1494,7 +1494,7 @@ void finishout ()
 		while (ssize++ % W)
 			putc (0, outb);
 	}
-	filhdr.a_magic = output_relinfo ? RMAGIC : OMAGIC;
+	filhdr.a_midmag = output_relinfo ? RMAGIC : OMAGIC;
 	filhdr.a_text = tsize;
 	filhdr.a_data = dsize;
 	filhdr.a_bss = bsize;

src/cmd/smlrc/Makefile

@@ -1,12 +1,12 @@
 TOPSRC          = $(shell cd ../../..; pwd)
 include $(TOPSRC)/target.mk
-#include $(TOPSRC)/cross.mk
 
 CFLAGS          = -Os -Wall -DMIPS -DNO_ANNOTATIONS -DNO_PREPROCESSOR \
                   -DNO_PPACK -D_RETROBSD -D__SMALLER_C_SCHAR__ \
                   -D__SMALLER_C__ -D__SMALLER_C_32__
 
 # For cross compile
+#include $(TOPSRC)/cross.mk
 #CFLAGS          = -Os -Wall -DMIPS -m32
 #LDFLAGS         = -m32
 

src/cmd/smlrc/cgmips.c

@@ -3,13 +3,13 @@ Copyright (c) 2012-2014, Alexey Frunze
 All rights reserved.
 
 Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are met: 
+modification, are permitted provided that the following conditions are met:
 
 1. Redistributions of source code must retain the above copyright notice, this
-   list of conditions and the following disclaimer. 
+   list of conditions and the following disclaimer.
 2. Redistributions in binary form must reproduce the above copyright notice,
    this list of conditions and the following disclaimer in the documentation
-   and/or other materials provided with the distribution. 
+   and/or other materials provided with the distribution.
 
 THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
 ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
@@ -23,7 +23,7 @@ ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
 The views and conclusions contained in the software and documentation are those
-of the authors and should not be interpreted as representing official policies, 
+of the authors and should not be interpreted as representing official policies,
 either expressed or implied, of the FreeBSD Project.
 */
 
@@ -37,6 +37,11 @@ either expressed or implied, of the FreeBSD Project.
 /*                                                                           */
 /*****************************************************************************/
 
+// Works around bugs in RetroBSD's as instruction reordering
+#define REORDER_WORKAROUND
+// Works around bugs in RetroBSD's as immediate operand truncation to 16 bits
+//#define INSTR_IMM_WORKAROUND
+
 int UseGp = 0;
 
 void GenInit(void)
@@ -47,7 +52,7 @@ void GenInit(void)
   CodeHeader = "\t.text";
   DataHeader = "\t.data";
   UseLeadingUnderscores = 0;
-#ifndef NO_REORDER_WORKAROUND
+#ifdef REORDER_WORKAROUND
   FileHeader = "\t.set\tnoreorder";
 #else
   FileHeader = "\t.set\treorder";
@@ -63,6 +68,12 @@ int GenInitParams(int argc, char** argv, int* idx)
     UseGp = 1;
     return 1;
   }
+  else if (!strcmp(argv[*idx], "-v"))
+  {
+    // RetroBSD's cc may supply this parameter. Just need to consume it.
+    return 1;
+  }
+
   return 0;
 }
 
@@ -131,15 +142,19 @@ void GenStartAsciiString(void)
   printf2("\t.ascii\t");
 }
 
-void GenAddrData(int Size, char* Label)
+void GenAddrData(int Size, char* Label, int ofs)
 {
+  ofs = truncInt(ofs);
   if (Size == 1)
     printf2("\t.byte\t");
   else if (Size == 2)
     printf2("\t.half\t");
   else if (Size == 4)
     printf2("\t.word\t");
-  GenPrintLabel(Label); puts2("");
+  GenPrintLabel(Label);
+  if (ofs)
+    printf2(" %+d", ofs);
+  puts2("");
 }
 
 #define MipsInstrNop    0x00
@@ -286,7 +301,7 @@ void GenPrintInstr(int instr, int val)
 #define MipsOpLabelGpOption              0x83
 #define MipsOpIndLocal                   MipsOpIndRegFp
 
-#ifndef NO_REORDER_WORKAROUND
+#ifdef REORDER_WORKAROUND
 void GenNop(void)
 {
   puts2("\tnop");
@@ -355,7 +370,7 @@ void GenPrintInstr1Operand(int instr, int instrval, int operand, int operandval)
   GenPrintOperand(operand, operandval);
   GenPrintNewLine();
 
-#ifndef NO_REORDER_WORKAROUND
+#ifdef REORDER_WORKAROUND
   if (instr == MipsInstrJ || instr == MipsInstrJAL)
     GenNop();
 #endif
@@ -379,10 +394,61 @@ void GenPrintInstr3Operands(int instr, int instrval,
                             int operand2, int operand2val,
                             int operand3, int operand3val)
 {
+#ifdef INSTR_IMM_WORKAROUND
+  int useAt = 0;
+#endif
+
   if (operand3 == MipsOpConst && operand3val == 0 &&
       (instr == MipsInstrAddU || instr == MipsInstrSubU))
     return;
 
+#ifdef INSTR_IMM_WORKAROUND
+  if (operand3 == MipsOpConst)
+  {
+    unsigned imm = truncUint(operand3val);
+
+    switch (instr)
+    {
+    // signed imm16:
+    //   addi[u], subi[u], slti[u]
+    case MipsInstrAddU:
+    case MipsInstrSLT:
+    case MipsInstrSLTU:
+      if (imm > 0x7FFF && imm < 0xFFFF8000) // if not (-0x8000 <= imm <= 0x7FFF)
+        useAt = 1;
+      break;
+    case MipsInstrSubU:
+      // subi[u] will be transformed into addi[u] and the immediate will be negated,
+      // hence the immediate range is shifted by 1
+      if (imm > 0x8000 && imm < 0xFFFF8001) // if not (-0x7FFF <= imm <= 0x8000)
+        useAt = 1;
+      break;
+
+    // unsigned imm16:
+    //   andi, ori, xori
+    case MipsInstrAnd:
+    case MipsInstrOr:
+    case MipsInstrXor:
+      if (imm > 0xFFFF)
+        useAt = 1;
+      break;
+
+    // also: various trap instructions
+    default:
+      break;
+    }
+  }
+
+  if (useAt)
+  {
+    puts2("\t.set\tnoat");
+    GenPrintInstr2Operands(MipsInstrLI, 0,
+                           MipsOpRegAt, 0,
+                           MipsOpConst, operand3val);
+    operand3 = MipsOpRegAt;
+  }
+#endif
+
   GenPrintInstr(instr, instrval);
   GenPrintOperand(operand1, operand1val);
   GenPrintOperandSeparator();
@@ -391,7 +457,14 @@ void GenPrintInstr3Operands(int instr, int instrval,
   GenPrintOperand(operand3, operand3val);
   GenPrintNewLine();
 
-#ifndef NO_REORDER_WORKAROUND
+#ifdef INSTR_IMM_WORKAROUND
+  if (useAt)
+  {
+    puts2("\t.set\tat");
+  }
+#endif
+
+#ifdef REORDER_WORKAROUND
   if (instr == MipsInstrBEQ || instr == MipsInstrBNE)
     GenNop();
 #endif
@@ -1125,11 +1198,13 @@ void GenExpr0(void)
       {
         int reg = GenPopReg(MipsOpRegT0);
         if (tok == '/' || tok == '%')
-          GenPrintInstr2Operands(MipsInstrDiv, 0,
+          GenPrintInstr3Operands(MipsInstrDiv, 0,
+                                 MipsOpRegZero, 0,
                                  reg, 0,
                                  MipsOpRegV0, 0);
         else
-          GenPrintInstr2Operands(MipsInstrDivU, 0,
+          GenPrintInstr3Operands(MipsInstrDivU, 0,
+                                 MipsOpRegZero, 0,
                                  reg, 0,
                                  MipsOpRegV0, 0);
         if (tok == '%' || tok == tokUMod)
@@ -1232,11 +1307,13 @@ void GenExpr0(void)
 
         GenReadIndirect(MipsOpRegT1, reg, v);
         if (tok == tokAssignDiv || tok == tokAssignMod)
-          GenPrintInstr2Operands(MipsInstrDiv, 0,
+          GenPrintInstr3Operands(MipsInstrDiv, 0,
+                                 MipsOpRegZero, 0,
                                  MipsOpRegT1, 0,
                                  MipsOpRegV0, 0);
         else
-          GenPrintInstr2Operands(MipsInstrDivU, 0,
+          GenPrintInstr3Operands(MipsInstrDivU, 0,
+                                 MipsOpRegZero, 0,
                                  MipsOpRegT1, 0,
                                  MipsOpRegV0, 0);
         if (tok == tokAssignMod || tok == tokAssignUMod)
@@ -1596,11 +1673,11 @@ void GenFin(void)
           "\taddiu\t$3, $3, 1");
     printf2("\tbne\t$4, $0, "); GenPrintNumLabel(lbl);
     puts2("");
-#ifndef NO_REORDER_WORKAROUND
+#ifdef REORDER_WORKAROUND
     GenNop();
 #endif
     puts2("\tj\t$31");
-#ifndef NO_REORDER_WORKAROUND
+#ifdef REORDER_WORKAROUND
     GenNop();
 #endif
 

src/cmd/smlrc/cgx86.c

@@ -3,13 +3,13 @@ Copyright (c) 2012-2014, Alexey Frunze
 All rights reserved.
 
 Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are met: 
+modification, are permitted provided that the following conditions are met:
 
 1. Redistributions of source code must retain the above copyright notice, this
-   list of conditions and the following disclaimer. 
+   list of conditions and the following disclaimer.
 2. Redistributions in binary form must reproduce the above copyright notice,
    this list of conditions and the following disclaimer in the documentation
-   and/or other materials provided with the distribution. 
+   and/or other materials provided with the distribution.
 
 THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
 ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
@@ -23,7 +23,7 @@ ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
 The views and conclusions contained in the software and documentation are those
-of the authors and should not be interpreted as representing official policies, 
+of the authors and should not be interpreted as representing official policies,
 either expressed or implied, of the FreeBSD Project.
 */
 
@@ -237,8 +237,9 @@ void GenStartAsciiString(void)
   printf2("\tdb\t");
 }
 
-void GenAddrData(int Size, char* Label)
+void GenAddrData(int Size, char* Label, int ofs)
 {
+  ofs = truncInt(ofs);
 #ifdef CAN_COMPILE_32BIT
   if (OutputFormat == FormatSegHuge)
   {
@@ -256,7 +257,10 @@ void GenAddrData(int Size, char* Label)
   else if (Size == 4)
     printf2("\tdd\t");
 #endif
-  GenPrintLabel(Label); puts2("");
+  GenPrintLabel(Label);
+  if (ofs)
+    printf2(" %+d", ofs);
+  puts2("");
   if (!isdigit(*Label))
     GenAddGlobal(Label, 2);
 }
@@ -799,6 +803,79 @@ void GenFxnEpilog(void)
   GenPrintInstrNoOperand(X86InstrRet);
 }
 
+#ifdef CAN_COMPILE_32BIT
+/*
+struct INTREGS
+{
+  unsigned short gs, fs, es, ds;
+  unsigned edi, esi, ebp, esp, ebx, edx, ecx, eax;
+  unsigned short ss, ip, cs, flags;
+};
+void __interrupt isr(struct INTREGS** ppRegs)
+{
+  // **ppRegs (input/output values of registers) can be modified to
+  // handle software interrupts requested via the int instruction and
+  // communicate data via registers
+
+  // *ppRegs (directly related to the stack pointer) can be modified to
+  // return to a different location & implement preemptive scheduling,
+  // e.g. save *ppRegs of the interrupted task somewhere, update *ppRegs
+  // with a value from another interrupted task.
+}
+*/
+void GenIsrProlog(void)
+{
+  // The CPU has already done these:
+  //   push flags
+  //   push cs
+  //   push ip
+
+  puts2("\tpush\tss");
+  puts2("\tpushad");
+  puts2("\tpush\tds\n"
+        "\tpush\tes\n"
+        "\tpush\tfs\n"
+        "\tpush\tgs");
+
+  // The context has been saved
+
+  puts2("\txor\teax, eax\n\tmov\tax, ss"); // mov r32, sreg leaves top 16 bits undefined on pre-Pentium CPUs
+  puts2("\txor\tebx, ebx\n\tmov\tbx, sp"); // top 16 bits of esp can contain garbage as well
+  puts2("\tshl\teax, 4\n\tadd\teax, ebx");
+  puts2("\tpush\teax"); // pointer to the structure with register values
+  puts2("\tsub\teax, 4\n\tpush\teax"); // pointer to the pointer to the structure with register values
+
+  puts2("\tpush\teax"); // fake return address allowing to use the existing bp-relative addressing of locals and params
+
+  puts2("\tpush\tebp\n"
+        "\tmov\tebp, esp");
+}
+
+void GenIsrEpilog(void)
+{
+  puts2("\tdb\t0x66\n\tleave");
+
+  puts2("\tpop\teax"); // fake return address
+
+  puts2("\tpop\teax"); // pointer to the pointer to the structure with register values
+  puts2("\tpop\tebx"); // pointer to the structure with register values
+  puts2("\tror\tebx, 4\n\tmov\tds, bx\n\tshr\tebx, 28"); // ds:bx = pointer to the structure with register values
+  puts2("\tmov\tax, [bx+4*10]\n\tmov\tbx, [bx+4*5]\n\tsub\tbx, 4*10"); // ax:bx = proper pointer (with original segment) to the struct...
+  puts2("\tmov\tss, ax\n\tmov\tsp, bx"); // restore ss:sp that we had after push gs
+
+  // The context is now going to be restored
+
+  puts2("\tpop\tgs\n"
+        "\tpop\tfs\n"
+        "\tpop\tes\n"
+        "\tpop\tds");
+  puts2("\tpopad");
+  puts2("\tpop\tss");
+
+  puts2("\tiret");
+}
+#endif
+
 void GenReadIdent(int opSz, int label)
 {
   GenPrintInstr2Operands(X86InstrMov, 0,

src/cmd/strip.c

@@ -35,7 +35,7 @@ strip(name)
         status = 1;
         goto out;
     }
-    if (head.a_syms == 0 && head.a_magic != RMAGIC)
+    if (head.a_syms == 0 && (head.a_magic) != RMAGIC)
         goto out;
 
     size = N_DATOFF(head) + head.a_data;
@@ -45,7 +45,7 @@ strip(name)
         status = 1;
         goto out;
     }
-    head.a_magic = OMAGIC;
+    head.a_midmag = OMAGIC;
     head.a_reltext = 0;
     head.a_reldata = 0;
     head.a_syms = 0;

src/elf32-mips.ld

@@ -92,7 +92,7 @@ SECTIONS
     *(.sdata2 .sdata2.* .gnu.linkonce.s2.*)
   }
   .sbss2          : { *(.sbss2 .sbss2.* .gnu.linkonce.sb2.*) }
-  .eh_frame_hdr : { *(.eh_frame_hdr) }
+  .eh_frame_hdr   : { *(.eh_frame_hdr) *(.eh_frame_entry .eh_frame_entry.*) }
   .eh_frame       : ONLY_IF_RO { KEEP (*(.eh_frame)) }
   .gcc_except_table   : ONLY_IF_RO { *(.gcc_except_table .gcc_except_table.*) }
   /* Adjust the address for the data segment. */

src/games/battlestar/Makefile

@@ -13,7 +13,7 @@ OBJS            = battlestar.o cmd1.o cmd2.o cmd3.o cmd4.o cmd5.o cmd6.o cmd7.o
 		  init.o cypher.o getcom.o parse.o room.o save.o fly.o misc.o \
 		  _globals.o _dayfile.o _nightfile.o dayobjs.o nightobjs.o words.o \
 		  curses.o doprnt.o
-LIBS            =
+LIBS            = -lc
 MAN		= battlestar.0
 MANSRC		= battlestar.6
 

src/games/sail/Makefile

@@ -12,7 +12,7 @@ CFLAGS		+= -Os -mips16 -Werror -Wall
 OBJS            = main.o pl_main.o pl_1.o pl_2.o pl_3.o pl_4.o pl_5.o pl_6.o pl_7.o \
                   dr_main.o dr_1.o dr_2.o dr_3.o dr_4.o dr_5.o lo_main.o \
                   assorted.o game.o globals.o misc.o parties.o sync.o version.o doprnt.o
-LIBS            = -lcurses -ltermcap
+LIBS            = -lcurses -ltermcap -lc
 MAN		= sail.0
 MANSRC		= sail.6
 

src/games/sail/sync.c

@@ -357,7 +357,7 @@ Sync()
 				switch (*p++ = getc(sync_fp)) {
 				case '\n':
 					p--;
-				case EOF:
+				case (char)EOF:
 					break;
 				default:
 					if (p >= buf + sizeof buf)

src/games/trek/Makefile

@@ -17,7 +17,7 @@ OBJS            = abandon.o attack.o autover.o capture.o check_out.o checkcond.o
                   ranf.o rest.o schedule.o score.o setup.o setwarp.o shell.o \
                   shield.o snova.o srscan.o systemname.o torped.o utility.o \
                   visual.o warp.o win.o
-LIBS            = -lm
+LIBS            = -lm -lc
 MAN		= trek.0
 MANSRC		= trek.6
 

src/games/trek/main.c

@@ -121,7 +121,7 @@ main(argc, argv)
 {
 	long			vect;
 	/* extern FILE		*f_log; */
-	register char		opencode;
+	/* register char	opencode; */
 	int			prio;
 	register int		ac;
 	register char		**av;
@@ -132,7 +132,7 @@ main(argc, argv)
 	av++;
 	time(&vect);
 	srand(vect);
-	opencode = 'w';
+	/* opencode = 'w'; */
 	prio = PRIO;
 	if (ioctl(1, TIOCGETP, &argp) == 0)
 	{
@@ -144,7 +144,7 @@ main(argc, argv)
 		switch (av[0][1])
 		{
 		  case 'a':	/* append to log file */
-			opencode = 'a';
+			/* opencode = 'a'; */
 			break;
 
 		  case 'f':	/* set fast mode */
@@ -179,10 +179,6 @@ main(argc, argv)
 	}
 	if (ac > 2)
 		syserr(0, "arg count");
-		/*
-	if (ac > 1)
-		f_log = fopen(av[0], opencode);
-		*/
 
 	printf("\n   * * *   S T A R   T R E K   * * *\n\nPress return to continue.\n");
 

src/libc/compat/memccpy.c

@@ -18,7 +18,7 @@ memccpy(vt, vf, c, n)
 	register char *t = vt;
 	register const char *f = vf;
 
-	while (--n >= 0)
+	while (n-- > 0)
 		if ((*t++ = *f++) == c)
 			return (t);
 	return (0);

src/libc/compat/memchr.c

@@ -16,7 +16,7 @@ memchr(vs, c, n)
 {
 	register const char *s = vs;
 
-	while (--n >= 0)
+	while (n-- > 0)
 		if (*s++ == c)
 			return (void*) --s;
 	return (0);

src/libc/compat/memcmp.c

@@ -15,7 +15,7 @@ memcmp (vs1, vs2, n)
 {
 	register const char *s1 = vs1, *s2 = vs2;
 
-	while (--n >= 0)
+	while (n-- > 0)
 		if (*s1++ != *s2++)
 			return (*--s1 - *--s2);
 	return (0);

src/libc/compat/memcpy.c

@@ -17,7 +17,7 @@ memcpy (vt, vf, n)
 	register char *t = vt;
 	register const char *f = vf;
 
-	while (--n >= 0)
+	while (n-- > 0)
 		*t++ = *f++;
 
 	return vt;

src/libc/compat/memset.c

@@ -16,7 +16,7 @@ memset (vs, c, n)
 {
 	register char *s = vs;
 
-	while (--n >= 0)
+	while (n-- > 0)
 		*s++ = c;
 
 	return vs;

src/libc/gen/getenv.c

@@ -14,7 +14,7 @@
  */
 char *
 getenv(name)
-	char *name;
+	const char *name;
 {
 	int	offset;
 	char	*_findenv();

src/libc/gen/strcasecmp.c

@@ -64,8 +64,8 @@ strncasecmp(s1, s2, n)
 {
 	register char *cm = charmap;
 
-	while (--n >= 0 && cm[(unsigned char)*s1] == cm[(unsigned char)*s2++])
+	while (n-- > 0 && cm[(unsigned char)*s1] == cm[(unsigned char)*s2++])
 		if (*s1++ == '\0')
 			return(0);
-	return(n < 0 ? 0 : cm[(unsigned char)*s1] - cm[(unsigned char)*--s2]);
+	return(n == -1 ? 0 : cm[(unsigned char)*s1] - cm[(unsigned char)*--s2]);
 }

src/libc/gen/strncat.c

@@ -18,7 +18,7 @@ strncat(s1, s2, n)
 		;
 	--s1;
 	while ((*s1++ = *s2++))
-		if (--n < 0) {
+		if (n-- == 0) {
 			*--s1 = '\0';
 			break;
 		}

src/libc/gen/strncpy.c

@@ -10,7 +10,7 @@ strncpy(s1, s2, n)
 	register const char *s2;
 	size_t n;
 {
-	register int i;
+	size_t i;
 	register char *os1;
 
 	os1 = s1;

src/libc/stdlib/getsubopt.c

@@ -43,7 +43,8 @@ char *suboptarg;
 
 int
 getsubopt(optionp, tokens, valuep)
-	register char **optionp, **valuep;
+	register char **optionp;
+	register char **valuep;
 	register char **tokens;
 {
 	register int cnt;

src/libc/stdlib/strtol.c

@@ -43,11 +43,11 @@
  */
 long
 strtol(nptr, endptr, base)
-	char *nptr;
+	const char *nptr;
 	char **endptr;
 	register int base;
 {
-	register char *s = nptr;
+	register const char *s = nptr;
 	register unsigned long acc;
 	register int c;
 	register unsigned long cutoff;

src/libc/stdlib/strtoul.c

@@ -43,11 +43,11 @@
  */
 unsigned long
 strtoul(nptr, endptr, base)
-	char *nptr;
+	const char *nptr;
 	char **endptr;
 	register int base;
 {
-	register char *s = nptr;
+	register const char *s = nptr;
 	register unsigned long acc;
 	register int c;
 	register unsigned long cutoff;

sys/include/exec.h

@@ -4,25 +4,103 @@
  * specifies the terms and conditions for redistribution.
  */
 
-#ifndef _EXEC_
-#define _EXEC_
-/*
- * Header prepended to each a.out file.
- */
-struct	exec {
-	int	a_magic;	/* magic number */
-unsigned int	a_text;		/* size of text segment */
-unsigned int	a_data;		/* size of initialized data */
-unsigned int	a_bss;		/* size of uninitialized data */
-unsigned int	a_reltext;	/* size of text relocation info */
-unsigned int	a_reldata;	/* size of data relocation info */
-unsigned int	a_syms;		/* size of symbol table */
-unsigned int	a_entry; 	/* entry point */
+#ifndef _SYS_EXEC_H_
+#define _SYS_EXEC_H_
+#ifdef KERNEL
+
+#ifdef EXEC_SCRIPT
+#define	SHSIZE	64
+#define	SHPATHLEN 64
+#endif
+#ifdef EXEC_ELF
+#define	STRLEN	32
+#endif
+#ifdef EXEC_AOUT
+#include "exec_aout.h"
+#endif
+#ifdef EXEC_ELF
+#include "exec_elf.h"
+#endif
+
+#define NO_ADDR	((caddr_t)(~0U)) /* Indicates addr. not yet filled in */
+
+struct memsect {
+	caddr_t vaddr;
+	unsigned len;
 };
 
-/* a_magic */
-#define RMAGIC		0406    /* relocatable object file */
-#define OMAGIC		0407    /* old impure format */
-#define NMAGIC		0410    /* read-only text */
-
+struct exec_params {
+	char *userfname;			/* The arguments to the exec() call */
+	char **userargp;
+	char **userenvp;
+	union {
+#ifdef EXEC_SCRIPT
+		char sh[SHSIZE];
+#endif
+#ifdef EXEC_AOUT
+		struct exec aout;
+#endif
+#ifdef EXEC_ELF
+		struct elf_ehdr elf;
+#endif
+	} hdr;				/* head of file to exec */
+	int hdr_len;			/* number of bytes valid in image_header */
+	char **argp, **envp;
+	u_short argc, envc;			/* count of argument and environment strings */
+	u_short argbc, envbc;		/* total number of chars in argc and envc string pool */
+	union {
+#ifdef EXEC_SCRIPT
+		struct {
+			char interpname[20];		/* real name of the script interpreter */
+			char interparg[SHPATHLEN];	/* interpreter arg */
+			char interpreted;		/* flag - this executable is interpreted */
+		} sh;
+#endif
+#ifdef EXEC_ELF
+		struct {
+			struct buf *stbp;		/* String table buffer pointer */
+			int stbpos;			/* String table pos in buffer */
+			int stsize;			/* String table size */
+			int stoffset;			/* String table file pos */
+			char str[STRLEN];
+		} elf;
+#endif
+#ifdef EXEC_AOUT
+		struct {
+		} aout;
+#endif
+	};
+
+	gid_t gid;
+	uid_t uid;
+#define	MAXALLOCBUF	6
+	struct {
+		struct buf *bp;			/* Memory allocator buffer */
+		u_short fill;			/* Memory allocator "free" pointer */
+	} alloc[MAXALLOCBUF];
+	u_long ep_taddr, ep_tsize, ep_daddr, ep_dsize;
+	struct inode *ip;		/* executable file ip */
+	struct memsect text, data, bss, heap, stack;
+};
+
+struct execsw {
+	int (*es_check)(struct exec_params *epp);
+	const char* es_name;
+};
+extern const struct execsw execsw[];
+extern int nexecs, exec_maxhdrsz;
+
+
+struct buf *exec_copy_args(char **argp, struct exec_params *epp, int isargv, int *argc, int *argbc);
+int exec_check(struct exec_params *epp);
+void exec_setupstack(unsigned entryaddr, struct exec_params *epp);
+void exec_alloc_freeall(struct exec_params *epp);
+void *exec_alloc(int size, int ru, struct exec_params *epp);
+int exec_estab(struct exec_params *epp);
+void exec_save_args(struct exec_params *epp);
+void exec_clear(struct exec_params *epp);
+
+#else /* KERNEL */
+#include <sys/exec_aout.h>
+#endif
 #endif

sys/include/exec_aout.h

@@ -0,0 +1,102 @@
+#ifndef _SYS_EXEC_AOUT_H_
+#define _SYS_EXEC_AOUT_H_
+
+/*
+ * Header prepended to each a.out file.
+ */
+struct	exec {
+	unsigned a_midmag;	/* magic number */
+	unsigned a_text;	/* size of text segment */
+	unsigned a_data;	/* size of initialized data */
+	unsigned a_bss;		/* size of uninitialized data */
+	unsigned a_reltext;	/* size of text relocation info */
+	unsigned a_reldata;	/* size of data relocation info */
+	unsigned a_syms;	/* size of symbol table */
+	unsigned a_entry; 	/* entry point */
+};
+
+#define	a_magic	a_midmag & 0xffff
+
+/* a_magic (a_midmag & 0x0000ffff) */
+#define RMAGIC		0406    /* relocatable object file */
+#define OMAGIC		0407    /* old impure format */
+#define NMAGIC		0410    /* read-only text */
+
+/*
+ * a_mid ((a_midmag & 0x03ff0000) >> 16)
+ */
+#define	MID_ZERO	0	/* unknown - implementation dependent */
+#define	MID_SUN010	1	/* sun 68010/68020 binary */
+#define	MID_SUN020	2	/* sun 68020-only binary */
+#define	MID_PC386	100	/* 386 PC binary. (so quoth BFD) */
+#define	MID_HP200	200	/* hp200 (68010) BSD binary */
+#define	MID_I386	134	/* i386 BSD binary */
+#define	MID_M68K	135	/* m68k BSD binary with 8K page sizes */
+#define	MID_M68K4K	136	/* m68k BSD binary with 4K page sizes */
+#define	MID_NS32532	137	/* ns32532 */
+#define	MID_SPARC	138	/* sparc */
+#define	MID_PMAX	139	/* pmax */
+#define	MID_VAX1K	140	/* vax 1K page size binaries */
+#define	MID_ALPHA	141	/* Alpha BSD binary */
+#define	MID_MIPS	142	/* big-endian MIPS */
+#define	MID_ARM6	143	/* ARM6 */
+#define	MID_SH3		145	/* SH3 */
+#define	MID_POWERPC	149	/* big-endian PowerPC */
+#define	MID_VAX		150	/* vax */
+#define	MID_SPARC64	151	/* LP64 sparc */
+#define	MID_HP300	300	/* hp300 (68020+68881) BSD binary */
+#define	MID_HPUX	0x20C	/* hp200/300 HP-UX binary */
+#define	MID_HPUX800     0x20B   /* hp800 HP-UX binary */
+
+/*
+ * a_flags ((a_midmag & 0xfc000000 ) << 26)
+ */
+#define EX_PIC		0x10
+#define EX_DYNAMIC	0x20
+#define EX_DPMASK	0x30
+/*
+ * Interpretation of the (a_flags & EX_DPMASK) bits:
+ *
+ *	00		traditional executable or object file
+ *	01		object file contains PIC code (set by `as -k')
+ *	10		dynamic executable
+ *	11		position independent executable image
+ * 			(eg. a shared library)
+ */
+
+/*
+ * The a.out structure's a_midmag field is a network-byteorder encoding
+ * of this int
+ *	FFFFFFmmmmmmmmmmMMMMMMMMMMMMMMMM
+ * Where `F' is 6 bits of flag like EX_DYNAMIC,
+ *       `m' is 10 bits of machine-id like MID_I386, and
+ *       `M' is 16 bits worth of magic number, ie. ZMAGIC.
+ * The macros below will set/get the needed fields.
+ */
+#define	N_GETMAGIC(ex) (((ex).a_midmag)&0x0000ffff)
+#define	N_GETMID(ex)   ((((ex).a_midmag)&0x03ff0000) >> 16)
+#define	N_GETFLAG(ex) ((((ex).a_midmag)&0xfc000000 ) << 26)
+
+/* Valid magic number check. */
+#define	N_BADMAG(x) 		(N_GETMAGIC(x) != RMAGIC && \
+				 N_GETMAGIC(x) != OMAGIC && \
+				 N_GETMAGIC(x) != NMAGIC)
+
+/* Text segment offset. */
+#define	N_TXTOFF(x) 		sizeof(struct exec)
+
+/* Data segment offset. */
+#define	N_DATOFF(x) 		(N_TXTOFF(x) + (x).a_text)
+
+/* Text relocation table offset. */
+#define	N_TRELOFF(x) 		(N_DATOFF(x) + (x).a_data)
+
+/* Data relocation table offset. */
+#define	N_DRELOFF(x) 		(N_TRELOFF(x) + (x).a_reltext)
+
+/* Symbol table offset. */
+#define	N_SYMOFF(x) 		(N_GETMAGIC(x) == RMAGIC ? \
+                                    N_DRELOFF(x) + (x).a_reldata : \
+                                    N_DATOFF(x) + (x).a_data)
+
+#endif

sys/include/exec_elf.h

@@ -0,0 +1,496 @@
+/*	$NetBSD: exec_elf.h,v 1.37.4.1 2000/07/26 23:57:06 mycroft Exp $	*/
+
+/*-
+ * Copyright (c) 1994 The NetBSD Foundation, Inc.
+ * All rights reserved.
+ *
+ * This code is derived from software contributed to The NetBSD Foundation
+ * by Christos Zoulas.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the NetBSD
+ *	Foundation, Inc. and its contributors.
+ * 4. Neither the name of The NetBSD Foundation nor the names of its
+ *    contributors may be used to endorse or promote products derived
+ *    from this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
+ * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
+ * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+ * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
+ * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+*/
+
+#ifndef _SYS_EXEC_ELF_H_
+#define	_SYS_EXEC_ELF_H_
+
+#ifndef _SYS_TYPES_H_
+#include <machine/types.h>
+#endif
+
+/*
+ * ELF Header
+ */
+#define	ELF_NIDENT	16
+
+struct elf_ehdr {
+	unsigned char	e_ident[ELF_NIDENT];	/* Id bytes */
+	unsigned short	e_type;			/* file type */
+	unsigned short	e_machine;		/* machine type */
+	unsigned int	e_version;		/* version number */
+	unsigned int	e_entry;		/* entry point */
+	unsigned int	e_phoff;		/* Program header table offset */
+	unsigned int	e_shoff;		/* Section header table offset */
+	unsigned int	e_flags;		/* Processor flags (currently unused, should be 0) */
+	unsigned short	e_ehsize;		/* sizeof elf_ehdr */
+	unsigned short	e_phentsize;		/* Program header entry size */
+	unsigned short	e_phnum;		/* Number of program headers */
+	unsigned short	e_shentsize;		/* Section header entry size */
+	unsigned short	e_shnum;		/* Number of section headers */
+	unsigned short	e_shstrndx;		/* String table index */
+};
+
+/* e_ident offsets */
+#define	EI_MAG0		0		/* first byte of magic number */
+#define	ELFMAG0			0x7f
+#define	EI_MAG1		1		/* second byte of magic number */
+#define	ELFMAG1			'E'
+#define	EI_MAG2		2 		/* third byte of magic number */
+#define	ELFMAG2			'L'
+#define	EI_MAG3		3		/* fourth byte of magic number */
+#define	ELFMAG3			'F'
+
+#define	EI_CLASS	4		/* 5:th byte: File class */
+#define		ELFCLASSNONE	0	/* Invalid class */
+#define		ELFCLASS32	1	/* 32-bit objects */
+#define		ELFCLASS64	2	/* 64-bit objects */
+#define		ELFCLASSNUM	3
+
+#define	EI_DATA		5		/* 6:th byte: Data encoding */
+#define		ELFDATANONE	0	/* Unknown data format */
+#define		ELFDATA2LSB	1	/* two's complement, little-endian */
+#define		ELFDATA2MSB	2	/* two's complement, big-endian */
+
+#define	EI_VERSION	6		/* Version number of the ELF specification */
+#define		EV_NONE		0	/* Invalid version */
+#define		EV_CURRENT	1	/* Current version */
+#define		EV_NUM		2
+
+#define	EI_OSABI	7		/* Operating system/ABI identification */
+#define		ELFOSABI_SYSV		0	/* UNIX System V ABI */
+#define		ELFOSABI_HPUX		1	/* HP-UX operating system */
+#define		ELFOSABI_NETBSD			/* NetBSD ABI */
+#define		ELFOSABI_LINUX			/* Linux ABI */
+#define		ELFOSABI_SOLARIS		/* Solaris ABI */
+#define		ELFOSABI_FREEBSD		/* FreeBSD ABI */
+#define		ELFOSABI_ARM			/* ARM architecture ABI */
+#define		ELFOSABI_STANDALONE	255	/* Stand-alone (embedded) application */
+
+#define	EI_ABIVERSION	8	/* ABI version */
+
+#define	EI_PAD		9	/* Start of padding bytes up to EI_NIDENT*/
+
+#define	ELFMAG		"\177ELF"
+#define	SELFMAG		4
+
+/* e_type */
+#define	ET_NONE		0	/* Unknown file type */
+#define	ET_REL		1	/* A Relocatable file */
+#define	ET_EXEC		2	/* An Executable file */
+#define	ET_DYN		3	/* A Shared object file */
+#define	ET_CORE		4	/* A Core file */
+#define	ET_NUM		5
+
+#define	ET_LOOS		0xfe00	/* Operating system specific range */
+#define	ET_HIOS		0xfeff
+#define	ET_LOPROC	0xff00	/* Processor-specific range */
+#define	ET_HIPROC	0xffff
+
+/* e_machine */
+#define	EM_NONE		0	/* No machine */
+#define	EM_M32		1	/* AT&T WE 32100 */
+#define	EM_SPARC	2	/* SPARC */
+#define	EM_386		3	/* Intel 80386 */
+#define	EM_68K		4	/* Motorola 68000 */
+#define	EM_88K		5	/* Motorola 88000 */
+#define	EM_486		6	/* Intel 80486 */
+#define	EM_860		7	/* Intel 80860 */
+#define	EM_MIPS		8	/* MIPS I Architecture */
+#define	EM_S370		9	/* Amdahl UTS on System/370 */
+#define	EM_MIPS_RS3_LE	10	/* MIPS RS3000 Little-endian */
+#define	EM_RS6000	11	/* IBM RS/6000 XXX reserved */
+#define	EM_PARISC	15	/* Hewlett-Packard PA-RISC */
+#define	EM_NCUBE	16	/* NCube XXX reserved */
+#define	EM_VPP500	17	/* Fujitsu VPP500 */
+#define	EM_SPARC32PLUS	18	/* Enhanced instruction set SPARC */
+#define	EM_960		19	/* Intel 80960 */
+#define	EM_PPC		20	/* PowerPC */
+#define	EM_V800		36	/* NEC V800 */
+#define	EM_FR20		37	/* Fujitsu FR20 */
+#define	EM_RH32		38	/* TRW RH-32 */
+#define	EM_RCE		39	/* Motorola RCE */
+#define	EM_ARM		40	/* Advanced RISC Machines ARM */
+#define	EM_ALPHA	41	/* DIGITAL Alpha */
+#define	EM_SH		42	/* Hitachi Super-H */
+#define	EM_SPARCV9	43	/* SPARC Version 9 */
+#define	EM_TRICORE	44	/* Siemens Tricore */
+#define	EM_ARC		45	/* Argonaut RISC Core */
+#define	EM_H8_300	46	/* Hitachi H8/300 */
+#define	EM_H8_300H	47	/* Hitachi H8/300H */
+#define	EM_H8S		48	/* Hitachi H8S */
+#define	EM_H8_500	49	/* Hitachi H8/500 */
+#define	EM_IA_64	50	/* Intel Merced Processor */
+#define	EM_MIPS_X	51	/* Stanford MIPS-X */
+#define	EM_COLDFIRE	52	/* Motorola Coldfire */
+#define	EM_68HC12	53	/* Motorola MC68HC12 */
+#define	EM_VAX		75	/* DIGITAL VAX */
+#define	EM_ALPHA_EXP	36902	/* used by NetBSD/alpha; obsolete */
+#define	EM_NUM		36903
+
+/*
+ * ELF Program Header
+ */
+struct elf_phdr {
+	unsigned int	p_type;		/* entry type */
+	unsigned int	p_offset;	/* file offset */
+	unsigned int	p_vaddr;	/* virtual address */
+	unsigned int	p_paddr;	/* physical address (reserved, 0) */
+	unsigned int	p_filesz;	/* file size of segment (may be 0) */
+	unsigned int	p_memsz;	/* memory size of segment (may be 0) */
+	unsigned int	p_flags;	/* flags */
+	unsigned int	p_align;	/* memory & file alignment */
+};
+
+/* p_type */
+#define	PT_NULL		0		/* Program header table entry unused */
+#define	PT_LOAD		1		/* Loadable program segment */
+#define	PT_DYNAMIC	2		/* Dynamic linking information */
+#define	PT_INTERP	3		/* Program interpreter */
+#define	PT_NOTE		4		/* Auxiliary information */
+#define	PT_SHLIB	5		/* Reserved, unspecified semantics */
+#define	PT_PHDR		6		/* Entry for header table itself */
+#define	PT_NUM		7
+#define	PT_LOPROC	0x70000000	/* Start of processor-specific semantics */
+#define	PT_HIPROC	0x7fffffff	/* end of processor-specific semantics */
+#define	PT_GNU_STACK			/* GNU stack extension */
+
+/* p_flags */
+#define	PF_R		0x4	/* Segment is readable */
+#define	PF_W		0x2	/* Segment is writable */
+#define	PF_X		0x1	/* Segment is executable */
+/* A text segment commonly have PF_X|PF_R, a data segment PF_X|PF_W and PF_R */
+
+#define	PF_MASKOS	0x0ff00000	/* Opersting system specific values */
+#define	PF_MASKPROC	0xf0000000	/* Processor-specific values */
+
+
+#define	PT_MIPS_REGINFO	0x70000000
+
+/*
+ * Section Headers
+ */
+struct elf_shdr {
+	unsigned int	sh_name;	/* section name (.shstrtab index) */
+	unsigned int	sh_type;	/* section type */
+	unsigned int	sh_flags;	/* section flags */
+	unsigned int	sh_addr;	/* virtual address */
+	unsigned int	sh_offset;	/* file offset */
+	unsigned int	sh_size;	/* section size */
+	unsigned int	sh_link;	/* link to another */
+	unsigned int	sh_info;	/* misc info */
+	unsigned int	sh_addralign;	/* memory alignment */
+	unsigned int	sh_entsize;	/* table entry size */
+};
+
+/* sh_type */
+#define	SHT_NULL	0	/* inactive */
+#define	SHT_PROGBITS	1	/* program defined contents */
+#define	SHT_SYMTAB	2	/* holds symbol table */
+#define	SHT_STRTAB	3	/* holds string table */
+#define	SHT_RELA	4	/* holds relocation info with explicit addends */
+#define	SHT_HASH	5	/* holds symbol hash table */
+#define	SHT_DYNAMIC	6	/* holds dynamic linking information */
+#define	SHT_NOTE	7	/* holds information marking */
+#define	SHT_NOBITS	8	/* holds a section that does not occupy space */
+#define	SHT_REL		9	/* holds relocation info without explicit addends */
+#define	SHT_SHLIB	10	/* reserved with unspecified semantics */
+#define	SHT_DYNSYM	11	/* holds a minimal set of dynamic linking symbols */
+#define	SHT_NUM		12
+
+#define	SHT_LOOS	0x60000000	/* Operating system specific range */
+#define	SHT_HIOS	0x6fffffff
+#define	SHT_LOPROC	0x70000000	/* Processor-specific range */
+#define	SHT_HIPROC	0x7fffffff
+#define	SHT_LOUSER	0x80000000	/* Application-specific range */
+#define	SHT_HIUSER	0xffffffff
+
+/* sh_flags */
+#define	SHF_WRITE	0x1		/* Section contains writable data */
+#define	SHF_ALLOC	0x2		/* Section occupies memory */
+#define	SHF_EXECINSTR	0x4		/* Section contains executable insns */
+
+#define	SHF_MASKOS	0x0f000000	/* Operating system specific values */
+#define	SHF_MASKPROC	0xf0000000	/* Processor-specific values */
+
+/*
+ * Symbol Table
+ */
+struct elf_sym {
+	unsigned int	st_name;	/* Symbol name (.symtab index) */
+	unsigned int	st_value;	/* value of symbol */
+	unsigned int	st_size;	/* size of symbol */
+	unsigned char	st_info;	/* type / binding attrs */
+	unsigned char	st_other;	/* unused */
+	unsigned short	st_shndx;	/* section index of symbol */
+};
+
+/* Symbol Table index of the undefined symbol */
+#define	ELF_SYM_UNDEFINED	0
+
+/* st_info: Symbol Bindings */
+#define	STB_LOCAL		0	/* local symbol */
+#define	STB_GLOBAL		1	/* global symbol */
+#define	STB_WEAK		2	/* weakly defined global symbol */
+#define	STB_NUM			3
+
+#define	STB_LOOS		10	/* Operating system specific range */
+#define	STB_HIOS		12
+#define	STB_LOPROC		13	/* Processor-specific range */
+#define	STB_HIPROC		15
+
+/* st_info: Symbol Types */
+#define	STT_NOTYPE		0	/* Type not specified */
+#define	STT_OBJECT		1	/* Associated with a data object */
+#define	STT_FUNC		2	/* Associated with a function */
+#define	STT_SECTION		3	/* Associated with a section */
+#define	STT_FILE		4	/* Associated with a file name */
+#define	STT_NUM			5
+
+#define	STT_LOOS		10	/* Operating system specific range */
+#define	STT_HIOS		12
+#define	STT_LOPROC		13	/* Processor-specific range */
+#define	STT_HIPROC		15
+
+/* st_info utility macros */
+#define	ELF_ST_BIND(info)	((unsigned int)(info) >> 4)
+#define	ELF_ST_TYPE(info)	((unsigned int)(info) & 0xf)
+#define	ELF_ST_INFO(bind,type)	((unsigned char)(((bind) << 4) | ((type) & 0xf)))
+
+/*
+ * Special section indexes
+ */
+#define	SHN_UNDEF	0		/* Undefined section */
+
+#define	SHN_LORESERVE	0xff00		/* Start of Reserved range */
+#define	SHN_ABS		0xfff1		/*  Absolute symbols */
+#define	SHN_COMMON	0xfff2		/*  Common symbols */
+#define	SHN_HIRESERVE	0xffff
+
+#define	SHN_LOPROC	0xff00		/* Start of Processor-specific range */
+#define	SHN_HIPROC	0xff1f
+#define	SHN_LOOS	0xff20		/* Operating system specific range */
+#define	SHN_HIOS	0xff3f
+
+#define	SHN_MIPS_ACOMMON 0xff00
+#define	SHN_MIPS_TEXT	0xff01
+#define	SHN_MIPS_DATA	0xff02
+#define	SHN_MIPS_SCOMMON 0xff03
+
+/*
+ * Relocation Entries
+ */
+struct elf_rel {
+	unsigned int	r_offset;	/* where to do it */
+	unsigned int	r_info;		/* index & type of relocation */
+};
+
+struct elf_rela {
+	unsigned int	r_offset;	/* where to do it */
+	unsigned int	r_info;		/* index & type of relocation */
+	int		r_addend;	/* adjustment value */
+};
+
+/* r_info utility macros */
+#define	ELF_R_SYM(info)		((info) >> 8)
+#define	ELF_R_TYPE(info)	((info) & 0xff)
+#define	ELF_R_INFO(sym, type)	(((sym) << 8) + (unsigned char)(type))
+
+/*
+ * Dynamic Section structure array
+ */
+struct elf_dyn {
+	unsigned int	d_tag;		/* entry tag value */
+	union {
+	    unsigned int	d_ptr;
+	    unsigned int	d_val;
+	} d_un;
+};
+
+/* d_tag */
+#define	DT_NULL		0	/* Marks end of dynamic array */
+#define	DT_NEEDED	1	/* Name of needed library (DT_STRTAB offset) */
+#define	DT_PLTRELSZ	2	/* Size, in bytes, of relocations in PLT */
+#define	DT_PLTGOT	3	/* Address of PLT and/or GOT */
+#define	DT_HASH		4	/* Address of symbol hash table */
+#define	DT_STRTAB	5	/* Address of string table */
+#define	DT_SYMTAB	6	/* Address of symbol table */
+#define	DT_RELA		7	/* Address of Rela relocation table */
+#define	DT_RELASZ	8	/* Size, in bytes, of DT_RELA table */
+#define	DT_RELAENT	9	/* Size, in bytes, of one DT_RELA entry */
+#define	DT_STRSZ	10	/* Size, in bytes, of DT_STRTAB table */
+#define	DT_SYMENT	11	/* Size, in bytes, of one DT_SYMTAB entry */
+#define	DT_INIT		12	/* Address of initialization function */
+#define	DT_FINI		13	/* Address of termination function */
+#define	DT_SONAME	14	/* Shared object name (DT_STRTAB offset) */
+#define	DT_RPATH	15	/* Library search path (DT_STRTAB offset) */
+#define	DT_SYMBOLIC	16	/* Start symbol search within local object */
+#define	DT_REL		17	/* Address of Rel relocation table */
+#define	DT_RELSZ	18	/* Size, in bytes, of DT_REL table */
+#define	DT_RELENT	19	/* Size, in bytes, of one DT_REL entry */
+#define	DT_PLTREL	20 	/* Type of PLT relocation entries */
+#define	DT_DEBUG	21	/* Used for debugging; unspecified */
+#define	DT_TEXTREL	22	/* Relocations might modify non-writable seg */
+#define	DT_JMPREL	23	/* Address of relocations associated with PLT */
+#define	DT_BIND_NOW	24	/* Process all relocations at load-time */
+#define	DT_INIT_ARRAY	25	/* Address of initialization function array */
+#define	DT_FINI_ARRAY	26	/* Size, in bytes, of DT_INIT_ARRAY array */
+#define	DT_INIT_ARRAYSZ	27	/* Address of termination function array */
+#define	DT_FINI_ARRAYSZ	28	/* Size, in bytes, of DT_FINI_ARRAY array*/
+#define	DT_NUM		29
+
+#define	DT_LOOS		0x60000000	/* Operating system specific range */
+#define	DT_HIOS		0x6fffffff
+#define	DT_LOPROC	0x70000000	/* Processor-specific range */
+#define	DT_HIPROC	0x7fffffff
+
+/*
+ * Auxiliary Vectors
+ */
+struct elf_auxinfo {
+	unsigned int	a_type;				/* 32-bit id */
+	unsigned int	a_v;				/* 32-bit id */
+};
+
+/* a_type */
+#define	AT_NULL		0	/* Marks end of array */
+#define	AT_IGNORE	1	/* No meaning, a_un is undefined */
+#define	AT_EXECFD	2	/* Open file descriptor of object file */
+#define	AT_PHDR		3	/* &phdr[0] */
+#define	AT_PHENT	4	/* sizeof(phdr[0]) */
+#define	AT_PHNUM	5	/* # phdr entries */
+#define	AT_PAGESZ	6	/* PAGESIZE */
+#define	AT_BASE		7	/* Interpreter base addr */
+#define	AT_FLAGS	8	/* Processor flags */
+#define	AT_ENTRY	9	/* Entry address of executable */
+#define	AT_DCACHEBSIZE	10	/* Data cache block size */
+#define	AT_ICACHEBSIZE	11	/* Instruction cache block size */
+#define	AT_UCACHEBSIZE	12	/* Unified cache block size */
+
+	/* Vendor specific */
+#define	AT_MIPS_NOTELF	10	/* XXX a_val != 0 -> MIPS XCOFF executable */
+
+#define	AT_SUN_UID	2000	/* euid */
+#define	AT_SUN_RUID	2001	/* ruid */
+#define	AT_SUN_GID	2002	/* egid */
+#define	AT_SUN_RGID	2003	/* rgid */
+
+	/* Solaris kernel specific */
+#define	AT_SUN_LDELF	2004	/* dynamic linker's ELF header */
+#define	AT_SUN_LDSHDR	2005	/* dynamic linker's section header */
+#define	AT_SUN_LDNAME	2006	/* dynamic linker's name */
+#define	AT_SUN_LPGSIZE	2007	/* large pagesize */
+
+	/* Other information */
+#define	AT_SUN_PLATFORM	2008	/* sysinfo(SI_PLATFORM) */
+#define	AT_SUN_HWCAP	2009	/* process hardware capabilities */
+#define	AT_SUN_IFLUSH	2010	/* do we need to flush the instruction cache? */
+#define	AT_SUN_CPU	2011	/* cpu name */
+	/* ibcs2 emulation band aid */
+#define	AT_SUN_EMUL_ENTRY 2012	/* coff entry point */
+#define	AT_SUN_EMUL_EXECFD 2013	/* coff file descriptor */
+	/* Executable's fully resolved name */
+#define	AT_SUN_EXECNAME	2014
+
+/*
+ * Note Headers
+ */
+struct elf_nhdr {
+
+	unsigned int	n_namesz;
+	unsigned int	n_descsz;
+	unsigned int	n_type;
+};
+
+#define	ELF_NOTE_TYPE_OSVERSION		1
+
+/* NetBSD-specific note type: Emulation name.  desc is emul name string. */
+#define	ELF_NOTE_NETBSD_TYPE_EMULNAME	2
+
+/* NetBSD-specific note name and description sizes */
+#define	ELF_NOTE_NETBSD_NAMESZ		7
+#define	ELF_NOTE_NETBSD_DESCSZ		4
+/* NetBSD-specific note name */
+#define	ELF_NOTE_NETBSD_NAME		"NetBSD\0\0"
+
+/* GNU-specific note name and description sizes */
+#define	ELF_NOTE_GNU_NAMESZ		4
+#define	ELF_NOTE_GNU_DESCSZ		4
+/* GNU-specific note name */
+#define	ELF_NOTE_GNU_NAME		"GNU\0"
+
+/* GNU-specific OS/version value stuff */
+#define	ELF_NOTE_GNU_OSMASK		(unsigned int)0xff000000
+#define	ELF_NOTE_GNU_OSLINUX		(unsigned int)0x01000000
+#define	ELF_NOTE_GNU_OSMACH		(unsigned int)0x00000000
+
+//#define	CONCAT(x,y)	__CONCAT(x,y)
+
+
+#include <machine/elf_machdep.h>
+
+
+#ifdef _KERNEL
+
+#define ELF_AUX_ENTRIES	8		/* Size of aux array passed to loader */
+
+struct elf_args {
+        unsigned int  arg_entry;      /* program entry point */
+        unsigned int  arg_interp;     /* Interpreter load address */
+        unsigned int  arg_phaddr;     /* program header address */
+        unsigned int  arg_phentsize;  /* Size of program header */
+        unsigned int  arg_phnum;      /* Number of program headers */
+};
+
+#ifndef _LKM
+#include "opt_execfmt.h"
+#endif
+
+#ifdef EXEC_ELF
+int	exec_elf_makecmds __P((struct proc *, struct exec_package *));
+int	elf_read_from __P((struct proc *, struct vnode *, u_long,
+	    caddr_t, int));
+void	*elf_copyargs __P((struct exec_package *, struct ps_strings *,
+	    void *, void *));
+#endif
+
+/* common */
+int	exec_elf_setup_stack __P((struct proc *, struct exec_package *));
+
+#endif /* _KERNEL */
+
+#endif /* !_SYS_EXEC_ELF_H_ */

sys/include/proc.h

@@ -97,7 +97,7 @@ struct	proc *pidhash [PIDHSZ];
 extern struct	proc proc[];	/* the proc table itself */
 struct	proc *freeproc, *zombproc, *allproc, *qs;
 			/* lists of procs in various states */
-int nproc;
+extern int nproc;
 
 /*
  * Init the process queues.
@@ -272,6 +272,8 @@ void fatalsig (int signum);
  */
 int procxmt (void);
 
+void execsigs(register struct proc *p);
+
 #endif /* KERMEL */
 
 /* stat codes */

sys/kernel/exec_aout.c

@@ -0,0 +1,95 @@
+#include "param.h"
+#include "systm.h"
+#include "map.h"
+#include "inode.h"
+#include "user.h"
+#include "proc.h"
+#include "buf.h"
+#include "namei.h"
+#include "fs.h"
+#include "mount.h"
+#include "file.h"
+#include "resource.h"
+#include "exec.h"
+#include "exec_aout.h"
+#include "dir.h"
+#include "uio.h"
+#include "debug.h"
+
+int exec_aout_check(struct exec_params *epp)
+{
+	int error;
+
+	if (epp->hdr_len < sizeof(struct exec))
+		return ENOEXEC;
+	if (!(N_GETMID(epp->hdr.aout) == MID_ZERO &&
+	      N_GETFLAG(epp->hdr.aout) == 0))
+		return ENOEXEC;
+
+	switch (N_GETMAGIC(epp->hdr.aout)) {
+	case OMAGIC:
+		epp->hdr.aout.a_data += epp->hdr.aout.a_text;
+		epp->hdr.aout.a_text = 0;
+		break;
+	default:
+		printf("Bad a.out magic = %0o\n", N_GETMAGIC(epp->hdr.aout));
+		return ENOEXEC;
+	}
+
+	/*
+	 * Save arglist
+	 */
+	exec_save_args(epp);
+
+	DEBUG("Exec file header:\n");
+	DEBUG("a_midmag =  %#x\n", epp->hdr.aout.a_midmag); 	/* magic number */
+	DEBUG("a_text =    %d\n", epp->hdr.aout.a_text);	/* size of text segment */
+	DEBUG("a_data =    %d\n", epp->hdr.aout.a_data);	/* size of initialized data */
+	DEBUG("a_bss =     %d\n", epp->hdr.aout.a_bss); 	/* size of uninitialized data */
+	DEBUG("a_reltext = %d\n", epp->hdr.aout.a_reltext); 	/* size of text relocation info */
+	DEBUG("a_reldata = %d\n", epp->hdr.aout.a_reldata); 	/* size of data relocation info */
+	DEBUG("a_syms =    %d\n", epp->hdr.aout.a_syms);	/* size of symbol table */
+	DEBUG("a_entry =   %#x\n", epp->hdr.aout.a_entry);  	/* entry point */
+
+	/*
+	 * Set up memory allocation
+	 */
+	epp->text.vaddr = epp->heap.vaddr = NO_ADDR;
+	epp->text.len = epp->heap.len = 0;
+
+	epp->data.vaddr = (caddr_t)USER_DATA_START;
+	epp->data.len = epp->hdr.aout.a_data;
+	epp->bss.vaddr = epp->data.vaddr + epp->data.len;
+	epp->bss.len = epp->hdr.aout.a_bss;
+	epp->heap.vaddr = epp->bss.vaddr + epp->bss.len;
+	epp->heap.len = 0;
+	epp->stack.len = SSIZE + roundup(epp->argbc + epp->envbc, NBPW) + (epp->argc + epp->envc+4)*NBPW;
+	epp->stack.vaddr = (caddr_t)USER_DATA_END - epp->stack.len;
+
+	/*
+	 * Allocate core at this point, committed to the new image.
+	 * TODO: What to do for errors?
+	 */
+	exec_estab(epp);
+
+	/* read in text and data */
+	DEBUG("reading a.out image\n");
+	error = rdwri (UIO_READ, epp->ip,
+		       (caddr_t)epp->data.vaddr, epp->hdr.aout.a_data,
+		       sizeof(struct exec) + epp->hdr.aout.a_text, IO_UNIT, 0);
+	if (error)
+		DEBUG("read image returned error=%d\n", error);
+	if (error) {
+		/*
+		 * Error - all is lost, when the old image is possible corrupt
+		 * and we could not load a new.
+		 */
+		psignal (u.u_procp, SIGSEGV);
+		return error;
+	}
+
+	exec_clear(epp);
+	exec_setupstack(epp->hdr.aout.a_entry, epp);
+
+	return 0;
+}

sys/kernel/exec_conf.c

@@ -0,0 +1,59 @@
+/*	$NetBSD: exec_conf.c,v 1.43 2000/06/09 22:38:57 oki Exp $	*/
+
+/*
+ * Copyright (c) 1993, 1994 Christopher G. Demetriou
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *      This product includes software developed by Christopher G. Demetriou.
+ * 4. The name of the author may not be used to endorse or promote products
+ *    derived from this software without specific prior written permission
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
+ * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
+ * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
+ * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
+ * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
+ * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+ * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+ * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+ * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
+ * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include "param.h"
+#include "inode.h"
+#include "exec.h"
+
+#ifdef EXEC_SCRIPT
+int exec_script_check(struct exec_params *epp);
+#endif
+#ifdef EXEC_AOUT
+int exec_aout_check(struct exec_params *epp);
+#endif
+#ifdef EXEC_ELF
+int exec_elf_check(struct exec_params *epp);
+#endif
+
+const struct execsw execsw[] = {
+#ifdef EXEC_AOUT
+	{ exec_aout_check, "a.out" },	/* a.out binaries */
+#endif
+#ifdef EXEC_ELF
+	{ exec_elf_check, "elf" },	/* 32bit ELF bins */
+#endif
+#ifdef EXEC_SCRIPT
+	{ exec_script_check, "script" },		/* shell scripts */
+#endif
+ };
+int nexecs = (sizeof(execsw) / sizeof(*execsw));
+int exec_maxhdrsz;

sys/kernel/exec_elf.c

@@ -0,0 +1,207 @@
+/*	$NetBSD: exec_elf32.c,v 1.49.2.2 2000/11/03 20:00:38 tv Exp $	*/
+
+/*-
+ * Copyright (c) 1994 The NetBSD Foundation, Inc.
+ * All rights reserved.
+ *
+ * This code is derived from software contributed to The NetBSD Foundation
+ * by Christos Zoulas.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the NetBSD
+ *	Foundation, Inc. and its contributors.
+ * 4. Neither the name of The NetBSD Foundation nor the names of its
+ *    contributors may be used to endorse or promote products derived
+ *    from this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
+ * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
+ * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+ * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
+ * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+/*
+ * Copyright (c) 1996 Christopher G. Demetriou
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. The name of the author may not be used to endorse or promote products
+ *    derived from this software without specific prior written permission
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
+ * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
+ * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
+ * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
+ * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
+ * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+ * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+ * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+ * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
+ * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ */
+
+
+#include "param.h"
+#include "systm.h"
+#include "kernel.h"
+#include "map.h"
+#include "user.h"
+#include "proc.h"
+//#include "malloc.h"
+#include "inode.h"
+#include "namei.h"
+//#include "vnode.h"
+#include "exec.h"
+#include "exec_elf.h"
+#include "fcntl.h"
+//#include "syscall.h"
+#include "signalvar.h"
+#include "mount.h"
+#include "stat.h"
+
+
+extern char sigcode[], esigcode[];
+
+/* round up and down to page boundaries. */
+#define	ELF_ROUND(a, b)		(((a) + (b) - 1) & ~((b) - 1))
+#define	ELF_TRUNC(a, b)		((a) & ~((b) - 1))
+
+/*
+ * elf_check(): Prepare an Elf binary's exec package
+ *
+ * First, set of the various offsets/lengths in the exec package.
+ *
+ * Then, mark the text image busy (so it can be demand paged) or error
+ * out if this is not possible.  Finally, set up vmcmds for the
+ * text, data, bss, and stack segments.
+ */
+int
+exec_elf_check(struct exec_params *epp)
+{
+	struct elf_phdr *ph;
+	int error, i, phsize;
+
+	const char elfident[] = {ELFMAG0, ELFMAG1, ELFMAG2, ELFMAG3,
+				 ELFCLASS32, ELFDATA2LSB, EV_CURRENT, ELFOSABI_SYSV, 0};
+
+	/*
+	 * Check that this is an ELF file that we can handle,
+	 * and do some sanity checks on the header
+	 */
+	if (epp->hdr_len < sizeof(struct elf_ehdr))
+		return ENOEXEC;
+	for (i = 0; i < sizeof elfident; i++)
+		if (epp->hdr.elf.e_ident[i] !=  elfident[i])
+			return ENOEXEC;
+	if (epp->hdr.elf.e_type != ET_EXEC)
+		return ENOEXEC;
+	if (epp->hdr.elf.e_machine != EM_MIPS || epp->hdr.elf.e_version != EV_CURRENT)
+		return ENOEXEC;
+	if (epp->hdr.elf.e_phentsize != sizeof(struct elf_phdr) || epp->hdr.elf.e_phoff == 0 || epp->hdr.elf.e_phnum == 0)
+		return ENOEXEC;
+	if (epp->hdr.elf.e_shnum == 0 || epp->hdr.elf.e_shentsize != sizeof(struct elf_shdr))
+		return ENOEXEC;
+
+	/*
+	 * Read program headers
+	 */
+	phsize = epp->hdr.elf.e_phnum * sizeof(struct elf_phdr);
+	ph = exec_alloc(phsize, NBPW, epp);
+	if (ph == NULL) {
+		printf("can't alloc ph[] sz=%d\n", phsize);
+		return ENOEXEC;
+	}
+	if ((error = rdwri(UIO_READ, epp->ip, (caddr_t)ph, phsize, epp->hdr.elf.e_phoff, IO_UNIT, 0)) != 0)
+		return ENOEXEC;
+
+	epp->text.len = epp->data.len = epp->bss.len = epp->stack.len = epp->heap.len = 0;
+	epp->text.vaddr = epp->data.vaddr = epp->bss.vaddr = epp->stack.vaddr = epp->heap.vaddr = NO_ADDR;
+
+	if (epp->hdr.elf.e_phnum == 1 && ph[0].p_type == PT_LOAD && ph[0].p_flags == (PF_R|PF_W|PF_X)) {
+		/*
+		 * In the simple a.out type link, in elf format, there is only
+		 * one loadable segment that is RWE containing everything
+		 * Here we fix the memory allocation, and we are done.
+		 */
+		epp->data.vaddr = (caddr_t)ph[0].p_vaddr;
+		epp->data.len = ph[0].p_memsz;
+		epp->heap.vaddr = (caddr_t)ph[0].p_vaddr + ph[0].p_memsz;
+		epp->heap.len = 0;
+		epp->stack.len = SSIZE + epp->argbc + epp->envbc + (epp->argc+epp->envc+4)*NBPW;
+		epp->stack.vaddr = (caddr_t)USER_DATA_END - epp->stack.len;
+
+		/*
+		 * We assume .bss is the different between the memory data
+		 * section size and the file size.
+		 */
+		epp->bss.vaddr = epp->data.vaddr + ph[0].p_filesz;
+		epp->bss.len = ph[0].p_memsz - ph[0].p_filesz;
+		epp->data.len = epp->bss.vaddr - epp->data.vaddr;
+	} else {
+		/*
+		 * At the current moment we don't handle anything else
+		 * The rest of the code is implemented as need arise.
+		 */
+		return ENOEXEC;
+	}
+
+	/*
+	 * Save arglist
+	 */
+	exec_save_args(epp);
+
+	/*
+	 * Establish memory
+	 */
+	if ((error = exec_estab(epp)) != 0)
+		return error;
+
+	/*
+	 * Now load the program sections into memory
+	 */
+	for (i = 0; i < epp->hdr.elf.e_phnum; i++) {
+		if (ph[i].p_type != PT_LOAD)
+			continue;
+		/*
+		 * Sanity check that the load is to our intended address space.
+		 */
+		if (!((epp->text.vaddr != NO_ADDR
+		       && ((caddr_t)ph[i].p_vaddr >= epp->text.vaddr
+			   && (caddr_t)ph[i].p_vaddr + ph[i].p_filesz <= epp->text.vaddr + epp->text.len))
+		      || (epp->data.vaddr != NO_ADDR
+			  && (caddr_t)ph[i].p_vaddr >= epp->data.vaddr
+			  && (caddr_t)ph[i].p_vaddr + ph[i].p_filesz <= epp->data.vaddr + epp->data.len))
+		    || ph[i].p_filesz >= ph[i].p_memsz || ph[i].p_filesz <= 0)
+			return ENOEXEC;
+		
+			error = rdwri(UIO_READ, epp->ip, (caddr_t)ph[i].p_vaddr, ph[i].p_filesz, ph[i].p_offset, IO_UNIT, 0);
+	}
+
+	exec_clear(epp);
+	exec_setupstack(epp->hdr.elf.e_entry, epp);
+	
+	return 0;
+}

sys/kernel/exec_script.c

@@ -0,0 +1,96 @@
+#include "param.h"
+#include "inode.h"
+#include "dir.h"
+#include "namei.h"
+#include "exec.h"
+#include "user.h"
+#include "systm.h"
+
+int
+exec_script_check(struct exec_params *epp)
+{
+	char *cp;
+	struct nameidata nd;
+	struct nameidata *ndp;
+	int error;
+	struct inode *ip = 0;
+
+	/*
+	 * We come here with the first line of the executable
+	 * script file.
+	 * Check is to see if it starts with the magic marker:  #!
+	 */
+	if (epp->hdr.sh[0] != '#' || epp->hdr.sh[1] != '!' || epp->sh.interpreted)
+		return ENOEXEC;
+	epp->sh.interpreted = 1;
+
+	/*
+	 * If setuid/gid scripts were to be disallowed this is where it would
+	 * have to be done.
+	 * u.u_uid = uid;
+	 * u.u_gid = u_groups[0];
+	 */
+
+	/*
+	 * The first line of the text file
+	 * should be one line on the format:
+	 * #! <interpreter-name> <interpreter-argument>\n
+	 */
+	cp = &epp->hdr.sh[2];
+	while (cp < &epp->hdr.sh[MIN(epp->hdr_len, SHSIZE)]) {
+		if (*cp == '\t')
+			*cp = ' ';
+		else if (*cp == '\n') {
+			*cp = '\0';
+			break;
+		}
+		cp++;
+	}
+	if (cp == &epp->hdr.sh[MIN(epp->hdr_len, SHSIZE)])
+		return ENOEXEC;
+
+	/*
+	 * Pick up script interpreter file name
+	 */
+	cp = &epp->hdr.sh[2];
+	while (*cp == ' ')
+		cp++;
+	if (!*cp)
+		return ENOEXEC;
+	bzero(&nd, sizeof nd);
+	ndp = &nd;
+	ndp->ni_dirp = cp;
+	while (*cp && *cp != ' ')
+		cp++;
+	if (*cp != '\0') {
+		*cp++ = 0;
+		while (*cp && *cp == ' ')
+			cp++;
+		if (*cp) {
+			if ((error = copystr(cp, epp->sh.interparg, sizeof epp->sh.interparg, NULL)))
+				goto done;
+		}
+	}
+
+	/*
+	 * the interpreter is the new file to exec
+	 */
+	ndp->ni_nameiop = LOOKUP | FOLLOW;
+	ip = namei (ndp);
+	if (ip == NULL)
+		return u.u_error;
+	if ((error = copystr(ndp->ni_dent.d_name, epp->sh.interpname, sizeof epp->sh.interpname, NULL)))
+		goto done;
+
+	/*
+	 * Everything set up, do the recursive exec()
+	 */
+	if (epp->ip)
+		iput(epp->ip);
+	epp->ip = ip;
+	error = exec_check(epp);
+done:
+	if (ip)
+		iput(ip);
+	return error;
+}

sys/kernel/exec_subr.c

@@ -0,0 +1,425 @@
+#include "param.h"
+#include "systm.h"
+#include "map.h"
+#include "inode.h"
+#include "user.h"
+#include "proc.h"
+#include "buf.h"
+#include "namei.h"
+#include "fs.h"
+#include "mount.h"
+#include "file.h"
+#include "resource.h"
+#include "exec.h"
+#include "dir.h"
+#include "uio.h"
+#include "debug.h"
+
+/*
+ * How memory is set up.
+ *
+ * var a:
+ * USER_DATA_END: !----------!
+ *  		  ! +P_ssize ! stack
+ * p_saddr ->	  ¡----------!
+ *
+ * 		  !----------!
+ *		  ! +P_dsize ! .data + .bss + heap
+ * P_daddr ->	  !----------!
+ *
+ * var b:
+ *
+ * USER_DATA_END: !--------!
+ * 		  ! +ssize ! stack
+ * saddr ->	  ¡--------!
+ *		  ! +hsize ! heap
+ * haddr ->	  !--------!
+ *		  ! +dsize ! .data + .bss
+ * daddr ->	  !--------!
+ *		  ! +tsize ! .text
+ * taddr ->	  !--------!
+ * paddr -> +psize
+ *
+ * var c:
+ *                !--------!
+ *		  ! +tsize ! .text (read only section)
+ * taddr ->	  !--------!
+ * 		  ! +ssize ! stack
+ * saddr ->	  ¡--------!
+ *		  ! +hsize ! heap
+ * haddr ->	  !--------!
+ *		  ! +dsize ! .data + .bss
+ * daddr ->	  !--------!
+ * paddr -> +psize
+ *
+ */
+
+/*
+ * Set up user memory.
+ *
+ * The following is a key to top of the stack and the variables used.
+ *
+ *	topp->    	[argv]		top word for /bin/ps
+ *			<0>
+ *			n
+ *			g
+ *			r
+ *			a
+ *			...
+ *			<0>
+ *			0
+ *			g
+ *			r
+ *	ucp ->		a
+ *			[0]
+ *			[envn]
+ *			...
+ *	envp ->		[env0]
+ *			[0]
+ *			[argn]		ptr to argn
+ *			...
+ *	argp ->		[arg0]		ptr to arg0
+ *			[]
+ *			[]
+ *			[]
+ *      sp ->		[]
+ *
+ */
+void exec_setupstack(unsigned entryaddr, struct exec_params *epp)
+{
+	int nc,i;
+	u_int len;
+	char *ucp;
+	char **argp, **envp, ***topp;
+
+	DEBUG("exec_setupstack:\n");
+
+	/*
+	 * Set up top of stack structure as above
+	 * This depends on that kernel and user spaces
+	 * map to the same addresses.
+	 */
+ 	topp = (char ***)(epp->stack.vaddr + epp->stack.len - NBPW);	/* Last word of RAM */
+	ucp = (char *)((unsigned)topp - roundup(epp->envbc + epp->argbc,NBPW)); /* arg string space */
+	envp = (char **)(ucp - (epp->envc+1)*NBPW);	/* Make place for envp[...], +1 for the 0 */
+	argp = envp - (epp->argc+1)*NBPW;	/* Make place for argv[...] */
+	u.u_frame [FRAME_SP] = (int)(argp-16);
+        u.u_frame [FRAME_R4] = epp->argc;	/* $a0 := argc */
+        u.u_frame [FRAME_R5] = (int)argp;	/* $a1 := argp */
+        u.u_frame [FRAME_R6] = (int)envp;	/* $a2 := env */
+	*topp = argp;		/* for /bin/ps */
+
+	/*
+	 * copy the arguments into the structure
+	 */
+	nc = 0;
+	for (i = 0; i < epp->argc; i++) {
+		argp[i] = (caddr_t)ucp;
+		if (copystr((caddr_t)epp->argp[i], (caddr_t)ucp, (caddr_t)topp-ucp, &len) == 0) {
+			nc += len;
+			ucp += len;
+		}
+	}
+	argp[epp->argc] = NULL;
+
+	for (i = 0; i < epp->envc; i++) {
+		envp[i] = ucp;
+		if (copystr((caddr_t)epp->envp[i], (caddr_t)ucp, (caddr_t)topp-ucp, &len) == 0) {
+			nc += len;
+			ucp += len;
+		}
+	}
+	envp[epp->envc] = NULL;
+
+	ucp = (caddr_t)roundup((unsigned)ucp, NBPW);
+	if ((caddr_t)ucp != (caddr_t)topp) {
+		DEBUG("Copying of arg list went wrong, ucp=%#x, topp=%#x\n", ucp, topp);
+		panic("exec check");
+	}
+
+	u.u_frame [FRAME_PC] = entryaddr;
+	DEBUG("Setting up new PC=%#x\n", entryaddr);
+
+	/*
+	 * Remember file name for accounting.
+	 */
+	(void) copystr(argp[0], u.u_comm, MAXCOMLEN, 0);
+}
+
+/*
+ * A simple memory allocator used within exec code using file buffers as storage.
+ * Will return NULL if allocation is not possible.
+ * Total max memory allocatable is MAXALLOCBUF*MAXBSIZE
+ * Max size of allocatable chunk is MAXBSIZE
+ *
+ * All memory allocated with this function will be freed by a call
+ * to exec_alloc_freeall()
+ */
+void *exec_alloc(int size, int ru, struct exec_params *epp)
+{
+	char *cp;
+	int i;
+
+	for (i = 0; i < MAXALLOCBUF; i++)
+		if (MAXBSIZE - (ru<=1?epp->alloc[i].fill:roundup(epp->alloc[i].fill,ru)) >= size)
+			break;
+	if (i == MAXALLOCBUF)
+		return NULL;
+	if (epp->alloc[i].bp == NULL) {
+		if ((epp->alloc[i].bp = geteblk()) == NULL) {
+			DEBUG("exec_alloc: no buf\n");
+			return NULL;
+		}
+	}
+	if (ru > 1)
+		epp->alloc[i].fill = roundup(epp->alloc[i].fill, ru);
+	cp = epp->alloc[i].bp->b_addr + epp->alloc[i].fill;
+	epp->alloc[i].fill += size;
+	bzero (cp, size);
+	return cp;
+}
+
+/*
+ * this will deallocate all memory allocated by exec_alloc
+ */
+void exec_alloc_freeall(struct exec_params *epp)
+{
+	int i;
+	for (i = 0; i < MAXALLOCBUF; i++) {
+		if (epp->alloc[i].bp) {
+			brelse(epp->alloc[i].bp);
+			epp->alloc[i].bp = NULL;
+			epp->alloc[i].fill = 0;
+		}
+	}
+}
+
+/*
+ * Establish memory for the image based on the
+ * values picked up from the executable file and stored
+ * in the exec params block.
+ */
+int exec_estab(struct exec_params *epp)
+{
+	DEBUG("text =  %#x..%#x, len=%d\n", epp->text.vaddr, epp->text.vaddr+epp->text.len, epp->text.len);
+	DEBUG("data =  %#x..%#x, len=%d\n", epp->data.vaddr, epp->data.vaddr+epp->data.len, epp->data.len);
+	DEBUG("bss =   %#x..%#x, len=%d\n", epp->bss.vaddr, epp->bss.vaddr+epp->bss.len, epp->bss.len);
+	DEBUG("heap =  %#x..%#x, len=%d\n", epp->heap.vaddr, epp->heap.vaddr+epp->heap.len, epp->heap.len);
+	DEBUG("stack = %#x..%#x, len=%d\n", epp->stack.vaddr, epp->stack.vaddr+epp->stack.len, epp->stack.len);
+
+	/*
+	 * Right now we can only handle the simple original a.out
+	 * case, so we double check for that case here.
+	 */
+	if (epp->text.vaddr != NO_ADDR || epp->data.vaddr == NO_ADDR
+	    || epp->data.vaddr != (caddr_t)USER_DATA_START || epp->stack.vaddr != (caddr_t)USER_DATA_END - epp->stack.len)
+		return ENOMEM;
+
+	/*
+	 * Try out for overflow
+	 */
+	if (epp->text.len + epp->data.len + epp->heap.len + epp->stack.len > MAXMEM)
+		return ENOMEM;
+
+	if (roundup((unsigned)epp->data.vaddr + epp->data.len, NBPW) != roundup((unsigned)epp->bss.vaddr, NBPW)) {
+		DEBUG(".bss do not follow .data\n");
+		return ENOMEM;
+	}
+
+	/*
+	 * Allocate core at this point, committed to the new image.
+	 */
+	u.u_prof.pr_scale = 0;
+	if (u.u_procp->p_flag & SVFORK)
+		endvfork();
+	u.u_procp->p_dsize = epp->data.len + epp->bss.len;
+	u.u_procp->p_daddr = (size_t)epp->data.vaddr;
+	u.u_procp->p_ssize = epp->stack.len;
+	u.u_procp->p_saddr = (size_t)epp->stack.vaddr;
+
+	DEBUG("core allocation: \n");
+	DEBUG("daddr =%#x..%#x\n", u.u_procp->p_daddr, u.u_procp->p_daddr + u.u_procp->p_dsize);
+	DEBUG("saddr =%#x..%#x\n", u.u_procp->p_saddr, u.u_procp->p_saddr + u.u_procp->p_ssize);
+	return 0;
+}
+
+
+/*
+ * Save argv[] and envp[]
+ */
+void exec_save_args(struct exec_params *epp)
+{
+	unsigned len;
+	caddr_t cp;
+	int argc, i, l;
+	char **argp, *ap;
+
+	epp->argc = epp->envc = 0;
+	epp->argbc = epp->envbc = 0;
+
+	argc = 0;
+	if ((argp = epp->userargp) != NULL)
+		while (argp[argc])
+			argc++;
+#ifdef EXEC_SCRIPT
+	if (epp->sh.interpreted) {
+		argc++;
+		if (epp->sh.interparg[0])
+			argc++;
+	}
+#endif
+	if (argc != 0) {
+		if ((epp->argp = (char **)exec_alloc(argc * sizeof(char *), NBPW, epp)) == NULL)
+			return;
+		for (;;) {
+			/*
+			 * For a interpreter script, the arg list is changed to
+			 * #! <interpreter name> <interpreter arg>
+			 * arg[0] - the interpreter executable name (path)
+			 * arg[1] - interpreter arg (optional)
+			 * arg[2 or 1] - script name
+			 * arg[3 or 2...] - script arg[1...]
+			 */
+			if (argp)
+				ap = *argp++;
+			else
+				ap = NULL;
+#ifdef EXEC_SCRIPT
+			if (epp->sh.interpreted) {
+				if (epp->argc == 0)
+					ap = epp->sh.interpname;
+				else if (epp->argc == 1 && epp->sh.interparg[0]) {
+					ap = epp->sh.interparg;
+					--argp;
+				} else if ((epp->argc == 1 || (epp->argc == 2 && epp->sh.interparg[0]))) {
+					ap = epp->userfname;
+					--argp;
+				}
+			}
+#endif
+			if (ap == 0)
+				break;
+			l = strlen(ap)+1;
+			if ((cp = exec_alloc(l, 1, epp)) == NULL)
+				return;
+			if (copystr(ap, cp, l, &len) != 0)
+				return;
+			epp->argp[epp->argc++] = cp;
+			epp->argbc += len;;
+		}
+	}
+	argc = 0;
+	if ((argp = epp->userenvp) != NULL)
+		while (argp[argc])
+			argc++;
+	epp->envc = 0;
+	epp->envbc = 0;
+	if (argc != 0) {
+		if ((epp->envp = (char **)exec_alloc(argc * sizeof(char *), NBPW, epp)) == NULL)
+			return;
+		for (;;) {
+			if (argp)
+				ap = *argp++;
+			else
+				ap = NULL;
+			if (ap == 0)
+				break;
+			l = strlen(ap)+1;
+			if ((cp = exec_alloc(l, 1, epp)) == NULL)
+				return;
+			if (copystr(ap, cp, l, &len) != 0)
+				return;
+			epp->envp[epp->envc++] = cp;
+			epp->envbc += len;
+		}
+	}
+
+	for (i = 0; i < epp->argc; i++)
+		DEBUG("arg[%d] = \"%s\"\n", i, epp->argp[i]);
+
+	for (i = 0; i < epp->envc; i++)
+		DEBUG("env[%d] = \"%s\"\n", i, epp->envp[i]);
+
+
+	/*
+	 * Number of string pool chars needed for this arg list
+	 */
+//	return (bc + NBPW-1) & ~(NBPW-1);
+	return;
+}
+
+void exec_clear(struct exec_params *epp)
+{
+	char *cp;
+	int cc;
+
+	/* clear BSS  */
+	if (epp->bss.len > 0)
+		bzero((void *)epp->bss.vaddr, epp->bss.len);
+	if (epp->heap.len > 0)
+		bzero((void *)epp->heap.vaddr, epp->heap.len);
+	/* Clear stack */
+	bzero((void *)epp->stack.vaddr, epp->stack.len);
+
+	/*
+	 * set SUID/SGID protections, if no tracing
+	 */
+	if ((u.u_procp->p_flag & P_TRACED) == 0) {
+		u.u_uid = epp->uid;
+		u.u_procp->p_uid = epp->uid;
+		u.u_groups[0] = epp->gid;
+	} else
+		psignal (u.u_procp, SIGTRAP);
+	u.u_svuid = u.u_uid;
+	u.u_svgid = u.u_groups[0];
+
+	u.u_tsize = epp->text.len;
+	u.u_dsize = epp->data.len + epp->bss.len;
+	u.u_ssize = epp->stack.len;
+
+	/*
+	 * Clear registers.
+	 */
+        u.u_frame [FRAME_R1] = 0;			/* $at */
+        u.u_frame [FRAME_R2] = 0;			/* $v0 */
+        u.u_frame [FRAME_R3] = 0;			/* $v1 */
+        u.u_frame [FRAME_R7] = 0;			/* $a3 */
+        u.u_frame [FRAME_R8] = 0;			/* $t0 */
+        u.u_frame [FRAME_R9] = 0;			/* $t1 */
+        u.u_frame [FRAME_R10] = 0;			/* $t2 */
+        u.u_frame [FRAME_R11] = 0;			/* $t3 */
+        u.u_frame [FRAME_R12] = 0;			/* $t4 */
+        u.u_frame [FRAME_R13] = 0;			/* $t5 */
+        u.u_frame [FRAME_R14] = 0;			/* $t6 */
+        u.u_frame [FRAME_R15] = 0;			/* $t7 */
+        u.u_frame [FRAME_R16] = 0;			/* $s0 */
+        u.u_frame [FRAME_R17] = 0;			/* $s1 */
+        u.u_frame [FRAME_R18] = 0;			/* $s2 */
+        u.u_frame [FRAME_R19] = 0;			/* $s3 */
+        u.u_frame [FRAME_R20] = 0;			/* $s4 */
+        u.u_frame [FRAME_R21] = 0;			/* $s5 */
+        u.u_frame [FRAME_R22] = 0;			/* $s6 */
+        u.u_frame [FRAME_R23] = 0;			/* $s7 */
+        u.u_frame [FRAME_R24] = 0;			/* $t8 */
+        u.u_frame [FRAME_R25] = 0;			/* $t9 */
+        u.u_frame [FRAME_FP] = 0;
+        u.u_frame [FRAME_RA] = 0;
+        u.u_frame [FRAME_LO] = 0;
+        u.u_frame [FRAME_HI] = 0;
+        u.u_frame [FRAME_GP] = 0;
+
+	execsigs (u.u_procp);
+
+	/*
+	 * Clear (close) files
+	 */
+	for (cp = u.u_pofile, cc = 0; cc <= u.u_lastfile; cc++, cp++) {
+		if (*cp & UF_EXCLOSE) {
+			(void) closef (u.u_ofile [cc]);
+			u.u_ofile [cc] = NULL;
+			*cp = 0;
+		}
+	}
+	while (u.u_lastfile >= 0 && u.u_ofile [u.u_lastfile] == NULL)
+		u.u_lastfile--;
+}

sys/kernel/kern_exec.c

@@ -6,15 +6,17 @@
 #include "param.h"
 #include "systm.h"
 #include "map.h"
+#include "inode.h"
 #include "user.h"
 #include "proc.h"
 #include "buf.h"
-#include "inode.h"
 #include "namei.h"
 #include "fs.h"
 #include "mount.h"
 #include "file.h"
 #include "signalvar.h"
+#include "exec.h"
+#include "debug.h"
 
 /*
  * exec system call, with and without environments.
@@ -26,135 +28,70 @@ struct execa {
 };
 
 /*
- * Reset signals for an exec of the specified process.  In 4.4 this function
- * was in kern_sig.c but since in 2.11 kern_sig and kern_exec will likely be
- * in different overlays placing this here potentially saves a kernel overlay
- * switch.
+ * This is the internal form of the exec() function.
+ *
+ * It is called with the inode of the executable
+ * and the exec_params structure, which is used to
+ * keep information during the exec.
+ *
+ * It returns the error code, and with the ip still locked.
  */
-static void
-execsigs(p)
-	register struct proc *p;
+int exec_check(struct exec_params *epp)
 {
-	register int nc;
-	unsigned long mask;
+	int error, i, r;
+
+	DEBUG("Entering exec_check\n");
+	if (access (epp->ip, IEXEC))
+		return ENOEXEC;
+	if ((u.u_procp->p_flag & P_TRACED) && access (epp->ip, IREAD))
+		return ENOEXEC;
+	if ((epp->ip->i_mode & IFMT) != IFREG ||
+	    (epp->ip->i_mode & (IEXEC | (IEXEC>>3) | (IEXEC>>6))) == 0)
+		return EACCES;
 
 	/*
-	 * Reset caught signals.  Held signals remain held
-	 * through p_sigmask (unless they were caught,
-	 * and are now ignored by default).
+	 * Read in first few bytes of file for segment sizes, magic number:
+	 *	407 = plain executable
+	 * Also an ASCII line beginning with #! is
+	 * the file name of a ``interpreter'' and arguments may be prepended
+	 * to the argument list if given here.
+	 *
+	 * INTERPRETER NAMES ARE LIMITED IN LENGTH.
+	 *
+	 * ONLY ONE ARGUMENT MAY BE PASSED TO THE INTERPRETER FROM
+	 * THE ASCII LINE.
 	 */
-	while (p->p_sigcatch) {
-		nc = ffs(p->p_sigcatch);
-		mask = sigmask(nc);
-		p->p_sigcatch &= ~mask;
-		if (sigprop[nc] & SA_IGNORE) {
-			if (nc != SIGCONT)
-				p->p_sigignore |= mask;
-			p->p_sig &= ~mask;
-		}
-		u.u_signal[nc] = SIG_DFL;
+
+	/*
+	 * Read the first 'SHSIZE' bytes from the file to execute
+	 */
+	DEBUG("Read header %d bytes from %d\n", sizeof(epp->hdr), 0);
+#ifdef EXEC_SCRIPT
+	epp->hdr.sh[0] = '\0';		/* for zero length files */
+#endif
+	error = rdwri (UIO_READ, epp->ip,
+		       (caddr_t) &epp->hdr, sizeof(epp->hdr),
+		       (off_t)0, IO_UNIT, &r);
+	if (error)
+		return error;
+	epp->hdr_len = sizeof(epp->hdr) - r;
+
+	/*
+	 * Given the first part of the image
+	 * loop through the exec file handlers to find
+	 * someone who can handle this file format.
+	 */
+	error = ENOEXEC;
+	DEBUG("Trying %d exec formats\n", nexecs);
+	for (i = 0; i < nexecs && error != 0; i++) {
+		DEBUG("Trying exec format %d : %s\n", i, execsw[i].es_name);
+		if (execsw[i].es_check == NULL)
+			continue;
+		error = (*execsw[i].es_check)(epp);
+		if (error == 0)
+			break;
 	}
-	/*
-	 * Reset stack state to the user stack (disable the alternate stack).
-	 */
-	u.u_sigstk.ss_flags = SA_DISABLE;
-	u.u_sigstk.ss_size = 0;
-	u.u_sigstk.ss_base = 0;
-	u.u_psflags = 0;
-}
-
-/*
- * Read in and set up memory for executed file.
- * u.u_error set on error
- */
-static void
-getxfile (ip, ep, nargc, uid, gid)
-	struct inode *ip;
-	register struct exec *ep;
-	int nargc, uid, gid;
-{
-	u_int ds, ts, ss;
-
-	if (ep->a_magic == OMAGIC) {
-		ep->a_data += ep->a_text;
-		ep->a_text = 0;
-	}
-
-	if (ep->a_text != 0 && (ip->i_flag & ITEXT) == 0 &&
-	    ip->i_count != 1) {
-		register struct file *fp;
-
-		for (fp = file; fp < file+NFILE; fp++) {
-			if (fp->f_type == DTYPE_INODE &&
-			    fp->f_count > 0 &&
-			    (struct inode*)fp->f_data == ip &&
-			    (fp->f_flag & FWRITE)) {
-				u.u_error = ETXTBSY;
-				return;
-			}
-		}
-	}
-
-	/*
-	 * find text and data sizes try; them out for possible
-	 * overflow of max sizes
-	 */
-	ts = ep->a_text;
-	ds = ep->a_data + ep->a_bss;
-	ss = SSIZE + nargc;
-
-//printf ("getxfile: size t/d/s = %u/%u/%u\n", ts, ds, ss);
-	if (ts + ds + ss > MAXMEM) {
-		u.u_error = ENOMEM;
-		return;
-	}
-
-	/*
-	 * Allocate core at this point, committed to the new image.
-	 */
-	u.u_prof.pr_scale = 0;
-	if (u.u_procp->p_flag & SVFORK)
-		endvfork();
-	u.u_procp->p_dsize = ds;
-	u.u_procp->p_daddr = USER_DATA_START;
-	u.u_procp->p_ssize = ss;
-	u.u_procp->p_saddr = USER_DATA_END - ss;
-
-	/* read in text and data */
-//printf ("getxfile: read %u bytes at %08x\n", ep->a_data, USER_DATA_START);
-	rdwri (UIO_READ, ip, (caddr_t) USER_DATA_START, ep->a_data,
-                sizeof(struct exec) + ep->a_text, IO_UNIT, (int*) 0);
-
-	/* clear BSS and stack */
-//printf ("getxfile: clear %u bytes at %08x\n", USER_DATA_END - USER_DATA_START - ep->a_data, USER_DATA_START + ep->a_data);
-	bzero ((void*) (USER_DATA_START + ep->a_data),
-            USER_DATA_END - USER_DATA_START - ep->a_data);
-
-	/*
-	 * set SUID/SGID protections, if no tracing
-	 */
-	if ((u.u_procp->p_flag & P_TRACED) == 0) {
-		u.u_uid = uid;
-		u.u_procp->p_uid = uid;
-		u.u_groups[0] = gid;
-	} else
-		psignal (u.u_procp, SIGTRAP);
-	u.u_svuid = u.u_uid;
-	u.u_svgid = u.u_groups[0];
-
-	u.u_tsize = ts;
-	u.u_dsize = ds;
-	u.u_ssize = ss;
-}
-
-void printmem (unsigned addr, int nbytes)
-{
-        for (; nbytes>0; addr+=16, nbytes-=16) {
-                unsigned char *p = (unsigned char*) addr;
-                printf ("%08x: %02x %02x %02x %02x %02x %02x %02x %02x %02x %02x %02x %02x %02x %02x %02x %02x\n",
-                    addr, p[0], p[1], p[2], p[3], p[4], p[5], p[6], p[7],
-                    p[8], p[9], p[10], p[11], p[12], p[13], p[14], p[15]);
-        }
+	return error;
 }
 
 void
@@ -169,371 +106,51 @@ execv()
 void
 execve()
 {
-	register char *cp;
-	register struct buf *bp;
 	struct execa *uap = (struct execa *)u.u_arg;
-	int nc, na, ne, ucp, ap, indir, uid, gid, resid, error;
-	register int cc;
-	unsigned len;
-	char *sharg;
+	int error;
 	struct inode *ip;
-	size_t bno;
-	char cfname [MAXCOMLEN + 1];
-#define	SHSIZE	32
-	char cfarg [SHSIZE];
-	union {
-		char	ex_shell [SHSIZE];	/* #! and name of interpreter */
-		struct	exec ex_exec;
-	} exdata;
 	struct nameidata nd;
 	register struct	nameidata *ndp = &nd;
+	struct exec_params eparam;
 
-//printf ("execve ('%s', ['%s', '%s', ...])\n", uap->fname, uap->argp[0], uap->argp[1]);
+	DEBUG("execve ('%s', ['%s', '%s', ...])\n", uap->fname, uap->argp[0], uap->argp[1]);
 	NDINIT (ndp, LOOKUP, FOLLOW, uap->fname);
 	ip = namei (ndp);
 	if (ip == NULL) {
-//printf ("execve: file not found\n");
+		DEBUG("execve: file '%s' not found\n", uap->fname);
 		return;
         }
-	bno = 0;
-	bp = 0;
-	indir = 0;
-	uid = u.u_uid;
-	gid = u.u_groups[0];
+	/*
+	 * The exec_param structure is used to
+	 * keep information about the executable during exec's processing
+	 */
+	bzero(&eparam, sizeof eparam);
+	eparam.userfname = uap->fname;
+	eparam.userargp = uap->argp;
+	eparam.userenvp = uap->envp;
+	eparam.uid = u.u_uid;
+	eparam.gid = u.u_groups[0];
+
 	if (ip->i_fs->fs_flags & MNT_NOEXEC) {
-//printf ("execve: NOEXEC, flags=%o\n", ip->i_fs->fs_flags);
 		u.u_error = EACCES;
+		DEBUG("EACCES\n");
 		goto done;
 	}
 	if ((ip->i_fs->fs_flags & MNT_NOSUID) == 0) {
 		if (ip->i_mode & ISUID)
-			uid = ip->i_uid;
+			eparam.uid = ip->i_uid;
 		if (ip->i_mode & ISGID)
-			gid = ip->i_gid;
-	}
-again:
-	if (access (ip, IEXEC)) {
-//printf ("execve: no IEXEC\n");
-		goto done;
-        }
-	if ((u.u_procp->p_flag & P_TRACED) && access (ip, IREAD)) {
-//printf ("execve: traced, but no IREAD\n");
-		goto done;
-        }
-	if ((ip->i_mode & IFMT) != IFREG ||
-	    (ip->i_mode & (IEXEC | (IEXEC>>3) | (IEXEC>>6))) == 0) {
-//printf ("execve: no IEXEC, mode=%o\n", ip->i_mode);
-		u.u_error = EACCES;
-		goto done;
+			eparam.gid = ip->i_gid;
 	}
 
-	/*
-	 * Read in first few bytes of file for segment sizes, magic number:
-	 *	407 = plain executable
-	 * Also an ASCII line beginning with #! is
-	 * the file name of a ``shell'' and arguments may be prepended
-	 * to the argument list if given here.
-	 *
-	 * SHELL NAMES ARE LIMITED IN LENGTH.
-	 *
-	 * ONLY ONE ARGUMENT MAY BE PASSED TO THE SHELL FROM
-	 * THE ASCII LINE.
-	 */
-	exdata.ex_shell[0] = '\0';	/* for zero length files */
-	u.u_error = rdwri (UIO_READ, ip, (caddr_t) &exdata, sizeof(exdata),
-				(off_t) 0, IO_UNIT, &resid);
-	if (u.u_error) {
-//printf ("execve: rdwri error %d\n", u.u_error);
-		goto done;
-        }
-	if (resid > sizeof(exdata) - sizeof(exdata.ex_exec) &&
-	    exdata.ex_shell[0] != '#') {
-//printf ("execve: short read, resid = %d, shell=%.32s\n", resid, exdata.ex_shell);
-		u.u_error = ENOEXEC;
-		goto done;
-	}
-//printf ("execve: text=%u, data=%u, bss=%u\n", exdata.ex_exec.a_text, exdata.ex_exec.a_data, exdata.ex_exec.a_bss);
-
-	switch ((int) exdata.ex_exec.a_magic) {
-	case OMAGIC:
-	case NMAGIC:
-		break;
-	default:
-		if (exdata.ex_shell[0] != '#' ||
-		    exdata.ex_shell[1] != '!' ||
-		    indir) {
-//printf ("execve: bad shell=%.32s\n", exdata.ex_shell);
-			u.u_error = ENOEXEC;
-			goto done;
-		}
-		/*
-		 * If setuid/gid scripts were to be disallowed this is where it would
-		 * have to be done.
-		 * u.u_uid = uid;
-		 * u.u_gid = u_groups[0];
-		 */
-		cp = &exdata.ex_shell[2];		/* skip "#!" */
-		while (cp < &exdata.ex_shell[SHSIZE]) {
-			if (*cp == '\t')
-				*cp = ' ';
-			else if (*cp == '\n') {
-				*cp = '\0';
-				break;
-			}
-			cp++;
-		}
-		if (*cp != '\0') {
-			u.u_error = ENOEXEC;
-			goto done;
-		}
-		cp = &exdata.ex_shell[2];
-		while (*cp == ' ')
-			cp++;
-		ndp->ni_dirp = cp;
-		while (*cp && *cp != ' ')
-			cp++;
-		cfarg[0] = '\0';
-		if (*cp) {
-			*cp++ = '\0';
-			while (*cp == ' ')
-				cp++;
-			if (*cp)
-				bcopy ((caddr_t) cp, (caddr_t) cfarg, SHSIZE);
-		}
-		indir = 1;
-		iput (ip);
-		ndp->ni_nameiop = LOOKUP | FOLLOW;
-		ip = namei (ndp);
-		if (ip == NULL)
-			return;
-		bcopy ((caddr_t) ndp->ni_dent.d_name, (caddr_t) cfname, MAXCOMLEN);
-		cfname [MAXCOMLEN] = '\0';
-		goto again;
-	}
-
-	/*
-	 * Collect arguments on "file" in swap space.
-	 */
-	na = 0;
-	ne = 0;
-	nc = 0;
-	cc = 0;
-	cp = 0;
-	bno = malloc (swapmap, btod (NCARGS + MAXBSIZE));
-	if (bno == 0) {
-		u.u_error = ENOMEM;
-		goto done;
-	}
-	/*
-	 * Copy arguments into file in argdev area.
-	 */
-	if (uap->argp) for (;;) {
-		ap = NULL;
-		sharg = NULL;
-		if (indir && na == 0) {
-			sharg = cfname;
-			ap = (int) sharg;
-			uap->argp++;		/* ignore argv[0] */
-		} else if (indir && (na == 1 && cfarg[0])) {
-			sharg = cfarg;
-			ap = (int) sharg;
-		} else if (indir && (na == 1 || (na == 2 && cfarg[0])))
-			ap = (int) uap->fname;
-		else if (uap->argp) {
-			ap = *(int*) uap->argp;
-			uap->argp++;
-		}
-		if (ap == NULL && uap->envp) {
-			uap->argp = NULL;
-			ap = *(int*) uap->envp;
-			if (ap != NULL)
-				uap->envp++, ne++;
-		}
-		if (ap == NULL)
-			break;
-		na++;
-		if (ap == -1) {
-			u.u_error = EFAULT;
-			break;
-		}
-		do {
-			if (cc <= 0) {
-				/*
-				 * We depend on NCARGS being a multiple of
-				 * DEV_BSIZE.  This way we need only check
-				 * overflow before each buffer allocation.
-				 */
-				if (nc >= NCARGS-1) {
-//printf ("execve: too many args = %d\n", nc);
-					error = E2BIG;
-					break;
-				}
-				if (bp) {
-					bdwrite(bp);
-				}
-				cc = DEV_BSIZE;
-				bp = getblk (swapdev, dbtofsb(bno) + lblkno(nc));
-				cp = bp->b_addr;
-			}
-			if (sharg) {
-				error = copystr (sharg, cp, (unsigned) cc, &len);
-//printf ("execve arg%d=%s: %u bytes from %08x to %08x\n", na-1, sharg, len, sharg, cp);
-				sharg += len;
-			} else {
-				error = copystr ((caddr_t) ap, cp, (unsigned) cc, &len);
-//printf ("execve arg%d=%s: %u bytes from %08x to %08x\n", na-1, ap, len, ap, cp);
-				ap += len;
-			}
-			cp += len;
-			nc += len;
-			cc -= len;
-		} while (error == ENOENT);
-		if (error) {
-//printf ("execve: copy arg error = %d\n", error);
-			u.u_error = error;
-			if (bp) {
-				bp->b_flags |= B_AGE;
-				bp->b_flags &= ~B_DELWRI;
-				brelse(bp);
-			}
-			bp = 0;
-			goto badarg;
-		}
-	}
-//printf ("execve: argc=%d, envc=%d, total %d bytes\n", na, ne, nc);
-	if (bp) {
-		bdwrite (bp);
-	}
-	bp = 0;
-	nc = (nc + NBPW-1) & ~(NBPW-1);
-	getxfile (ip, &exdata.ex_exec, nc + (na+4)*NBPW, uid, gid);
-	if (u.u_error) {
-//printf ("execve: getxfile error = %d\n", u.u_error);
-badarg:
-		for (cc = 0; cc < nc; cc += DEV_BSIZE) {
-			daddr_t blkno;
-
-			blkno = dbtofsb(bno) + lblkno(cc);
-			if (incore (swapdev, blkno)) {
-				bp = bread (swapdev, blkno);
-				bp->b_flags |= B_AGE;		/* throw away */
-				bp->b_flags &= ~B_DELWRI;	/* cancel io */
-				brelse(bp);
-				bp = 0;
-			}
-		}
-		goto done;
-	}
-	iput(ip);
-	ip = NULL;
-
-	/*
-	 * Copy back arglist.
-	 */
-	ucp = USER_DATA_END - nc - NBPW;
-	ap = ucp - na*NBPW - 2*NBPW;
-	u.u_frame [FRAME_SP] = ap - 16;
-        u.u_frame [FRAME_R4] = na - ne;			/* $a0 := argc */
-        u.u_frame [FRAME_R5] = ap;			/* $a1 := argv */
-        u.u_frame [FRAME_R6] = ap + (na-ne+1)*NBPW;	/* $a2 := env */
-	*(int*) (USER_DATA_END - NBPW) = ap;            /* for /bin/ps */
-	nc = 0;
-	cc = 0;
-	for (;;) {
-		if (na == ne) {
-			*(int*) ap = 0;
-			ap += NBPW;
-		}
-		if (--na < 0)
-			break;
-		*(int*) ap = ucp;
-		do {
-			if (cc <= 0) {
-				if (bp) {
-					brelse(bp);
-				}
-				cc = DEV_BSIZE;
-				bp = bread (swapdev, dbtofsb(bno) + lblkno(nc));
-				bp->b_flags |= B_AGE;		/* throw away */
-				bp->b_flags &= ~B_DELWRI;	/* cancel io */
-				cp = bp->b_addr;
-			}
-			error = copystr (cp, (caddr_t) ucp, (unsigned) cc,
-				&len);
-//printf ("execve copy '%s' %u bytes from %08x to %08x\n", cp, len, cp, ucp);
-			ucp += len;
-			cp += len;
-			nc += len;
-			cc -= len;
-		} while (error == ENOENT);
-		if (error == EFAULT)
-			panic ("exec: EFAULT");
-		ap += NBPW;
-	}
-	*(int*) ap = 0;
-	if (bp) {
-		bp->b_flags |= B_AGE;
-		brelse (bp);
-		bp = NULL;
-	}
-	execsigs (u.u_procp);
-	for (cp = u.u_pofile, cc = 0; cc <= u.u_lastfile; cc++, cp++) {
-		if (*cp & UF_EXCLOSE) {
-			(void) closef (u.u_ofile [cc]);
-			u.u_ofile [cc] = NULL;
-			*cp = 0;
-		}
-	}
-	while (u.u_lastfile >= 0 && u.u_ofile [u.u_lastfile] == NULL)
-		u.u_lastfile--;
-
-	/*
-	 * Clear registers.
-	 */
-        u.u_frame [FRAME_R1] = 0;			/* $at */
-        u.u_frame [FRAME_R2] = 0;			/* $v0 */
-        u.u_frame [FRAME_R3] = 0;			/* $v1 */
-        u.u_frame [FRAME_R7] = 0;			/* $a3 */
-        u.u_frame [FRAME_R8] = 0;			/* $t0 */
-        u.u_frame [FRAME_R9] = 0;			/* $t1 */
-        u.u_frame [FRAME_R10] = 0;			/* $t2 */
-        u.u_frame [FRAME_R11] = 0;			/* $t3 */
-        u.u_frame [FRAME_R12] = 0;			/* $t4 */
-        u.u_frame [FRAME_R13] = 0;			/* $t5 */
-        u.u_frame [FRAME_R14] = 0;			/* $t6 */
-        u.u_frame [FRAME_R15] = 0;			/* $t7 */
-        u.u_frame [FRAME_R16] = 0;			/* $s0 */
-        u.u_frame [FRAME_R17] = 0;			/* $s1 */
-        u.u_frame [FRAME_R18] = 0;			/* $s2 */
-        u.u_frame [FRAME_R19] = 0;			/* $s3 */
-        u.u_frame [FRAME_R20] = 0;			/* $s4 */
-        u.u_frame [FRAME_R21] = 0;			/* $s5 */
-        u.u_frame [FRAME_R22] = 0;			/* $s6 */
-        u.u_frame [FRAME_R23] = 0;			/* $s7 */
-        u.u_frame [FRAME_R24] = 0;			/* $t8 */
-        u.u_frame [FRAME_R25] = 0;			/* $t9 */
-        u.u_frame [FRAME_FP] = 0;
-        u.u_frame [FRAME_RA] = 0;
-        u.u_frame [FRAME_LO] = 0;
-        u.u_frame [FRAME_HI] = 0;
-        u.u_frame [FRAME_GP] = 0;
-	u.u_frame [FRAME_PC] = exdata.ex_exec.a_entry;
-
-	/*
-	 * Remember file name for accounting.
-	 */
-	bcopy ((caddr_t) (indir ? cfname : ndp->ni_dent.d_name),
-                (caddr_t) u.u_comm, MAXCOMLEN);
+	eparam.ip = ip;
+	DEBUG("calling exec_check()\n");
+	if ((error = exec_check(&eparam)))
+		u.u_error = error;
+	DEBUG("back from exec_check()\n");
 done:
-//printf ("execve done: PC=%08x, SP=%08x, R4=%08x, R5=%08x, R6=%08x\n",
-//    u.u_frame [FRAME_PC], u.u_frame [FRAME_SP],
-//    u.u_frame [FRAME_R4], u.u_frame [FRAME_R5], u.u_frame [FRAME_R6]);
-	if (bp) {
-		bp->b_flags |= B_AGE;
-		brelse (bp);
-	}
-	if (bno)
-		mfree (swapmap, btod (NCARGS + MAXBSIZE), bno);
+	exec_alloc_freeall(&eparam);
 	if (ip)
 		iput(ip);
 }
+

sys/kernel/kern_sig.c

@@ -662,3 +662,40 @@ postsig(sig)
 	}
 	exit(sig);
 }
+
+/*
+ * Reset signals for an exec of the specified process.  In 4.4 this function
+ * was in kern_sig.c but since in 2.11 kern_sig and kern_exec will likely be
+ * in different overlays placing this here potentially saves a kernel overlay
+ * switch.
+ */
+void
+execsigs(register struct proc *p)
+{
+	register int nc;
+	unsigned long mask;
+
+	/*
+	 * Reset caught signals.  Held signals remain held
+	 * through p_sigmask (unless they were caught,
+	 * and are now ignored by default).
+	 */
+	while (p->p_sigcatch) {
+		nc = ffs(p->p_sigcatch);
+		mask = sigmask(nc);
+		p->p_sigcatch &= ~mask;
+		if (sigprop[nc] & SA_IGNORE) {
+			if (nc != SIGCONT)
+				p->p_sigignore |= mask;
+			p->p_sig &= ~mask;
+		}
+		u.u_signal[nc] = SIG_DFL;
+	}
+	/*
+	 * Reset stack state to the user stack (disable the alternate stack).
+	 */
+	u.u_sigstk.ss_flags = SA_DISABLE;
+	u.u_sigstk.ss_size = 0;
+	u.u_sigstk.ss_base = 0;
+	u.u_psflags = 0;
+}

sys/kernel/rdisk.c

@@ -15,7 +15,7 @@ extern struct buf *getnewbuf();
 
 /*
  * Variable naming conventions
- * 
+ *
  * root - this is the number of the device entry in the disks[] array
  * part - the minor number of a device entry, which represents the partition
  *        number, or 0 for the whole disk
@@ -75,7 +75,7 @@ const struct diskentry disks[] = {
 
 #ifdef SDRAMP_ENABLED
 	{sdramp_preinit, no_init, no_deinit, sdramp_open, sdramp_size, sdramp_read, sdramp_write, 0, RD_PREPART},
-#endif	
+#endif
 
 #ifdef FLASH_ENABLED
 	{flash_init, no_init, no_deinit, flash_open, flash_size, flash_read, flash_write, 0, RD_READONLY},
@@ -164,8 +164,9 @@ static inline int init_device(int root,int flag)
 
 	for(i=0; i<4; i++)
 	{
-		dflags[root].start[i] = mbr->partitions[i].lbastart>>1;
-		dflags[root].len[i] = mbr->partitions[i].lbalength>>1;
+                struct partition part = mbr->partitions[i];
+		dflags[root].start[i] = part.lbastart >> 1;
+		dflags[root].len[i] = part.lbalength >> 1;
 	}
 	dflags[root].blocks = disks[root].size(unit);
 	brelse(bp);
@@ -320,7 +321,7 @@ void rdstrategy(register struct buf *bp)
 
 void update_mbr(int unit)
 {
-	
+
 }
 
 int rdioctl (dev_t dev, register u_int cmd, caddr_t addr, int flag)
@@ -337,7 +338,7 @@ int rdioctl (dev_t dev, register u_int cmd, caddr_t addr, int flag)
 	{
 		bflush(major(dev));
 		init_device(major(dev),S_SILENT);
-	
+
 	}
 	return 0;
 }
@@ -432,7 +433,7 @@ dev_t get_boot_device()
 			rdclose(makedev(i,0),0,0);
 		}
 	}
-	
+
 	return bd;
 #endif
 }
@@ -610,7 +611,7 @@ struct buf *prepartition_device(char *devname)
 			dev[pos] = 0;
 			p++;
 		}
-	
+
 		if((*p) == ':')
 		{
 			p++;
@@ -670,7 +671,7 @@ struct buf *prepartition_device(char *devname)
 			p++;
 		}
 	}
-	
+
 	if(pnum > 0)
 	{
 		mbr->bootsig = 0xAA55;

sys/pic32/32mxsdram-uart/Makefile

@@ -6,7 +6,7 @@ S         = ../../../tools/configsys/../../sys/kernel
 vpath %.c $(M):$(S)
 vpath %.S $(M):$(S)
 
-KERNOBJ += _startup.o adc.o clock.o cons.o devsw.o exception.o gpio.o init_main.o init_sysent.o kern_clock.o kern_descrip.o kern_exec.o kern_exit.o kern_fork.o kern_mman.o kern_proc.o kern_prot.o kern_prot2.o kern_resource.o kern_sig.o kern_sig2.o kern_subr.o kern_synch.o kern_sysctl.o kern_time.o machdep.o mem.o oc.o rd_sd.o rd_sdramp.o rdisk.o sdram.o signal.o spi_bus.o subr_prf.o subr_rmap.o swap.o sys_generic.o sys_inode.o sys_pipe.o sys_process.o syscalls.o sysctl.o tty.o tty_subr.o tty_tty.o uart.o ufs_alloc.o ufs_bio.o ufs_bmap.o ufs_dsort.o ufs_fio.o ufs_inode.o ufs_mount.o ufs_namei.o ufs_subr.o ufs_syscalls.o ufs_syscalls2.o vers.o vfs_vnops.o vm_sched.o vm_swap.o vm_swp.o 
+KERNOBJ += _startup.o adc.o clock.o cons.o devsw.o exception.o exec_aout.o exec_conf.o exec_elf.o exec_script.o exec_subr.o gpio.o init_main.o init_sysent.o kern_clock.o kern_descrip.o kern_exec.o kern_exit.o kern_fork.o kern_mman.o kern_proc.o kern_prot.o kern_prot2.o kern_resource.o kern_sig.o kern_sig2.o kern_subr.o kern_synch.o kern_sysctl.o kern_time.o machdep.o mem.o oc.o rd_sd.o rd_sdramp.o rdisk.o sdram.o signal.o spi_bus.o subr_prf.o subr_rmap.o swap.o sys_generic.o sys_inode.o sys_pipe.o sys_process.o syscalls.o sysctl.o tty.o tty_subr.o tty_tty.o uart.o ufs_alloc.o ufs_bio.o ufs_bmap.o ufs_dsort.o ufs_fio.o ufs_inode.o ufs_mount.o ufs_namei.o ufs_subr.o ufs_syscalls.o ufs_syscalls2.o vers.o vfs_vnops.o vm_sched.o vm_swap.o vm_swp.o 
 EXTRA_TARGETS = bootloader 
 
 DEFS += -DADC_ENABLED=YES
@@ -48,6 +48,9 @@ DEFS += -DDC3_SRS=DEVCFG3_FSRSSEL_7
 DEFS += -DDC3_USBID=DEVCFG3_FUSBIDIO
 DEFS += -DDC3_USERID=0xffff
 DEFS += -DDC3_VBUSON=DEVCFG3_FVBUSONIO
+DEFS += -DEXEC_AOUT
+DEFS += -DEXEC_ELF
+DEFS += -DEXEC_SCRIPT
 DEFS += -DFLASH_USER=0x1d005000
 DEFS += -DGPIO_ENABLED=YES
 DEFS += -DHID_FEATURE_REPORT_BYTES=2

sys/pic32/_startup.S

@@ -1,8 +1,9 @@
 #
 # Startup code for Microchip PIC32 microcontrollers.
-# Using HID bootloader.
+# Based on the MIPS application note:
+# "Boot-CPS: Example Boot Code for MIPS® Cores".
 #
-# Copyright (C) 2010 Serge Vakulenko, <serge@vak.ru>
+# Copyright (C) 2010-2014 Serge Vakulenko, <serge@vak.ru>
 #
 # Permission to use, copy, modify, and distribute this software
 # and its documentation for any purpose and without fee is hereby
@@ -24,86 +25,350 @@
 #
 #include "machine/io.h"
 
-#define UBASE	0x7f008000	/* User space base address */
+#define UBASE   0x7f008000      /* User space base address */
 
-		.set	noreorder
-		.set	mips32r2
-		.set	nomips16
+/*
+ * MIPS Coprocessor 0 register numbers
+ */
+#define C0_INDEX        $0
+#define C0_ENTRYLO0     $2
+#define C0_ENTRYLO1     $3
+#define C0_PAGEMASK     $5
+#define C0_WIRED        $6
+#define C0_COUNT        $9
+#define C0_ENTRYHI      $10
+#define C0_COMPARE      $11
+#define C0_STATUS       $12
+#define C0_SRSCTL       $12,2
+#define C0_CAUSE        $13
+#define C0_EPC          $14
+#define C0_CONFIG       $16
+#define C0_CONFIG1      $16,1
+#define C0_CONFIG7      $16,7
+#define C0_WATCHLO      $18
+#define C0_WATCHHI      $19
+#define C0_DEBUG        $23
+#define C0_DEPC         $24
+#define C0_ITAGLO       $28
+#define C0_DTAGLO       $28,2
+#define C0_ERRPC        $30
 
-		.extern	u
-		.extern	u_end
-		.extern	u0
-		.extern	main
-		.extern exception
+/*
+ * MIPS Config1 register
+ */
+#define CFG1_MMUSSHIFT  25              // mmu size - 1
+#define CFG1_ISSHIFT    22              // icache lines 64<<n
+#define CFG1_ILSHIFT    19              // icache line size 2<<n
+#define CFG1_IASHIFT    16              // icache ways - 1
+#define CFG1_DSSHIFT    13              // dcache lines 64<<n
+#define CFG1_DLSHIFT    10              // dcache line size 2<<n
+#define CFG1_DASHIFT    7               // dcache ways - 1
+
+                .set    noreorder
+                .set    mips32r2
+                .set    nomips16
+
+                .extern u
+                .extern u_end
+                .extern u0
+                .extern main
+                .extern exception
 
 #---------------------------------------
 # Reset vector: main entry point
 #
-		.section .startup,"ax",@progbits
-		.org	0
-		.type	_reset_vector_, @function
-_reset_vector_:	.globl	_reset_vector_
+                .section .startup,"ax",@progbits
+                .org    0
+                .type   _reset_vector_, @function
+_reset_vector_: .globl  _reset_vector_
 
-		.set	noat
-		move    $1, $zero                       # Clear all regs
-		move    $2, $zero
-		move    $3, $zero
-		move    $4, $zero
-		move    $5, $zero
-		move    $6, $zero
-		move    $7, $zero
-		move    $8, $zero
-		move    $9, $zero
-		move    $10, $zero
-		move    $11, $zero
-		move    $12, $zero
-		move    $13, $zero
-		move    $14, $zero
-		move    $15, $zero
-		move    $16, $zero
-		move    $17, $zero
-		move    $18, $zero
-		move    $19, $zero
-		move    $20, $zero
-		move    $21, $zero
-		move    $22, $zero
-		move    $23, $zero
-		move    $24, $zero
-		move    $25, $zero
-		move    $26, $zero
-		move    $27, $zero
-		move    $28, $zero
-		move    $29, $zero
-		move    $30, $zero
-		move    $31, $zero
-		mtlo	$zero
-		mthi	$zero
-		.set	at
+                .set    noat
+                mtc0    $0, C0_COUNT            # Clear cp0 Count (Used to measure boot time.)
+#if 0
+                //
+                // Check for NMI exception.
+                //
+check_nmi:                                      # Check whether we are here due to a reset or NMI.
+                mfc0    $s1, C0_STATUS          # Read Status
+                ext     $s1, $s1, 19, 1         # extract NMI
+                beqz    $s1, init_gpr           # Branch if this is NOT an NMI exception.
+                nop
 
-		la	$sp, u_end - 16			# Stack at end of U area
+                # Call nmi_exception().
+                la      $sp, _stack-16          # Set up stack base.
+                la      $gp, _gp                # GP register value defined by linker script.
+                la      $s1, nmi_exception      # Call user-defined NMI handler.
+                jalr    $s1
+                nop
+#endif
+                //
+                // Set all GPRs of all register sets to predefined state.
+                //
+init_gpr:
+                li      $1, 0xdeadbeef          # 0xdeadbeef stands out, kseg2 mapped, odd.
+
+                # Determine how many shadow sets are implemented (in addition to the base register set.)
+                # the first time thru the loop it will initialize using $1 set above.
+                # At the bottom og the loop, 1 is  subtract from $30
+                # and loop back to next_shadow_set to start the next loop and the next lowest set number.
+                mfc0    $29, C0_SRSCTL          # read SRSCtl
+                ext     $30, $29, 26, 4         # extract HSS
+
+next_shadow_set:                        # set PSS to shadow set to be initialized
+                ins     $29, $30, 6, 4          # insert PSS
+                mtc0    $29, C0_SRSCTL          # write SRSCtl
+
+                wrpgpr  $1, $1
+                wrpgpr  $2, $1
+                wrpgpr  $3, $1
+                wrpgpr  $4, $1
+                wrpgpr  $5, $1
+                wrpgpr  $6, $1
+                wrpgpr  $7, $1
+                wrpgpr  $8, $1
+                wrpgpr  $9, $1
+                wrpgpr  $10, $1
+                wrpgpr  $11, $1
+                wrpgpr  $12, $1
+                wrpgpr  $13, $1
+                wrpgpr  $14, $1
+                wrpgpr  $15, $1
+                wrpgpr  $16, $1
+                wrpgpr  $17, $1
+                wrpgpr  $18, $1
+                wrpgpr  $19, $1
+                wrpgpr  $20, $1
+                wrpgpr  $21, $1
+                wrpgpr  $22, $1
+                wrpgpr  $23, $1
+                wrpgpr  $24, $1
+                wrpgpr  $25, $1
+                wrpgpr  $26, $1
+                wrpgpr  $27, $1
+                wrpgpr  $28, $1
+                beqz    $30, init_cp0
+                wrpgpr  $29, $1
+
+                wrpgpr  $30, $1
+                wrpgpr  $31, $1
+                b       next_shadow_set
+                add     $30, -1                 # Decrement to the next lower number
+
+                //
+                // Init CP0 Status, Count, Compare, Watch*, and Cause.
+                //
+init_cp0:
+                # Initialize Status
+                li      $v1, 0x00400404         # (M_StatusIM | M_StatusERL | M_StatusBEV)
+                mtc0    $v1, C0_STATUS          # write Status
+
+                # Initialize Watch registers if implemented.
+                mfc0    $v0, C0_CONFIG1         # read Config1
+                ext     $v1, $v0, 3, 1          # extract bit 3 WR (Watch registers implemented)
+                beq     $v1, $zero, done_wr
+                li      $v1, 0x7                # (M_WatchHiI | M_WatchHiR | M_WatchHiW)
+
+                # Clear Watch Status bits and disable watch exceptions
+                mtc0    $v1, C0_WATCHHI         # write WatchHi0
+                mfc0    $v0, C0_WATCHHI         # read WatchHi0
+                bgez    $v0, done_wr            # Check for bit 31 (sign bit) for more Watch registers
+                mtc0    $zero, C0_WATCHLO       # clear WatchLo0
+
+                mtc0    $v1, C0_WATCHHI, 1      # write WatchHi1
+                mfc0    $v0, C0_WATCHHI, 1      # read WatchHi1
+                bgez    $v0, done_wr            # Check for bit 31 (sign bit) for more Watch registers
+                mtc0    $zero, C0_WATCHLO, 1    # clear WatchLo1
+
+                mtc0    $v1, C0_WATCHHI, 2      # write WatchHi2
+                mfc0    $v0, C0_WATCHHI, 2      # read WatchHi2
+                bgez    $v0, done_wr            # Check for bit 31 (sign bit) for more Watch registers
+                mtc0    $zero, C0_WATCHLO, 2    # clear WatchLo2
+
+                mtc0    $v1, C0_WATCHHI, 3      # write WatchHi3
+                mfc0    $v0, C0_WATCHHI, 3      # read WatchHi3
+                bgez    $v0, done_wr            # Check for bit 31 (sign bit) for more Watch registers
+                mtc0    $zero, C0_WATCHLO, 3    # clear WatchLo3
+
+                mtc0    $v1, C0_WATCHHI, 4      # write WatchHi4
+                mfc0    $v0, C0_WATCHHI, 4      # read WatchHi4
+                bgez    $v0, done_wr            # Check for bit 31 (sign bit) for more Watch registers
+                mtc0    $zero, C0_WATCHLO, 4    # clear WatchLo4
+
+                mtc0    $v1, C0_WATCHHI, 5      # write WatchHi5
+                mfc0    $v0, C0_WATCHHI, 5      # read WatchHi5
+                bgez    $v0, done_wr            # Check for bit 31 (sign bit) for more Watch registers
+                mtc0    $zero, C0_WATCHLO, 5    # clear WatchLo5
+
+                mtc0    $v1, C0_WATCHHI, 6      # write WatchHi6
+                mfc0    $v0, C0_WATCHHI, 6      # read WatchHi6
+                bgez    $v0, done_wr            # Check for bit 31 (sign bit) for more Watch registers
+                mtc0    $zero, C0_WATCHLO, 6    # clear WatchLo6
+
+                mtc0    $v1, C0_WATCHHI, 7      # write WatchHi7
+                mtc0    $zero, C0_WATCHLO, 7    # clear WatchLo7
+
+done_wr:
+                # Clear WP bit to avoid watch exception upon user code entry, IV, and software interrupts.
+                mtc0    $zero, C0_CAUSE         # clear Cause: init AFTER init of WatchHi/Lo registers.
+
+                # Clear timer interrupt. (Count was cleared at the reset vector to allow timing boot.)
+                b       init_tlb                # Jump over exception vectors
+                mtc0    $zero, C0_COMPARE       # clear Compare
+
+                //
+                // Clear TLB: generate unique EntryHi contents per entry pair.
+                //
+init_tlb:
+                # Determine if we have a TLB
+                mfc0    $v1, C0_CONFIG          # read Config
+                ext     $v1, $v1, 7, 3          # extract MT field
+                li      $a3, 0x1                # load a 1 to check against
+                bne     $v1, $a3, init_icache
+
+                # Config1MMUSize == Number of TLB entries - 1
+                mfc0    $v0, C0_CONFIG1         # Config1
+                ext     $v1, $v0, CFG1_MMUSSHIFT, 6     # extract MMU Size
+                mtc0    $zero, C0_ENTRYLO0      # clear EntryLo0
+                mtc0    $zero, C0_ENTRYLO1      # clear EntryLo1
+                mtc0    $zero, C0_PAGEMASK      # clear PageMask
+                mtc0    $zero, C0_WIRED         # clear Wired
+                li      $a0, 0x80000000
+
+next_tlb_entry:
+                mtc0    $v1, C0_INDEX           # write Index
+                mtc0    $a0, C0_ENTRYHI         # write EntryHi
+                ehb
+                tlbwi
+                add     $a0, 2<<13              # Add 8K to the address to avoid TLB conflict with previous entry
+
+                bne     $v1, $zero, next_tlb_entry
+                add     $v1, -1
+
+                //
+                // Clear L1 instruction cache.
+                //
+init_icache:
+                # Determine how big the I-cache is
+                mfc0    $v0, C0_CONFIG1         # read Config1
+                ext     $v1, $v0, CFG1_ILSHIFT, 3       # extract I-cache line size
+                beq     $v1, $zero, done_icache # Skip ahead if no I-cache
+                nop
+
+                mfc0    $s1, C0_CONFIG7         # Read Config7
+                ext     $s1, $s1, 18, 1         # extract HCI
+                bnez    $s1, done_icache        # Skip when Hardware Cache Initialization bit set
+
+                li      $a2, 2
+                sllv    $v1, $a2, $v1           # Now have true I-cache line size in bytes
+
+                ext     $a0, $v0, CFG1_ISSHIFT, 3       # extract IS
+                li      $a2, 64
+                sllv    $a0, $a2, $a0           # I-cache sets per way
+
+                ext     $a1, $v0, CFG1_IASHIFT, 3       # extract I-cache Assoc - 1
+                add     $a1, 1
+                mul     $a0, $a0, $a1           # Total number of sets
+                lui     $a2, 0x8000             # Get a KSeg0 address for cacheops
+
+                mtc0    $zero, C0_ITAGLO        # Clear ITagLo register
+                move    $a3, $a0
+
+next_icache_tag:
+                # Index Store Tag Cache Op
+                # Will invalidate the tag entry, clear the lock bit, and clear the LRF bit
+                cache   0x8, 0($a2)             # ICIndexStTag
+                add     $a3, -1                 # Decrement set counter
+                bne     $a3, $zero, next_icache_tag
+                add     $a2, $v1                # Get next line address
+done_icache:
+
+                //
+                // Enable cacheability of kseg0 segment.
+                // Need to switch to kseg1, modify kseg0 CCA, then switch back.
+                //
+                la      $a2, enable_k0_cache
+                li      $a1, 0xf
+                ins     $a2, $a1, 29, 1         # changed to KSEG1 address by setting bit 29
+                jr      $a2
+                nop
+
+enable_k0_cache:
+                # Set CCA for kseg0 to cacheable.
+                # NOTE! This code must be executed in KSEG1 (not KSEG0 uncached)
+                mfc0    $v0, C0_CONFIG          # read C0_Config
+                li      $v1, 3                  # CCA for single-core processors
+                ins     $v0, $v1, 0, 3          # instert K0
+                mtc0    $v0, C0_CONFIG          # write C0_Config
+
+                la      $a2, init_dcache
+                jr      $a2                     # switch back to KSEG0
+                ehb
+
+                //
+                // Initialize the L1 data cache
+                //
+init_dcache:
+                mfc0    $v0, C0_CONFIG1         # read C0_Config1
+                ext     $v1, $v0, CFG1_DLSHIFT, 3       # extract D-cache line size
+                beq     $v1, $zero, done_dcache # Skip ahead if no D-cache
+                nop
+
+                mfc0    $s1, C0_CONFIG7         # Read Config7
+                ext     $s1, $s1, 18, 1         # extract HCI
+                bnez    $s1, done_dcache        # Skip when Hardware Cache Initialization bit set
+
+                li      $a2, 2
+                sllv    $v1, $a2, $v1           # Now have true D-cache line size in bytes
+
+                ext     $a0, $v0, CFG1_DSSHIFT, 3       # extract DS
+                li      $a2, 64
+                sllv    $a0, $a2, $a0           # D-cache sets per way
+
+                ext     $a1, $v0, CFG1_DASHIFT, 3       # extract D-cache Assoc - 1
+                add     $a1, 1
+                mul     $a0, $a0, $a1           # Get total number of sets
+                lui     $a2, 0x8000             # Get a KSeg0 address for cacheops
+
+                mtc0    $zero, C0_ITAGLO        # Clear ITagLo/DTagLo registers
+                mtc0    $zero, C0_DTAGLO
+                move    $a3, $a0
+
+next_dcache_tag:
+                # Index Store Tag Cache Op
+                # Will invalidate the tag entry, clear the lock bit, and clear the LRF bit
+                cache   0x9, 0($a2)             # DCIndexStTag
+                add     $a3, -1                 # Decrement set counter
+                bne     $a3, $zero, next_dcache_tag
+                add     $a2, $v1                # Get next line address
+done_dcache:
+
+                //
+                // Call main() function.
+                //
+                la      $sp, u_end - 16                 # Stack at end of U area
                 la      $a0, main
-		jalr	$a0				# Jump to main()
-		lui	$gp, 0x8000			# Set global pointer (delay slot)
+                jalr    $a0                             # Jump to main()
+                lui     $gp, 0x8000                     # Set global pointer (delay slot)
 
                 la      $k0, UBASE
-		mtc0	$k0, $C0_EPC                    # Entry to user code.
+                mtc0    $k0, C0_EPC                     # Entry to user code.
 
-		mfc0	$k0, $C0_STATUS
-		ori	$k0, $k0, ST_UM | ST_EXL | ST_IE # Set user mode and enable interrupts
-		mtc0	$k0, $C0_STATUS			# Put SR back
-		ehb
-		eret					# PC <= EPC; EXL <= 0
-		nop					# just to be safe
+                mfc0    $k0, C0_STATUS
+                ori     $k0, $k0, ST_UM | ST_EXL | ST_IE # Set user mode and enable interrupts
+                mtc0    $k0, C0_STATUS                  # Put SR back
+                ehb
+                eret                                    # PC <= EPC; EXL <= 0
+                nop                                     # just to be safe
 
 
 #---------------------------------------
 # Secondary entry point for RetroBSD bootloader.
 #
-		.section .exception,"ax",@progbits
+                .section .exception,"ax",@progbits
 _exception_base_: .globl _exception_base_
 
-		.org	0
-		.type	_entry_vector_, @function
+                .org    0
+                .type   _entry_vector_, @function
 _entry_vector_: .globl  _entry_vector_
                 la      $k0, _reset_vector_
                 jr      $k0
@@ -112,204 +377,204 @@ _entry_vector_: .globl  _entry_vector_
 #---------------------------------------
 # Exception vector: handle interrupts and exceptions
 #
-		.org	0x200
-		.type	_exception_vector_, @function
+                .org    0x200
+                .type   _exception_vector_, @function
 _exception_vector_: .globl _exception_vector_
 
-		mfc0	$k0, $C0_STATUS
-		andi	$k1, $k0, ST_UM			# Check user mode
-		beqz	$k1, kernel_exception
-		move	$k1, $sp
+                mfc0    $k0, C0_STATUS
+                andi    $k1, $k0, ST_UM                 # Check user mode
+                beqz    $k1, kernel_exception
+                move    $k1, $sp
 
-		#
-		# Exception in user mode: switch stack.
-		#
+                #
+                # Exception in user mode: switch stack.
+                #
 user_exception:
-		la	$sp, u_end                      # Stack at end of U area
+                la      $sp, u_end                      # Stack at end of U area
 kernel_exception:
-		addi    $sp, -16-FRAME_WORDS*4		# Allocate space for registers
+                addi    $sp, -16-FRAME_WORDS*4          # Allocate space for registers
 save_regs:
-		sw	$k0, (16+FRAME_STATUS*4) ($sp)
+                sw      $k0, (16+FRAME_STATUS*4) ($sp)
                 sw      $k1, (16+FRAME_SP*4) ($sp)
 
-		.set	noat
-		sw	$1, (16+FRAME_R1*4) ($sp)	# Save general registers
-		sw	$2, (16+FRAME_R2*4) ($sp)
-		sw	$3, (16+FRAME_R3*4) ($sp)
-		sw	$4, (16+FRAME_R4*4) ($sp)
-		sw	$5, (16+FRAME_R5*4) ($sp)
-		sw	$6, (16+FRAME_R6*4) ($sp)
-		sw	$7, (16+FRAME_R7*4) ($sp)
-		sw	$8, (16+FRAME_R8*4) ($sp)
-		sw	$9, (16+FRAME_R9*4) ($sp)
-		sw	$10, (16+FRAME_R10*4) ($sp)
-		sw	$11, (16+FRAME_R11*4) ($sp)
-		sw	$12, (16+FRAME_R12*4) ($sp)
-		sw	$13, (16+FRAME_R13*4) ($sp)
-		sw	$14, (16+FRAME_R14*4) ($sp)
-		sw	$15, (16+FRAME_R15*4) ($sp)
-		sw	$16, (16+FRAME_R16*4) ($sp)
-		sw	$17, (16+FRAME_R17*4) ($sp)
-		sw	$18, (16+FRAME_R18*4) ($sp)
-		sw	$19, (16+FRAME_R19*4) ($sp)
-		sw	$20, (16+FRAME_R20*4) ($sp)
-		sw	$21, (16+FRAME_R21*4) ($sp)
-		sw	$22, (16+FRAME_R22*4) ($sp)
-		sw	$23, (16+FRAME_R23*4) ($sp)
-		sw	$24, (16+FRAME_R24*4) ($sp)
-		sw	$25, (16+FRAME_R25*4) ($sp)
-		# Skip $26 - K0
-		# Skip $27 - K1
-		sw	$28, (16+FRAME_GP*4) ($sp)
-		# Skip $29 - SP
-		sw	$30, (16+FRAME_FP*4) ($sp)
-		sw	$31, (16+FRAME_RA*4) ($sp)
-		.set	at
+                .set    noat
+                sw      $1, (16+FRAME_R1*4) ($sp)       # Save general registers
+                sw      $2, (16+FRAME_R2*4) ($sp)
+                sw      $3, (16+FRAME_R3*4) ($sp)
+                sw      $4, (16+FRAME_R4*4) ($sp)
+                sw      $5, (16+FRAME_R5*4) ($sp)
+                sw      $6, (16+FRAME_R6*4) ($sp)
+                sw      $7, (16+FRAME_R7*4) ($sp)
+                sw      $8, (16+FRAME_R8*4) ($sp)
+                sw      $9, (16+FRAME_R9*4) ($sp)
+                sw      $10, (16+FRAME_R10*4) ($sp)
+                sw      $11, (16+FRAME_R11*4) ($sp)
+                sw      $12, (16+FRAME_R12*4) ($sp)
+                sw      $13, (16+FRAME_R13*4) ($sp)
+                sw      $14, (16+FRAME_R14*4) ($sp)
+                sw      $15, (16+FRAME_R15*4) ($sp)
+                sw      $16, (16+FRAME_R16*4) ($sp)
+                sw      $17, (16+FRAME_R17*4) ($sp)
+                sw      $18, (16+FRAME_R18*4) ($sp)
+                sw      $19, (16+FRAME_R19*4) ($sp)
+                sw      $20, (16+FRAME_R20*4) ($sp)
+                sw      $21, (16+FRAME_R21*4) ($sp)
+                sw      $22, (16+FRAME_R22*4) ($sp)
+                sw      $23, (16+FRAME_R23*4) ($sp)
+                sw      $24, (16+FRAME_R24*4) ($sp)
+                sw      $25, (16+FRAME_R25*4) ($sp)
+                # Skip $26 - K0
+                # Skip $27 - K1
+                sw      $28, (16+FRAME_GP*4) ($sp)
+                # Skip $29 - SP
+                sw      $30, (16+FRAME_FP*4) ($sp)
+                sw      $31, (16+FRAME_RA*4) ($sp)
+                .set    at
 
-		mfhi	$k0				# Save special registers
-		sw	$k0, (16+FRAME_HI*4) ($sp)
+                mfhi    $k0                             # Save special registers
+                sw      $k0, (16+FRAME_HI*4) ($sp)
 
-		mflo	$k0
-		sw	$k0, (16+FRAME_LO*4) ($sp)
+                mflo    $k0
+                sw      $k0, (16+FRAME_LO*4) ($sp)
 
-		mfc0	$k0, $C0_EPC
-		sw	$k0, (16+FRAME_PC*4) ($sp)
+                mfc0    $k0, C0_EPC
+                sw      $k0, (16+FRAME_PC*4) ($sp)
 
-		move	$a0, $sp
-		addi	$a0, 16				# Arg 0: saved regs.
-		jal	exception			# Call C code.
-		lui	$gp, 0x8000			# Set global pointer (delay slot)
+                move    $a0, $sp
+                addi    $a0, 16                         # Arg 0: saved regs.
+                jal     exception                       # Call C code.
+                lui     $gp, 0x8000                     # Set global pointer (delay slot)
 
-		#
-		# Restore CPU state and return from interrupt.
-		#
+                #
+                # Restore CPU state and return from interrupt.
+                #
 restore_regs:
-		lw	$a0, (16+FRAME_LO*4) ($sp)	# Load HI, LO registers
-		mtlo	$a0
-		lw	$a0, (16+FRAME_HI*4) ($sp)
-		mthi	$a0
+                lw      $a0, (16+FRAME_LO*4) ($sp)      # Load HI, LO registers
+                mtlo    $a0
+                lw      $a0, (16+FRAME_HI*4) ($sp)
+                mthi    $a0
 
-		.set	noat
-		lw	$1, (16+FRAME_R1*4) ($sp)	# Load general registers
-		lw	$2, (16+FRAME_R2*4) ($sp)
-		lw	$3, (16+FRAME_R3*4) ($sp)
-		lw	$4, (16+FRAME_R4*4) ($sp)
-		lw	$5, (16+FRAME_R5*4) ($sp)
-		lw	$6, (16+FRAME_R6*4) ($sp)
-		lw	$7, (16+FRAME_R7*4) ($sp)
-		lw	$8, (16+FRAME_R8*4) ($sp)
-		lw	$9, (16+FRAME_R9*4) ($sp)
-		lw	$10, (16+FRAME_R10*4) ($sp)
-		lw	$11, (16+FRAME_R11*4) ($sp)
-		lw	$12, (16+FRAME_R12*4) ($sp)
-		lw	$13, (16+FRAME_R13*4) ($sp)
-		lw	$14, (16+FRAME_R14*4) ($sp)
-		lw	$15, (16+FRAME_R15*4) ($sp)
-		lw	$16, (16+FRAME_R16*4) ($sp)
-		lw	$17, (16+FRAME_R17*4) ($sp)
-		lw	$18, (16+FRAME_R18*4) ($sp)
-		lw	$19, (16+FRAME_R19*4) ($sp)
-		lw	$20, (16+FRAME_R20*4) ($sp)
-		lw	$21, (16+FRAME_R21*4) ($sp)
-		lw	$22, (16+FRAME_R22*4) ($sp)
-		lw	$23, (16+FRAME_R23*4) ($sp)
-		lw	$24, (16+FRAME_R24*4) ($sp)
-		lw	$25, (16+FRAME_R25*4) ($sp)
-		# Skip $26 - K0
-		# Skip $27 - K1
-		lw	$28, (16+FRAME_GP*4) ($sp)
-		# Skip $29 - SP
-		lw	$30, (16+FRAME_FP*4) ($sp)
-		.set	at
+                .set    noat
+                lw      $1, (16+FRAME_R1*4) ($sp)       # Load general registers
+                lw      $2, (16+FRAME_R2*4) ($sp)
+                lw      $3, (16+FRAME_R3*4) ($sp)
+                lw      $4, (16+FRAME_R4*4) ($sp)
+                lw      $5, (16+FRAME_R5*4) ($sp)
+                lw      $6, (16+FRAME_R6*4) ($sp)
+                lw      $7, (16+FRAME_R7*4) ($sp)
+                lw      $8, (16+FRAME_R8*4) ($sp)
+                lw      $9, (16+FRAME_R9*4) ($sp)
+                lw      $10, (16+FRAME_R10*4) ($sp)
+                lw      $11, (16+FRAME_R11*4) ($sp)
+                lw      $12, (16+FRAME_R12*4) ($sp)
+                lw      $13, (16+FRAME_R13*4) ($sp)
+                lw      $14, (16+FRAME_R14*4) ($sp)
+                lw      $15, (16+FRAME_R15*4) ($sp)
+                lw      $16, (16+FRAME_R16*4) ($sp)
+                lw      $17, (16+FRAME_R17*4) ($sp)
+                lw      $18, (16+FRAME_R18*4) ($sp)
+                lw      $19, (16+FRAME_R19*4) ($sp)
+                lw      $20, (16+FRAME_R20*4) ($sp)
+                lw      $21, (16+FRAME_R21*4) ($sp)
+                lw      $22, (16+FRAME_R22*4) ($sp)
+                lw      $23, (16+FRAME_R23*4) ($sp)
+                lw      $24, (16+FRAME_R24*4) ($sp)
+                lw      $25, (16+FRAME_R25*4) ($sp)
+                # Skip $26 - K0
+                # Skip $27 - K1
+                lw      $28, (16+FRAME_GP*4) ($sp)
+                # Skip $29 - SP
+                lw      $30, (16+FRAME_FP*4) ($sp)
+                .set    at
 
                 # Do not use k0/k1 here, as interrupts are still enabled
-		lw	$31, (16+FRAME_STATUS*4) ($sp)	# K0 = saved status
-		ori	$31, ST_EXL                     # Set EXL
-		mtc0	$31, $C0_STATUS			# put SR back: disable interrupts
+                lw      $31, (16+FRAME_STATUS*4) ($sp)  # K0 = saved status
+                ori     $31, ST_EXL                     # Set EXL
+                mtc0    $31, C0_STATUS                  # put SR back: disable interrupts
                 ehb
 
-		lw	$k0, (16+FRAME_PC*4) ($sp)	# K0 = EPC
-		mtc0	$k0, $C0_EPC			# put PC in EPC
+                lw      $k0, (16+FRAME_PC*4) ($sp)      # K0 = EPC
+                mtc0    $k0, C0_EPC                     # put PC in EPC
                 ext     $k1, $31, 27, 1                 # get RP bit: single-step request
 
-		lw	$31, (16+FRAME_RA*4) ($sp)
-		lw	$sp, (16+FRAME_SP*4) ($sp)	# Restore stack
+                lw      $31, (16+FRAME_RA*4) ($sp)
+                lw      $sp, (16+FRAME_SP*4) ($sp)      # Restore stack
 
-		# Return from exception
+                # Return from exception
                 bnez    $k1, debug_request              # single-step request
-		ehb
-		eret					# PC <= EPC; EXL <= 0
+                ehb
+                eret                                    # PC <= EPC; EXL <= 0
 debug_request:
-		sdbbp					# enter debug mode
+                sdbbp                                   # enter debug mode
 
 #---------------------------------------
 # Debug exception processing.
 #
-		.org	0x480
-		.type	_debug_vector_, @function
+                .org    0x480
+                .type   _debug_vector_, @function
 _debug_vector_: .globl _debug_vector_
 
-		mfc0	$k0, $C0_DEPC
-		la	$k1, debug_request
-		bne     $k0, $k1, single_step_done
-		nop
+                mfc0    $k0, C0_DEPC
+                la      $k1, debug_request
+                bne     $k0, $k1, single_step_done
+                nop
 
                 # single step request
-		mfc0	$k0, $C0_DEBUG
-		ori     $k0, DB_SST                     # set SST bit
-		mtc0	$k0, $C0_DEBUG
+                mfc0    $k0, C0_DEBUG
+                ori     $k0, DB_SST                     # set SST bit
+                mtc0    $k0, C0_DEBUG
 
-		mfc0	$k1, $C0_EPC
-		mtc0	$k1, $C0_DEPC                   # DEPC <= EPC
-		mfc0	$k0, $C0_STATUS
-		xori	$k0, ST_EXL                     # Clear EXL
-		mtc0	$k0, $C0_STATUS
-		ehb
-		deret					# PC <= DEPC; DM <= 0
+                mfc0    $k1, C0_EPC
+                mtc0    $k1, C0_DEPC                    # DEPC <= EPC
+                mfc0    $k0, C0_STATUS
+                xori    $k0, ST_EXL                     # Clear EXL
+                mtc0    $k0, C0_STATUS
+                ehb
+                deret                                   # PC <= DEPC; DM <= 0
 
 single_step_done:
-		mtc0	$k0, $C0_EPC                    # EPC <= DEPC
+                mtc0    $k0, C0_EPC                     # EPC <= DEPC
 
-		la      $k1, _exception_vector_
-		mtc0	$k1, $C0_DEPC                   # DEPC <= exception handler
+                la      $k1, _exception_vector_
+                mtc0    $k1, C0_DEPC                    # DEPC <= exception handler
 
-		mfc0	$k0, $C0_DEBUG
-		sw	$k0, c0_debug                   # save Debug register
-		ori     $k0, DB_SST
-		xori    $k0, DB_SST                     # clear SST bit
-		mtc0	$k0, $C0_DEBUG
+                mfc0    $k0, C0_DEBUG
+                sw      $k0, c0_debug                   # save Debug register
+                ori     $k0, DB_SST
+                xori    $k0, DB_SST                     # clear SST bit
+                mtc0    $k0, C0_DEBUG
 
-		mfc0	$k1, $C0_STATUS
-		ori	$k1, ST_EXL                     # Set EXL
-		mtc0	$k1, $C0_STATUS
-		ehb
-		deret					# PC <= DEPC; DM <= 0
+                mfc0    $k1, C0_STATUS
+                ori     $k1, ST_EXL                     # Set EXL
+                mtc0    $k1, C0_STATUS
+                ehb
+                deret                                   # PC <= DEPC; DM <= 0
 
 #---------------------------------------
 # Icode is copied out to process 1 to exec /sbin/init.
 # If the exec fails, process 1 exits.
 #
-		.globl	icode, icodeend
-		.type	icode, @function
-		.type	icodeend, @function
+                .globl  icode, icodeend
+                .type   icode, @function
+                .type   icodeend, @function
 icode:
-		la	$a0, UBASE
-		move	$a1, $a0
-		addi	$a0, etcinit - icode
-		addi	$a1, argv - icode
-		syscall	11				# SYS_execv
-		move	$a0, $v0
-		syscall	1				# SYS_exit
+                la      $a0, UBASE
+                move    $a1, $a0
+                addi    $a0, etcinit - icode
+                addi    $a1, argv - icode
+                syscall 11                              # SYS_execv
+                move    $a0, $v0
+                syscall 1                               # SYS_exit
 etcinit:
-		.ascii	"/sbin/init\0"
+                .ascii  "/sbin/init\0"
 initflags:
-		.ascii	"-\0"                          # ASCII initflags
+                .ascii  "-\0"                          # ASCII initflags
 argv:
-		.word	etcinit + 6 - icode + UBASE	# address of "init\0"
-		.word	initflags - icode + UBASE	# init options
-		.word	0
+                .word   etcinit + 6 - icode + UBASE     # address of "init\0"
+                .word   initflags - icode + UBASE       # init options
+                .word   0
 
-icodeend:	nop
+icodeend:       nop
 
 #---------------------------------------
 # int setjmp (label_t *env);
@@ -317,22 +582,22 @@ icodeend:	nop
 # Setjmp(env) will save the process' current register variables, stack
 # and program counter context and return a zero.
 #
-		.type	setjmp, @function
-setjmp:		.globl	setjmp
-		sw	$s0, (0 * 4) ($a0)		# save register variables s0-s8
-		sw	$s1, (1 * 4) ($a0)
-		sw	$s2, (2 * 4) ($a0)
-		sw	$s3, (3 * 4) ($a0)
-		sw	$s4, (4 * 4) ($a0)
-		sw	$s5, (5 * 4) ($a0)
-		sw	$s6, (6 * 4) ($a0)
-		sw	$s7, (7 * 4) ($a0)
-		sw	$s8, (8 * 4) ($a0)		# frame pointer
-		sw	$ra, (9 * 4) ($a0)		# return address
-		sw	$gp, (10 * 4) ($a0)		# global data pointer
-		sw	$sp, (11 * 4) ($a0)		# stack pointer
-		j	$ra
-		move	$v0, $zero			# return a zero for the setjmp call
+                .type   setjmp, @function
+setjmp:         .globl  setjmp
+                sw      $s0, (0 * 4) ($a0)              # save register variables s0-s8
+                sw      $s1, (1 * 4) ($a0)
+                sw      $s2, (2 * 4) ($a0)
+                sw      $s3, (3 * 4) ($a0)
+                sw      $s4, (4 * 4) ($a0)
+                sw      $s5, (5 * 4) ($a0)
+                sw      $s6, (6 * 4) ($a0)
+                sw      $s7, (7 * 4) ($a0)
+                sw      $s8, (8 * 4) ($a0)              # frame pointer
+                sw      $ra, (9 * 4) ($a0)              # return address
+                sw      $gp, (10 * 4) ($a0)             # global data pointer
+                sw      $sp, (11 * 4) ($a0)             # stack pointer
+                j       $ra
+                move    $v0, $zero                      # return a zero for the setjmp call
 
 #---------------------------------------
 # void longjmp (memaddr uaddr, label_t *env);
@@ -346,60 +611,60 @@ setjmp:		.globl	setjmp
 # This longjmp differs from the longjmp found in the standard library -
 # it's actually closer to the resume routine of the 4.3BSD kernel.
 #
-		.type	longjmp, @function
-longjmp:	.globl	longjmp
+                .type   longjmp, @function
+longjmp:        .globl  longjmp
 
-		di				# can't let anything in till we get a valid stack...
+                di                              # can't let anything in till we get a valid stack...
 
-		la	$v0, u			# pointer to &u
-		beq	$v0, $a0, 2f		# if uaddr == &u...
-		nop				# ...no need to remap U area
+                la      $v0, u                  # pointer to &u
+                beq     $v0, $a0, 2f            # if uaddr == &u...
+                nop                             # ...no need to remap U area
 
-		la	$a3, u_end		# pointer to &u + USIZE
-		la	$a0, u0			# pointer to &u0
+                la      $a3, u_end              # pointer to &u + USIZE
+                la      $a0, u0                 # pointer to &u0
 
-		lw	$v1, 0($v0)		# u.u_procp
-		sw	$a0, 60($v1)		# u.u_procp->p_addr = &u0
+                lw      $v1, 0($v0)             # u.u_procp
+                sw      $a0, 60($v1)            # u.u_procp->p_addr = &u0
 
-		# exchange contents of u and u0
-		move	$v1, $v0
+                # exchange contents of u and u0
+                move    $v1, $v0
 1:
-                lw	$t1, 0($v1)
-                lw	$t0, 0($a0)
-                sw	$t0, 0($v1)
-                sw	$t1, 0($a0)
-                lw	$t1, 4($v1)
-                lw	$t0, 4($a0)
-                sw	$t0, 4($v1)
-                sw	$t1, 4($a0)
-                lw	$t1, 8($v1)
-                lw	$t0, 8($a0)
-                sw	$t0, 8($v1)
-                sw	$t1, 8($a0)
-                lw	$t1, 12($v1)
-                lw	$t0, 12($a0)
-                sw	$t0, 12($v1)
-                sw	$t1, 12($a0)
-                addiu	$v1, $v1, 16
-                bne	$a3, $v1, 1b
-                addiu	$a0, $a0, 16
+                lw      $t1, 0($v1)
+                lw      $t0, 0($a0)
+                sw      $t0, 0($v1)
+                sw      $t1, 0($a0)
+                lw      $t1, 4($v1)
+                lw      $t0, 4($a0)
+                sw      $t0, 4($v1)
+                sw      $t1, 4($a0)
+                lw      $t1, 8($v1)
+                lw      $t0, 8($a0)
+                sw      $t0, 8($v1)
+                sw      $t1, 8($a0)
+                lw      $t1, 12($v1)
+                lw      $t0, 12($a0)
+                sw      $t0, 12($v1)
+                sw      $t1, 12($a0)
+                addiu   $v1, $v1, 16
+                bne     $a3, $v1, 1b
+                addiu   $a0, $a0, 16
 
-		lw	$v1, 0($v0)		# u.u_procp
-		sw	$v0, 60($v1)		# u.u_procp->p_addr = &u
+                lw      $v1, 0($v0)             # u.u_procp
+                sw      $v0, 60($v1)            # u.u_procp->p_addr = &u
 2:
-		lw	$s0, (0 * 4) ($a1)	# restore register variables s0-s8
-		lw	$s1, (1 * 4) ($a1)
-		lw	$s2, (2 * 4) ($a1)
-		lw	$s3, (3 * 4) ($a1)
-		lw	$s4, (4 * 4) ($a1)
-		lw	$s5, (5 * 4) ($a1)
-		lw	$s6, (6 * 4) ($a1)
-		lw	$s7, (7 * 4) ($a1)
-		lw	$s8, (8 * 4) ($a1)	# frame pointer
-		lw	$ra, (9 * 4) ($a1)	# return address
-		lw	$gp, (10 * 4) ($a1)	# global data pointer
-		lw	$sp, (11 * 4) ($a1)	# stack pointer
+                lw      $s0, (0 * 4) ($a1)      # restore register variables s0-s8
+                lw      $s1, (1 * 4) ($a1)
+                lw      $s2, (2 * 4) ($a1)
+                lw      $s3, (3 * 4) ($a1)
+                lw      $s4, (4 * 4) ($a1)
+                lw      $s5, (5 * 4) ($a1)
+                lw      $s6, (6 * 4) ($a1)
+                lw      $s7, (7 * 4) ($a1)
+                lw      $s8, (8 * 4) ($a1)      # frame pointer
+                lw      $ra, (9 * 4) ($a1)      # return address
+                lw      $gp, (10 * 4) ($a1)     # global data pointer
+                lw      $sp, (11 * 4) ($a1)     # stack pointer
 
-		ei				# release interrupts
-		j	$ra			# transfer back to setjmp()
-		li	$v0, 1			# return value of 1
+                ei                              # release interrupts
+                j       $ra                     # transfer back to setjmp()
+                li      $v0, 1                  # return value of 1

sys/pic32/baremetal/Makefile

@@ -6,7 +6,7 @@ S         = ../../../tools/configsys/../../sys/kernel
 vpath %.c $(M):$(S)
 vpath %.S $(M):$(S)
 
-KERNOBJ += _startup.o clock.o cons.o devcfg.o devsw.o exception.o init_main.o init_sysent.o kern_clock.o kern_descrip.o kern_exec.o kern_exit.o kern_fork.o kern_mman.o kern_proc.o kern_prot.o kern_prot2.o kern_resource.o kern_sig.o kern_sig2.o kern_subr.o kern_synch.o kern_sysctl.o kern_time.o machdep.o mem.o rd_sd.o rdisk.o signal.o spi_bus.o subr_prf.o subr_rmap.o swap.o sys_generic.o sys_inode.o sys_pipe.o sys_process.o syscalls.o sysctl.o tty.o tty_subr.o tty_tty.o uart.o ufs_alloc.o ufs_bio.o ufs_bmap.o ufs_dsort.o ufs_fio.o ufs_inode.o ufs_mount.o ufs_namei.o ufs_subr.o ufs_syscalls.o ufs_syscalls2.o vers.o vfs_vnops.o vm_sched.o vm_swap.o vm_swp.o 
+KERNOBJ += _startup.o clock.o cons.o devcfg.o devsw.o exception.o exec_aout.o exec_conf.o exec_elf.o exec_script.o exec_subr.o init_main.o init_sysent.o kern_clock.o kern_descrip.o kern_exec.o kern_exit.o kern_fork.o kern_mman.o kern_proc.o kern_prot.o kern_prot2.o kern_resource.o kern_sig.o kern_sig2.o kern_subr.o kern_synch.o kern_sysctl.o kern_time.o machdep.o mem.o rd_sd.o rdisk.o signal.o spi_bus.o subr_prf.o subr_rmap.o swap.o sys_generic.o sys_inode.o sys_pipe.o sys_process.o syscalls.o sysctl.o tty.o tty_subr.o tty_tty.o uart.o ufs_alloc.o ufs_bio.o ufs_bmap.o ufs_dsort.o ufs_fio.o ufs_inode.o ufs_mount.o ufs_namei.o ufs_subr.o ufs_syscalls.o ufs_syscalls2.o vers.o vfs_vnops.o vm_sched.o vm_swap.o vm_swp.o 
 EXTRA_TARGETS = 
 
 DEFS += -DBUS_DIV=1
@@ -41,6 +41,9 @@ DEFS += -DDC3_SRS=DEVCFG3_FSRSSEL_7
 DEFS += -DDC3_USBID=DEVCFG3_FUSBIDIO
 DEFS += -DDC3_USERID=0xffff
 DEFS += -DDC3_VBUSON=DEVCFG3_FVBUSONIO
+DEFS += -DEXEC_AOUT
+DEFS += -DEXEC_ELF
+DEFS += -DEXEC_SCRIPT
 DEFS += -DKERNEL
 DEFS += -DLED_DISK_PIN=2
 DEFS += -DLED_DISK_PORT=TRISD

sys/pic32/cfg/kernel.dev

@@ -1,6 +1,9 @@
 always
     define KERNEL
     define UCB_METER
+    define EXEC_AOUT
+    define EXEC_ELF
+    define EXEC_SCRIPT
     file _startup.o
     file clock.o
     file devsw.o
@@ -9,6 +12,11 @@ always
     file machdep.o
     file mem.o
     file exception.o
+    file exec_aout.o
+    file exec_conf.o
+    file exec_elf.o
+    file exec_script.o
+    file exec_subr.o
     file init_main.o
     file init_sysent.o
     file kern_clock.o

sys/pic32/dip/Makefile

@@ -6,7 +6,7 @@ S         = ../../../tools/configsys/../../sys/kernel
 vpath %.c $(M):$(S)
 vpath %.S $(M):$(S)
 
-KERNOBJ += _startup.o clock.o cons.o devsw.o exception.o gpio.o init_main.o init_sysent.o kern_clock.o kern_descrip.o kern_exec.o kern_exit.o kern_fork.o kern_mman.o kern_proc.o kern_prot.o kern_prot2.o kern_resource.o kern_sig.o kern_sig2.o kern_subr.o kern_synch.o kern_sysctl.o kern_time.o machdep.o mem.o rd_sd.o rdisk.o signal.o spi_bus.o subr_prf.o subr_rmap.o swap.o sys_generic.o sys_inode.o sys_pipe.o sys_process.o syscalls.o sysctl.o tty.o tty_subr.o tty_tty.o ufs_alloc.o ufs_bio.o ufs_bmap.o ufs_dsort.o ufs_fio.o ufs_inode.o ufs_mount.o ufs_namei.o ufs_subr.o ufs_syscalls.o ufs_syscalls2.o usb_device.o usb_function_cdc.o usb_uart.o vers.o vfs_vnops.o vm_sched.o vm_swap.o vm_swp.o 
+KERNOBJ += _startup.o clock.o cons.o devsw.o exception.o exec_aout.o exec_conf.o exec_elf.o exec_script.o exec_subr.o gpio.o init_main.o init_sysent.o kern_clock.o kern_descrip.o kern_exec.o kern_exit.o kern_fork.o kern_mman.o kern_proc.o kern_prot.o kern_prot2.o kern_resource.o kern_sig.o kern_sig2.o kern_subr.o kern_synch.o kern_sysctl.o kern_time.o machdep.o mem.o rd_sd.o rdisk.o signal.o spi_bus.o subr_prf.o subr_rmap.o swap.o sys_generic.o sys_inode.o sys_pipe.o sys_process.o syscalls.o sysctl.o tty.o tty_subr.o tty_tty.o ufs_alloc.o ufs_bio.o ufs_bmap.o ufs_dsort.o ufs_fio.o ufs_inode.o ufs_mount.o ufs_namei.o ufs_subr.o ufs_syscalls.o ufs_syscalls2.o usb_device.o usb_function_cdc.o usb_uart.o vers.o vfs_vnops.o vm_sched.o vm_swap.o vm_swp.o 
 EXTRA_TARGETS = bootloader 
 
 DEFS += -DBL_BUTTON_PIN=6
@@ -52,6 +52,9 @@ DEFS += -DDC3_SRS=DEVCFG3_FSRSSEL_7
 DEFS += -DDC3_USBID=DEVCFG3_FUSBIDIO
 DEFS += -DDC3_USERID=0xffff
 DEFS += -DDC3_VBUSON=DEVCFG3_FVBUSONIO
+DEFS += -DEXEC_AOUT
+DEFS += -DEXEC_ELF
+DEFS += -DEXEC_SCRIPT
 DEFS += -DFLASH_JUMP=0x9d000000
 DEFS += -DGPIO_ENABLED=YES
 DEFS += -DHID_FEATURE_REPORT_BYTES=2

sys/pic32/duinomite-uart/Makefile

@@ -6,7 +6,7 @@ S         = ../../../tools/configsys/../../sys/kernel
 vpath %.c $(M):$(S)
 vpath %.S $(M):$(S)
 
-KERNOBJ += _startup.o clock.o cons.o devsw.o exception.o gpio.o init_main.o init_sysent.o kern_clock.o kern_descrip.o kern_exec.o kern_exit.o kern_fork.o kern_mman.o kern_proc.o kern_prot.o kern_prot2.o kern_resource.o kern_sig.o kern_sig2.o kern_subr.o kern_synch.o kern_sysctl.o kern_time.o machdep.o mem.o rd_sd.o rdisk.o signal.o spi_bus.o subr_prf.o subr_rmap.o swap.o sys_generic.o sys_inode.o sys_pipe.o sys_process.o syscalls.o sysctl.o tty.o tty_subr.o tty_tty.o uart.o ufs_alloc.o ufs_bio.o ufs_bmap.o ufs_dsort.o ufs_fio.o ufs_inode.o ufs_mount.o ufs_namei.o ufs_subr.o ufs_syscalls.o ufs_syscalls2.o vers.o vfs_vnops.o vm_sched.o vm_swap.o vm_swp.o 
+KERNOBJ += _startup.o clock.o cons.o devsw.o exception.o exec_aout.o exec_conf.o exec_elf.o exec_script.o exec_subr.o gpio.o init_main.o init_sysent.o kern_clock.o kern_descrip.o kern_exec.o kern_exit.o kern_fork.o kern_mman.o kern_proc.o kern_prot.o kern_prot2.o kern_resource.o kern_sig.o kern_sig2.o kern_subr.o kern_synch.o kern_sysctl.o kern_time.o machdep.o mem.o rd_sd.o rdisk.o signal.o spi_bus.o subr_prf.o subr_rmap.o swap.o sys_generic.o sys_inode.o sys_pipe.o sys_process.o syscalls.o sysctl.o tty.o tty_subr.o tty_tty.o uart.o ufs_alloc.o ufs_bio.o ufs_bmap.o ufs_dsort.o ufs_fio.o ufs_inode.o ufs_mount.o ufs_namei.o ufs_subr.o ufs_syscalls.o ufs_syscalls2.o vers.o vfs_vnops.o vm_sched.o vm_swap.o vm_swp.o 
 EXTRA_TARGETS = 
 
 DEFS += -DBUS_DIV=1
@@ -41,6 +41,9 @@ DEFS += -DDC3_SRS=DEVCFG3_FSRSSEL_7
 DEFS += -DDC3_USBID=DEVCFG3_FUSBIDIO
 DEFS += -DDC3_USERID=0xffff
 DEFS += -DDC3_VBUSON=DEVCFG3_FVBUSONIO
+DEFS += -DEXEC_AOUT
+DEFS += -DEXEC_ELF
+DEFS += -DEXEC_SCRIPT
 DEFS += -DGPIO_ENABLED=YES
 DEFS += -DKERNEL
 DEFS += -DLED_DISK_PIN=12

sys/pic32/duinomite/Makefile

@@ -6,7 +6,7 @@ S         = ../../../tools/configsys/../../sys/kernel
 vpath %.c $(M):$(S)
 vpath %.S $(M):$(S)
 
-KERNOBJ += _startup.o clock.o cons.o devsw.o exception.o gpio.o init_main.o init_sysent.o kern_clock.o kern_descrip.o kern_exec.o kern_exit.o kern_fork.o kern_mman.o kern_proc.o kern_prot.o kern_prot2.o kern_resource.o kern_sig.o kern_sig2.o kern_subr.o kern_synch.o kern_sysctl.o kern_time.o machdep.o mem.o rd_sd.o rdisk.o signal.o spi_bus.o subr_prf.o subr_rmap.o swap.o sys_generic.o sys_inode.o sys_pipe.o sys_process.o syscalls.o sysctl.o tty.o tty_subr.o tty_tty.o ufs_alloc.o ufs_bio.o ufs_bmap.o ufs_dsort.o ufs_fio.o ufs_inode.o ufs_mount.o ufs_namei.o ufs_subr.o ufs_syscalls.o ufs_syscalls2.o usb_device.o usb_function_cdc.o usb_uart.o vers.o vfs_vnops.o vm_sched.o vm_swap.o vm_swp.o 
+KERNOBJ += _startup.o clock.o cons.o devsw.o exception.o exec_aout.o exec_conf.o exec_elf.o exec_script.o exec_subr.o gpio.o init_main.o init_sysent.o kern_clock.o kern_descrip.o kern_exec.o kern_exit.o kern_fork.o kern_mman.o kern_proc.o kern_prot.o kern_prot2.o kern_resource.o kern_sig.o kern_sig2.o kern_subr.o kern_synch.o kern_sysctl.o kern_time.o machdep.o mem.o rd_sd.o rdisk.o signal.o spi_bus.o subr_prf.o subr_rmap.o swap.o sys_generic.o sys_inode.o sys_pipe.o sys_process.o syscalls.o sysctl.o tty.o tty_subr.o tty_tty.o ufs_alloc.o ufs_bio.o ufs_bmap.o ufs_dsort.o ufs_fio.o ufs_inode.o ufs_mount.o ufs_namei.o ufs_subr.o ufs_syscalls.o ufs_syscalls2.o usb_device.o usb_function_cdc.o usb_uart.o vers.o vfs_vnops.o vm_sched.o vm_swap.o vm_swp.o 
 EXTRA_TARGETS = 
 
 DEFS += -DBUS_DIV=1
@@ -41,6 +41,9 @@ DEFS += -DDC3_SRS=DEVCFG3_FSRSSEL_7
 DEFS += -DDC3_USBID=DEVCFG3_FUSBIDIO
 DEFS += -DDC3_USERID=0xffff
 DEFS += -DDC3_VBUSON=DEVCFG3_FVBUSONIO
+DEFS += -DEXEC_AOUT
+DEFS += -DEXEC_ELF
+DEFS += -DEXEC_SCRIPT
 DEFS += -DGPIO_ENABLED=YES
 DEFS += -DKERNEL
 DEFS += -DLED_DISK_PIN=12

sys/pic32/elf_machdep.h

@@ -0,0 +1,88 @@
+/*	$NetBSD: elf_machdep.h,v 1.7 2000/04/02 15:35:50 minoura Exp $	*/
+
+#define	ELF_MACHDEP_ID_CASES						\
+		case EM_MIPS:						\
+			break;
+
+#define ARCH_ELFSIZE		32	/* MD native binary size */
+
+/* mips relocs.  */
+
+#define R_MIPS_NONE		0
+#define R_MIPS_16		1
+#define R_MIPS_32		2
+#define R_MIPS_REL32		3
+#define R_MIPS_REL		R_MIPS_REL32
+#define R_MIPS_26		4
+#define R_MIPS_HI16		5	/* high 16 bits of symbol value */
+#define R_MIPS_LO16		6	/* low 16 bits of symbol value */
+#define R_MIPS_GPREL16		7  	/* GP-relative reference  */
+#define R_MIPS_LITERAL		8 	/* Reference to literal section  */
+#define R_MIPS_GOT16		9	/* Reference to global offset table */
+#define R_MIPS_GOT		R_MIPS_GOT16
+#define R_MIPS_PC16		10  	/* 16 bit PC relative reference */
+#define R_MIPS_CALL16 		11  	/* 16 bit call thru glbl offset tbl */
+#define R_MIPS_CALL		R_MIPS_CALL16
+#define R_MIPS_GPREL32		12
+
+/* 13, 14, 15 are not defined at this point. */
+#define R_MIPS_UNUSED1		13
+#define R_MIPS_UNUSED2		14
+#define R_MIPS_UNUSED3		15
+
+/*
+ * The remaining relocs are apparently part of the 64-bit Irix ELF ABI.
+ */
+#define R_MIPS_SHIFT5		16
+#define R_MIPS_SHIFT6		17
+
+#define R_MIPS_64		18
+#define R_MIPS_GOT_DISP		19
+#define R_MIPS_GOT_PAGE		20
+#define R_MIPS_GOT_OFST		21
+#define R_MIPS_GOT_HI16		22
+#define R_MIPS_GOT_LO16		23
+#define R_MIPS_SUB 		24
+#define R_MIPS_INSERT_A		25
+#define R_MIPS_INSERT_B		26
+#define R_MIPS_DELETE		27
+#define R_MIPS_HIGHER		28
+#define R_MIPS_HIGHEST		29
+#define R_MIPS_CALL_HI16	30
+#define R_MIPS_CALL_LO16	31
+#define R_MIPS_SCN_DISP		32
+#define R_MIPS_REL16		33
+#define R_MIPS_ADD_IMMEDIATE	34
+#define R_MIPS_PJUMP		35
+#define R_MIPS_RELGOT		36
+
+#define R_MIPS_max		37
+#define R_TYPE(name)		__CONCAT(R_MIPS_,name)
+
+
+/* mips dynamic tags */
+
+#define DT_MIPS_RLD_VERSION	0x70000001
+#define DT_MIPS_TIME_STAMP	0x70000002
+#define DT_MIPS_ICHECKSUM	0x70000003
+#define DT_MIPS_IVERSION	0x70000004
+#define DT_MIPS_FLAGS		0x70000005
+#define DT_MIPS_BASE_ADDRESS	0x70000006
+#define DT_MIPS_CONFLICT	0x70000008
+#define DT_MIPS_LIBLIST		0x70000009
+#define DT_MIPS_CONFLICTNO	0x7000000b
+#define	DT_MIPS_LOCAL_GOTNO	0x7000000a	/* number of local got ents */
+#define DT_MIPS_LIBLISTNO	0x70000010
+#define	DT_MIPS_SYMTABNO	0x70000011	/* number of .dynsym entries */
+#define DT_MIPS_UNREFEXTNO	0x70000012
+#define	DT_MIPS_GOTSYM		0x70000013	/* first dynamic sym in got */
+#define DT_MIPS_HIPAGENO	0x70000014
+#define	DT_MIPS_RLD_MAP		0x70000016	/* address of loader map */
+
+/*
+ * Tell the kernel ELF exec code not to try relocating the interpreter
+ * (ld.so) for dynamically-linked ELF binaries.
+ */
+#ifdef _KERNEL
+#define ELF_INTERP_NON_RELOCATABLE
+#endif

sys/pic32/explorer16/Makefile

@@ -6,7 +6,7 @@ S         = ../../../tools/configsys/../../sys/kernel
 vpath %.c $(M):$(S)
 vpath %.S $(M):$(S)
 
-KERNOBJ += _startup.o clock.o cons.o devcfg.o devsw.o exception.o gpio.o init_main.o init_sysent.o kern_clock.o kern_descrip.o kern_exec.o kern_exit.o kern_fork.o kern_mman.o kern_proc.o kern_prot.o kern_prot2.o kern_resource.o kern_sig.o kern_sig2.o kern_subr.o kern_synch.o kern_sysctl.o kern_time.o machdep.o mem.o rd_sd.o rdisk.o signal.o spi_bus.o subr_prf.o subr_rmap.o swap.o sys_generic.o sys_inode.o sys_pipe.o sys_process.o syscalls.o sysctl.o tty.o tty_subr.o tty_tty.o uart.o ufs_alloc.o ufs_bio.o ufs_bmap.o ufs_dsort.o ufs_fio.o ufs_inode.o ufs_mount.o ufs_namei.o ufs_subr.o ufs_syscalls.o ufs_syscalls2.o vers.o vfs_vnops.o vm_sched.o vm_swap.o vm_swp.o 
+KERNOBJ += _startup.o clock.o cons.o devcfg.o devsw.o exception.o exec_aout.o exec_conf.o exec_elf.o exec_script.o exec_subr.o gpio.o init_main.o init_sysent.o kern_clock.o kern_descrip.o kern_exec.o kern_exit.o kern_fork.o kern_mman.o kern_proc.o kern_prot.o kern_prot2.o kern_resource.o kern_sig.o kern_sig2.o kern_subr.o kern_synch.o kern_sysctl.o kern_time.o machdep.o mem.o rd_sd.o rdisk.o signal.o spi_bus.o subr_prf.o subr_rmap.o swap.o sys_generic.o sys_inode.o sys_pipe.o sys_process.o syscalls.o sysctl.o tty.o tty_subr.o tty_tty.o uart.o ufs_alloc.o ufs_bio.o ufs_bmap.o ufs_dsort.o ufs_fio.o ufs_inode.o ufs_mount.o ufs_namei.o ufs_subr.o ufs_syscalls.o ufs_syscalls2.o vers.o vfs_vnops.o vm_sched.o vm_swap.o vm_swp.o 
 EXTRA_TARGETS = 
 
 DEFS += -DBUS_DIV=1
@@ -41,6 +41,9 @@ DEFS += -DDC3_SRS=DEVCFG3_FSRSSEL_7
 DEFS += -DDC3_USBID=DEVCFG3_FUSBIDIO
 DEFS += -DDC3_USERID=0xffff
 DEFS += -DDC3_VBUSON=DEVCFG3_FVBUSONIO
+DEFS += -DEXEC_AOUT
+DEFS += -DEXEC_ELF
+DEFS += -DEXEC_SCRIPT
 DEFS += -DGPIO_ENABLED=YES
 DEFS += -DKERNEL
 DEFS += -DLED_DISK_PIN=0

sys/pic32/fubarino/Makefile

@@ -6,7 +6,7 @@ S         = ../../../tools/configsys/../../sys/kernel
 vpath %.c $(M):$(S)
 vpath %.S $(M):$(S)
 
-KERNOBJ += _startup.o adc.o clock.o cons.o devsw.o exception.o glcd.o gpio.o init_main.o init_sysent.o kern_clock.o kern_descrip.o kern_exec.o kern_exit.o kern_fork.o kern_mman.o kern_proc.o kern_prot.o kern_prot2.o kern_resource.o kern_sig.o kern_sig2.o kern_subr.o kern_synch.o kern_sysctl.o kern_time.o machdep.o mem.o oc.o rd_sd.o rdisk.o signal.o spi_bus.o subr_prf.o subr_rmap.o swap.o sys_generic.o sys_inode.o sys_pipe.o sys_process.o syscalls.o sysctl.o tty.o tty_subr.o tty_tty.o ufs_alloc.o ufs_bio.o ufs_bmap.o ufs_dsort.o ufs_fio.o ufs_inode.o ufs_mount.o ufs_namei.o ufs_subr.o ufs_syscalls.o ufs_syscalls2.o usb_device.o usb_function_cdc.o usb_uart.o vers.o vfs_vnops.o vm_sched.o vm_swap.o vm_swp.o 
+KERNOBJ += _startup.o adc.o clock.o cons.o devsw.o exception.o exec_aout.o exec_conf.o exec_elf.o exec_script.o exec_subr.o glcd.o gpio.o init_main.o init_sysent.o kern_clock.o kern_descrip.o kern_exec.o kern_exit.o kern_fork.o kern_mman.o kern_proc.o kern_prot.o kern_prot2.o kern_resource.o kern_sig.o kern_sig2.o kern_subr.o kern_synch.o kern_sysctl.o kern_time.o machdep.o mem.o oc.o rd_sd.o rdisk.o signal.o spi_bus.o subr_prf.o subr_rmap.o swap.o sys_generic.o sys_inode.o sys_pipe.o sys_process.o syscalls.o sysctl.o tty.o tty_subr.o tty_tty.o ufs_alloc.o ufs_bio.o ufs_bmap.o ufs_dsort.o ufs_fio.o ufs_inode.o ufs_mount.o ufs_namei.o ufs_subr.o ufs_syscalls.o ufs_syscalls2.o usb_device.o usb_function_cdc.o usb_uart.o vers.o vfs_vnops.o vm_sched.o vm_swap.o vm_swp.o 
 EXTRA_TARGETS = bootloader 
 
 DEFS += -DADC_ENABLED=YES
@@ -47,6 +47,9 @@ DEFS += -DDC3_SRS=DEVCFG3_FSRSSEL_7
 DEFS += -DDC3_USBID=DEVCFG3_FUSBIDIO
 DEFS += -DDC3_USERID=0xffff
 DEFS += -DDC3_VBUSON=DEVCFG3_FVBUSONIO
+DEFS += -DEXEC_AOUT
+DEFS += -DEXEC_ELF
+DEFS += -DEXEC_SCRIPT
 DEFS += -DFLASH_JUMP=0x9d000000
 DEFS += -DGLCD_ENABLED=YES
 DEFS += -DGPIO_ENABLED=YES

sys/pic32/gcc-config.mk

@@ -1,7 +1,7 @@
 # chipKIT PIC32 compiler from UECIDE
 ifdef UECIDE
 ifndef GCCPREFIX
-    GCCPREFIX   = ${HOME}/.uecide/compilers/pic32-tools/bin/pic32-
+    GCCPREFIX   = ${UECIDE}/compilers/pic32-tools/bin/pic32-
     LDFLAGS     = -Wl,--oformat=elf32-tradlittlemips
 endif
 endif
@@ -15,18 +15,37 @@ endif
 # MPLABX C32 compiler doesn't support some functionality
 # we need, so use chipKIT compiler by default.
 ifndef GCCPREFIX
+ifeq (/usr/local/pic32-tools/bin/pic32-gcc,$(wildcard /usr/local/pic32-tools/bin/pic32-gcc))
     GCCPREFIX   = /usr/local/pic32-tools/bin/pic32-
     LDFLAGS     = -Wl,--oformat=elf32-tradlittlemips
 endif
+endif
 
 # Generic MIPS toolchain
 # ~~~~~~~~~~~~~~~~~~~~~~
 # You can build it from sources, as described on page
 # http://retrobsd.org/wiki/doku.php/doc/toolchain-mips
 ifndef GCCPREFIX
-    GCCPREFIX   = /usr/local/mips-gcc-4.7.2/bin/mips-elf-
+ifeq (/usr/local/mips-gcc-4.8.1/bin/mips-elf-gcc,$(wildcard /usr/local/mips-gcc-4.8.1/bin/mips-elf-gcc))
+    GCCPREFIX   = /usr/local/mips-gcc-4.8.1/bin/mips-elf-
     LDFLAGS     =
 endif
+endif
+
+# Mentor Sourcery CodeBench Lite toolchain
+# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+# You can download a Linux or Windows binary package from
+# https://sourcery.mentor.com/GNUToolchain/release2641
+ifndef GCCPREFIX
+ifeq (/usr/local/mips-2013.11/bin/mips-sde-elf-gcc,$(wildcard /usr/local/mips-2013.11/bin/mips-sde-elf-gcc))
+    GCCPREFIX   = /usr/local/mips-2013.11/bin/mips-sde-elf-
+    LDFLAGS     = -Wl,--oformat=elf32-tradlittlemips
+endif
+endif
+
+ifndef GCCPREFIX
+    $(error Unable to locate any GCC MIPS toolchain!)
+endif
 
 # chipKIT MPIDE on Mac OS X
 ifneq (,$(wildcard /Applications/Mpide.app/Contents/Resources/Java/hardware/tools/avr))

sys/pic32/machdep.c

@@ -194,22 +194,38 @@ startup()
 	 */
 	INTCON = 0;				/* Interrupt Control */
 	IPTMR = 0;				/* Temporal Proximity Timer */
-	IFS(0) =
-		PIC32_IPC_IP0(2) | PIC32_IPC_IP1(1) |
-		PIC32_IPC_IP2(1) | PIC32_IPC_IP3(1) |
-		PIC32_IPC_IS0(0) | PIC32_IPC_IS1(0) |
-		PIC32_IPC_IS2(0) | PIC32_IPC_IS3(0) ;
 
-    IFS(1) = IFS(2) = 0;		/* Interrupt Flag Status */
-	IEC(0) = IEC(1) = IEC(2) = 0;		/* Interrupt Enable Control */
-	IPC(0) = IPC(1) = IPC(2) = IPC(3) = 	/* Interrupt Priority Control */
-	IPC(4) = IPC(5) = IPC(6) = IPC(7) =
-	IPC(8) = IPC(9) = IPC(10) = IPC(11) =
-	IPC(12) =
-		PIC32_IPC_IP0(1) | PIC32_IPC_IP1(1) |
-		PIC32_IPC_IP2(1) | PIC32_IPC_IP3(1) |
-		PIC32_IPC_IS0(0) | PIC32_IPC_IS1(0) |
-		PIC32_IPC_IS2(0) | PIC32_IPC_IS3(0) ;
+        /* Interrupt Flag Status */
+        IFS(0) = PIC32_IPC_IP0(2) | PIC32_IPC_IP1(1) |
+                 PIC32_IPC_IP2(1) | PIC32_IPC_IP3(1) |
+                 PIC32_IPC_IS0(0) | PIC32_IPC_IS1(0) |
+                 PIC32_IPC_IS2(0) | PIC32_IPC_IS3(0) ;
+        IFS(1) = 0;
+        IFS(2) = 0;
+
+        /* Interrupt Enable Control */
+        IEC(0) = 0;
+        IEC(1) = 0;
+        IEC(2) = 0;
+
+        /* Interrupt Priority Control */
+        unsigned ipc = PIC32_IPC_IP0(1) | PIC32_IPC_IP1(1) |
+                       PIC32_IPC_IP2(1) | PIC32_IPC_IP3(1) |
+                       PIC32_IPC_IS0(0) | PIC32_IPC_IS1(0) |
+                       PIC32_IPC_IS2(0) | PIC32_IPC_IS3(0) ;
+        IPC(0) = ipc;
+        IPC(1) = ipc;
+        IPC(2) = ipc;
+        IPC(3) = ipc;
+        IPC(4) = ipc;
+        IPC(5) = ipc;
+        IPC(6) = ipc;
+        IPC(7) = ipc;
+        IPC(8) = ipc;
+        IPC(9) = ipc;
+        IPC(10) = ipc;
+        IPC(11) = ipc;
+        IPC(12) = ipc;
 
         /*
          * Setup wait states.

sys/pic32/max32-eth/Makefile

@@ -6,7 +6,7 @@ S         = ../../../tools/configsys/../../sys/kernel
 vpath %.c $(M):$(S)
 vpath %.S $(M):$(S)
 
-KERNOBJ += _startup.o adc.o clock.o cons.o devsw.o exception.o gpio.o init_main.o init_sysent.o kern_clock.o kern_descrip.o kern_exec.o kern_exit.o kern_fork.o kern_mman.o kern_proc.o kern_prot.o kern_prot2.o kern_resource.o kern_sig.o kern_sig2.o kern_subr.o kern_synch.o kern_sysctl.o kern_time.o machdep.o mem.o rd_sd.o rdisk.o signal.o spi.o spi_bus.o subr_prf.o subr_rmap.o swap.o sys_generic.o sys_inode.o sys_pipe.o sys_process.o syscalls.o sysctl.o tty.o tty_subr.o tty_tty.o uart.o ufs_alloc.o ufs_bio.o ufs_bmap.o ufs_dsort.o ufs_fio.o ufs_inode.o ufs_mount.o ufs_namei.o ufs_subr.o ufs_syscalls.o ufs_syscalls2.o vers.o vfs_vnops.o vm_sched.o vm_swap.o vm_swp.o 
+KERNOBJ += _startup.o adc.o clock.o cons.o devsw.o exception.o exec_aout.o exec_conf.o exec_elf.o exec_script.o exec_subr.o gpio.o init_main.o init_sysent.o kern_clock.o kern_descrip.o kern_exec.o kern_exit.o kern_fork.o kern_mman.o kern_proc.o kern_prot.o kern_prot2.o kern_resource.o kern_sig.o kern_sig2.o kern_subr.o kern_synch.o kern_sysctl.o kern_time.o machdep.o mem.o rd_sd.o rdisk.o signal.o spi.o spi_bus.o subr_prf.o subr_rmap.o swap.o sys_generic.o sys_inode.o sys_pipe.o sys_process.o syscalls.o sysctl.o tty.o tty_subr.o tty_tty.o uart.o ufs_alloc.o ufs_bio.o ufs_bmap.o ufs_dsort.o ufs_fio.o ufs_inode.o ufs_mount.o ufs_namei.o ufs_subr.o ufs_syscalls.o ufs_syscalls2.o vers.o vfs_vnops.o vm_sched.o vm_swap.o vm_swp.o 
 EXTRA_TARGETS = 
 
 DEFS += -DADC_ENABLED=YES
@@ -42,6 +42,9 @@ DEFS += -DDC3_SRS=DEVCFG3_FSRSSEL_7
 DEFS += -DDC3_USBID=DEVCFG3_FUSBIDIO
 DEFS += -DDC3_USERID=0xffff
 DEFS += -DDC3_VBUSON=DEVCFG3_FVBUSONIO
+DEFS += -DEXEC_AOUT
+DEFS += -DEXEC_ELF
+DEFS += -DEXEC_SCRIPT
 DEFS += -DGPIO_ENABLED=YES
 DEFS += -DKERNEL
 DEFS += -DLED_KERNEL_PIN=3

sys/pic32/max32/Makefile

@@ -6,7 +6,7 @@ S         = ../../../tools/configsys/../../sys/kernel
 vpath %.c $(M):$(S)
 vpath %.S $(M):$(S)
 
-KERNOBJ += _startup.o adc.o clock.o cons.o devsw.o exception.o gpio.o init_main.o init_sysent.o kern_clock.o kern_descrip.o kern_exec.o kern_exit.o kern_fork.o kern_mman.o kern_proc.o kern_prot.o kern_prot2.o kern_resource.o kern_sig.o kern_sig2.o kern_subr.o kern_synch.o kern_sysctl.o kern_time.o machdep.o mem.o rd_sd.o rdisk.o signal.o spi_bus.o subr_prf.o subr_rmap.o swap.o sys_generic.o sys_inode.o sys_pipe.o sys_process.o syscalls.o sysctl.o tty.o tty_subr.o tty_tty.o uart.o ufs_alloc.o ufs_bio.o ufs_bmap.o ufs_dsort.o ufs_fio.o ufs_inode.o ufs_mount.o ufs_namei.o ufs_subr.o ufs_syscalls.o ufs_syscalls2.o vers.o vfs_vnops.o vm_sched.o vm_swap.o vm_swp.o 
+KERNOBJ += _startup.o adc.o clock.o cons.o devsw.o exception.o exec_aout.o exec_conf.o exec_elf.o exec_script.o exec_subr.o gpio.o init_main.o init_sysent.o kern_clock.o kern_descrip.o kern_exec.o kern_exit.o kern_fork.o kern_mman.o kern_proc.o kern_prot.o kern_prot2.o kern_resource.o kern_sig.o kern_sig2.o kern_subr.o kern_synch.o kern_sysctl.o kern_time.o machdep.o mem.o rd_sd.o rdisk.o signal.o spi_bus.o subr_prf.o subr_rmap.o swap.o sys_generic.o sys_inode.o sys_pipe.o sys_process.o syscalls.o sysctl.o tty.o tty_subr.o tty_tty.o uart.o ufs_alloc.o ufs_bio.o ufs_bmap.o ufs_dsort.o ufs_fio.o ufs_inode.o ufs_mount.o ufs_namei.o ufs_subr.o ufs_syscalls.o ufs_syscalls2.o vers.o vfs_vnops.o vm_sched.o vm_swap.o vm_swp.o 
 EXTRA_TARGETS = 
 
 DEFS += -DADC_ENABLED=YES
@@ -42,6 +42,9 @@ DEFS += -DDC3_SRS=DEVCFG3_FSRSSEL_7
 DEFS += -DDC3_USBID=DEVCFG3_FUSBIDIO
 DEFS += -DDC3_USERID=0xffff
 DEFS += -DDC3_VBUSON=DEVCFG3_FVBUSONIO
+DEFS += -DEXEC_AOUT
+DEFS += -DEXEC_ELF
+DEFS += -DEXEC_SCRIPT
 DEFS += -DGPIO_ENABLED=YES
 DEFS += -DKERNEL
 DEFS += -DLED_DISK_PIN=10

sys/pic32/maximite/Makefile

@@ -6,7 +6,7 @@ S         = ../../../tools/configsys/../../sys/kernel
 vpath %.c $(M):$(S)
 vpath %.S $(M):$(S)
 
-KERNOBJ += _startup.o clock.o cons.o devsw.o exception.o gpio.o init_main.o init_sysent.o kern_clock.o kern_descrip.o kern_exec.o kern_exit.o kern_fork.o kern_mman.o kern_proc.o kern_prot.o kern_prot2.o kern_resource.o kern_sig.o kern_sig2.o kern_subr.o kern_synch.o kern_sysctl.o kern_time.o machdep.o mem.o rd_sd.o rdisk.o signal.o spi_bus.o subr_prf.o subr_rmap.o swap.o sys_generic.o sys_inode.o sys_pipe.o sys_process.o syscalls.o sysctl.o tty.o tty_subr.o tty_tty.o ufs_alloc.o ufs_bio.o ufs_bmap.o ufs_dsort.o ufs_fio.o ufs_inode.o ufs_mount.o ufs_namei.o ufs_subr.o ufs_syscalls.o ufs_syscalls2.o usb_device.o usb_function_cdc.o usb_uart.o vers.o vfs_vnops.o vm_sched.o vm_swap.o vm_swp.o 
+KERNOBJ += _startup.o clock.o cons.o devsw.o exception.o exec_aout.o exec_conf.o exec_elf.o exec_script.o exec_subr.o gpio.o init_main.o init_sysent.o kern_clock.o kern_descrip.o kern_exec.o kern_exit.o kern_fork.o kern_mman.o kern_proc.o kern_prot.o kern_prot2.o kern_resource.o kern_sig.o kern_sig2.o kern_subr.o kern_synch.o kern_sysctl.o kern_time.o machdep.o mem.o rd_sd.o rdisk.o signal.o spi_bus.o subr_prf.o subr_rmap.o swap.o sys_generic.o sys_inode.o sys_pipe.o sys_process.o syscalls.o sysctl.o tty.o tty_subr.o tty_tty.o ufs_alloc.o ufs_bio.o ufs_bmap.o ufs_dsort.o ufs_fio.o ufs_inode.o ufs_mount.o ufs_namei.o ufs_subr.o ufs_syscalls.o ufs_syscalls2.o usb_device.o usb_function_cdc.o usb_uart.o vers.o vfs_vnops.o vm_sched.o vm_swap.o vm_swp.o 
 EXTRA_TARGETS = bootloader 
 
 DEFS += -DBL_BUTTON_PIN=13
@@ -47,6 +47,9 @@ DEFS += -DDC3_SRS=DEVCFG3_FSRSSEL_7
 DEFS += -DDC3_USBID=DEVCFG3_FUSBIDIO
 DEFS += -DDC3_USERID=0xffff
 DEFS += -DDC3_VBUSON=DEVCFG3_FVBUSONIO
+DEFS += -DEXEC_AOUT
+DEFS += -DEXEC_ELF
+DEFS += -DEXEC_SCRIPT
 DEFS += -DFLASH_USER=0x1d003000
 DEFS += -DGPIO_ENABLED=YES
 DEFS += -DHID_FEATURE_REPORT_BYTES=2

sys/pic32/meb/Makefile

@@ -6,7 +6,7 @@ S         = ../../../tools/configsys/../../sys/kernel
 vpath %.c $(M):$(S)
 vpath %.S $(M):$(S)
 
-KERNOBJ += _startup.o clock.o cons.o devcfg.o devsw.o exception.o gpio.o init_main.o init_sysent.o kern_clock.o kern_descrip.o kern_exec.o kern_exit.o kern_fork.o kern_mman.o kern_proc.o kern_prot.o kern_prot2.o kern_resource.o kern_sig.o kern_sig2.o kern_subr.o kern_synch.o kern_sysctl.o kern_time.o machdep.o mem.o rd_sd.o rdisk.o signal.o spi_bus.o subr_prf.o subr_rmap.o swap.o sys_generic.o sys_inode.o sys_pipe.o sys_process.o syscalls.o sysctl.o tty.o tty_subr.o tty_tty.o ufs_alloc.o ufs_bio.o ufs_bmap.o ufs_dsort.o ufs_fio.o ufs_inode.o ufs_mount.o ufs_namei.o ufs_subr.o ufs_syscalls.o ufs_syscalls2.o usb_device.o usb_function_cdc.o usb_uart.o vers.o vfs_vnops.o vm_sched.o vm_swap.o vm_swp.o 
+KERNOBJ += _startup.o clock.o cons.o devcfg.o devsw.o exception.o exec_aout.o exec_conf.o exec_elf.o exec_script.o exec_subr.o gpio.o init_main.o init_sysent.o kern_clock.o kern_descrip.o kern_exec.o kern_exit.o kern_fork.o kern_mman.o kern_proc.o kern_prot.o kern_prot2.o kern_resource.o kern_sig.o kern_sig2.o kern_subr.o kern_synch.o kern_sysctl.o kern_time.o machdep.o mem.o rd_sd.o rdisk.o signal.o spi_bus.o subr_prf.o subr_rmap.o swap.o sys_generic.o sys_inode.o sys_pipe.o sys_process.o syscalls.o sysctl.o tty.o tty_subr.o tty_tty.o ufs_alloc.o ufs_bio.o ufs_bmap.o ufs_dsort.o ufs_fio.o ufs_inode.o ufs_mount.o ufs_namei.o ufs_subr.o ufs_syscalls.o ufs_syscalls2.o usb_device.o usb_function_cdc.o usb_uart.o vers.o vfs_vnops.o vm_sched.o vm_swap.o vm_swp.o 
 EXTRA_TARGETS = 
 
 DEFS += -DBUS_DIV=1
@@ -41,6 +41,9 @@ DEFS += -DDC3_SRS=DEVCFG3_FSRSSEL_7
 DEFS += -DDC3_USBID=DEVCFG3_FUSBIDIO
 DEFS += -DDC3_USERID=0xffff
 DEFS += -DDC3_VBUSON=DEVCFG3_FVBUSONIO
+DEFS += -DEXEC_AOUT
+DEFS += -DEXEC_ELF
+DEFS += -DEXEC_SCRIPT
 DEFS += -DGPIO_ENABLED=YES
 DEFS += -DKERNEL
 DEFS += -DLED_DISK_PIN=1

sys/pic32/mmb-mx7/Makefile

@@ -6,7 +6,7 @@ S         = ../../../tools/configsys/../../sys/kernel
 vpath %.c $(M):$(S)
 vpath %.S $(M):$(S)
 
-KERNOBJ += _startup.o adc.o clock.o cons.o devsw.o exception.o gpio.o init_main.o init_sysent.o kern_clock.o kern_descrip.o kern_exec.o kern_exit.o kern_fork.o kern_mman.o kern_proc.o kern_prot.o kern_prot2.o kern_resource.o kern_sig.o kern_sig2.o kern_subr.o kern_synch.o kern_sysctl.o kern_time.o machdep.o mem.o rd_sd.o rdisk.o signal.o spi_bus.o subr_prf.o subr_rmap.o swap.o sys_generic.o sys_inode.o sys_pipe.o sys_process.o syscalls.o sysctl.o tty.o tty_subr.o tty_tty.o uart.o ufs_alloc.o ufs_bio.o ufs_bmap.o ufs_dsort.o ufs_fio.o ufs_inode.o ufs_mount.o ufs_namei.o ufs_subr.o ufs_syscalls.o ufs_syscalls2.o usb_device.o usb_function_cdc.o usb_uart.o vers.o vfs_vnops.o vm_sched.o vm_swap.o vm_swp.o 
+KERNOBJ += _startup.o adc.o clock.o cons.o devsw.o exception.o exec_aout.o exec_conf.o exec_elf.o exec_script.o exec_subr.o gpio.o init_main.o init_sysent.o kern_clock.o kern_descrip.o kern_exec.o kern_exit.o kern_fork.o kern_mman.o kern_proc.o kern_prot.o kern_prot2.o kern_resource.o kern_sig.o kern_sig2.o kern_subr.o kern_synch.o kern_sysctl.o kern_time.o machdep.o mem.o rd_sd.o rdisk.o signal.o spi_bus.o subr_prf.o subr_rmap.o swap.o sys_generic.o sys_inode.o sys_pipe.o sys_process.o syscalls.o sysctl.o tty.o tty_subr.o tty_tty.o uart.o ufs_alloc.o ufs_bio.o ufs_bmap.o ufs_dsort.o ufs_fio.o ufs_inode.o ufs_mount.o ufs_namei.o ufs_subr.o ufs_syscalls.o ufs_syscalls2.o usb_device.o usb_function_cdc.o usb_uart.o vers.o vfs_vnops.o vm_sched.o vm_swap.o vm_swp.o 
 EXTRA_TARGETS = bootloader 
 
 DEFS += -DADC_ENABLED=YES
@@ -56,6 +56,9 @@ DEFS += -DDC3_SRS=DEVCFG3_FSRSSEL_7
 DEFS += -DDC3_USBID=DEVCFG3_FUSBIDIO
 DEFS += -DDC3_USERID=0xffff
 DEFS += -DDC3_VBUSON=DEVCFG3_FVBUSONIO
+DEFS += -DEXEC_AOUT
+DEFS += -DEXEC_ELF
+DEFS += -DEXEC_SCRIPT
 DEFS += -DFLASH_JUMP=0x9d000000
 DEFS += -DGPIO_CLEAR_PIN=2
 DEFS += -DGPIO_CLEAR_PORT=TRISD

sys/pic32/pic32mx.h

@@ -27,6 +27,7 @@
 /*--------------------------------------
  * Coprocessor 0 registers.
  */
+#ifndef __ASSEMBLER__
 #define C0_HWRENA	7	/* Enable RDHWR in non-privileged mode */
 #define C0_BADVADDR	8	/* Virtual address of last exception */
 #define C0_COUNT	9	/* Processor cycle count */
@@ -47,6 +48,7 @@
 #define C0_DEPC		24	/* Program counter at last debug exception */
 #define C0_ERROREPC	30	/* Program counter at last error */
 #define C0_DESAVE	31	/* Debug handler scratchpad register */
+#endif
 
 /*
  * Status register.

sys/pic32/pinguino-micro/Makefile

@@ -6,7 +6,7 @@ S         = ../../../tools/configsys/../../sys/kernel
 vpath %.c $(M):$(S)
 vpath %.S $(M):$(S)
 
-KERNOBJ += _startup.o adc.o clock.o cons.o devsw.o exception.o gpio.o init_main.o init_sysent.o kern_clock.o kern_descrip.o kern_exec.o kern_exit.o kern_fork.o kern_mman.o kern_proc.o kern_prot.o kern_prot2.o kern_resource.o kern_sig.o kern_sig2.o kern_subr.o kern_synch.o kern_sysctl.o kern_time.o machdep.o mem.o rd_sd.o rdisk.o signal.o spi_bus.o subr_prf.o subr_rmap.o swap.o sys_generic.o sys_inode.o sys_pipe.o sys_process.o syscalls.o sysctl.o tty.o tty_subr.o tty_tty.o ufs_alloc.o ufs_bio.o ufs_bmap.o ufs_dsort.o ufs_fio.o ufs_inode.o ufs_mount.o ufs_namei.o ufs_subr.o ufs_syscalls.o ufs_syscalls2.o usb_device.o usb_function_cdc.o usb_uart.o vers.o vfs_vnops.o vm_sched.o vm_swap.o vm_swp.o 
+KERNOBJ += _startup.o adc.o clock.o cons.o devsw.o exception.o exec_aout.o exec_conf.o exec_elf.o exec_script.o exec_subr.o gpio.o init_main.o init_sysent.o kern_clock.o kern_descrip.o kern_exec.o kern_exit.o kern_fork.o kern_mman.o kern_proc.o kern_prot.o kern_prot2.o kern_resource.o kern_sig.o kern_sig2.o kern_subr.o kern_synch.o kern_sysctl.o kern_time.o machdep.o mem.o rd_sd.o rdisk.o signal.o spi_bus.o subr_prf.o subr_rmap.o swap.o sys_generic.o sys_inode.o sys_pipe.o sys_process.o syscalls.o sysctl.o tty.o tty_subr.o tty_tty.o ufs_alloc.o ufs_bio.o ufs_bmap.o ufs_dsort.o ufs_fio.o ufs_inode.o ufs_mount.o ufs_namei.o ufs_subr.o ufs_syscalls.o ufs_syscalls2.o usb_device.o usb_function_cdc.o usb_uart.o vers.o vfs_vnops.o vm_sched.o vm_swap.o vm_swp.o 
 EXTRA_TARGETS = bootloader 
 
 DEFS += -DADC_ENABLED=YES
@@ -46,6 +46,9 @@ DEFS += -DDC3_SRS=DEVCFG3_FSRSSEL_7
 DEFS += -DDC3_USBID=DEVCFG3_FUSBIDIO
 DEFS += -DDC3_USERID=0xffff
 DEFS += -DDC3_VBUSON=DEVCFG3_FVBUSONIO
+DEFS += -DEXEC_AOUT
+DEFS += -DEXEC_ELF
+DEFS += -DEXEC_SCRIPT
 DEFS += -DFLASH_USER=0x1d005000
 DEFS += -DGPIO_ENABLED=YES
 DEFS += -DHID_FEATURE_REPORT_BYTES=2

sys/pic32/spi_bus.c

@@ -103,7 +103,7 @@ void spi_close(int dno)
 
     if(spi_devices[dno].bus==NULL)
         return;
-   
+
     if (spi_devices[dno].cs_tris != NULL) {
         // Revert the CS pin to input.
         TRIS_CLR(*spi_devices[dno].cs_tris) = 1<<spi_devices[dno].cs_pin;
@@ -121,11 +121,11 @@ void spi_select(int dno)
 {
     if(dno >= MAXSPIDEV)
         return;
-  
+
     if(spi_devices[dno].bus==NULL)
         return;
 
-    if (spi_devices[dno].cs_tris == NULL) 
+    if (spi_devices[dno].cs_tris == NULL)
         return;
 
     spi_devices[dno].bus->brg = spi_devices[dno].baud;
@@ -139,11 +139,11 @@ void spi_deselect(int dno)
 {
     if(dno >= MAXSPIDEV)
         return;
-  
+
     if(spi_devices[dno].bus==NULL)
         return;
 
-    if (spi_devices[dno].cs_tris == NULL) 
+    if (spi_devices[dno].cs_tris == NULL)
         return;
 
     LAT_SET(*spi_devices[dno].cs_tris) = 1<<spi_devices[dno].cs_pin;
@@ -155,10 +155,10 @@ void spi_set(int dno, unsigned int set)
 {
     if(dno >= MAXSPIDEV)
         return;
-  
+
     if(spi_devices[dno].bus==NULL)
         return;
-    
+
     spi_devices[dno].mode |= set;
 }
 
@@ -168,10 +168,10 @@ void spi_clr(int dno, unsigned int set)
 {
     if(dno >= MAXSPIDEV)
         return;
-  
+
     if(spi_devices[dno].bus==NULL)
         return;
-    
+
     spi_devices[dno].mode &= ~set;
 }
 
@@ -181,10 +181,10 @@ unsigned int spi_status(int dno)
 {
     if(dno >= MAXSPIDEV)
         return 0;
-  
+
     if(spi_devices[dno].bus==NULL)
         return 0;
-    
+
     return spi_devices[dno].bus->stat;
 }
 
@@ -199,7 +199,7 @@ unsigned char spi_transfer(int dno, unsigned char data)
 
     if(dno >= MAXSPIDEV)
         return 0xF0;
-  
+
     if(spi_devices[dno].bus==NULL)
         return 0xF1;
 
@@ -229,10 +229,10 @@ void spi_bulk_write_32_be(int dno, unsigned int len, char *data)
 
     if(dno >= MAXSPIDEV)
         return;
-  
+
     if(spi_devices[dno].bus==NULL)
         return;
-    
+
     nread = 0;
     nwritten = words;
 
@@ -245,7 +245,7 @@ void spi_bulk_write_32_be(int dno, unsigned int len, char *data)
             nwritten--;
         }
 
-        if(!(spi_devices[dno].bus->stat & PIC32_SPISTAT_SPIRBE)) 
+        if(!(spi_devices[dno].bus->stat & PIC32_SPISTAT_SPIRBE))
         {
             (void) spi_devices[dno].bus->buf;
             nread++;
@@ -263,10 +263,10 @@ void spi_bulk_write_32(int dno, unsigned int len, char *data)
 
     if(dno >= MAXSPIDEV)
         return;
-  
+
     if(spi_devices[dno].bus==NULL)
         return;
-    
+
     nread = 0;
     nwritten = words;
 
@@ -279,7 +279,7 @@ void spi_bulk_write_32(int dno, unsigned int len, char *data)
             nwritten--;
         }
 
-        if(!(spi_devices[dno].bus->stat & PIC32_SPISTAT_SPIRBE)) 
+        if(!(spi_devices[dno].bus->stat & PIC32_SPISTAT_SPIRBE))
         {
             (void) spi_devices[dno].bus->buf;
             nread++;
@@ -297,10 +297,10 @@ void spi_bulk_write_16(int dno, unsigned int len, char *data)
 
     if(dno >= MAXSPIDEV)
         return;
-  
+
     if(spi_devices[dno].bus==NULL)
         return;
-    
+
     nread = 0;
     nwritten = words;
 
@@ -313,7 +313,7 @@ void spi_bulk_write_16(int dno, unsigned int len, char *data)
             nwritten--;
         }
 
-        if(!(spi_devices[dno].bus->stat & PIC32_SPISTAT_SPIRBE)) 
+        if(!(spi_devices[dno].bus->stat & PIC32_SPISTAT_SPIRBE))
         {
             (void) spi_devices[dno].bus->buf;
             nread++;
@@ -326,18 +326,18 @@ void spi_bulk_write(int dno, unsigned int len, unsigned char *data)
 {
     unsigned char *data8 = data;
     unsigned int i;
-    unsigned char in,out;
+    unsigned char out;
 
     if(dno >= MAXSPIDEV)
         return;
-  
+
     if(spi_devices[dno].bus==NULL)
         return;
 
     for(i=0; i<len; i++)
     {
         out = *data8;
-        in = spi_transfer(dno, out);
+        spi_transfer(dno, out);
         data8++;
     }
 }
@@ -355,7 +355,7 @@ void spi_bulk_read_32_be(int dno, unsigned int len, char *data)
 
     if(dno >= MAXSPIDEV)
         return;
-  
+
     if(spi_devices[dno].bus==NULL)
         return;
 
@@ -371,7 +371,7 @@ void spi_bulk_read_32_be(int dno, unsigned int len, char *data)
             nwritten--;
         }
 
-        if(!(spi_devices[dno].bus->stat & PIC32_SPISTAT_SPIRBE)) 
+        if(!(spi_devices[dno].bus->stat & PIC32_SPISTAT_SPIRBE))
         {
             *data32++ = mips_bswap(spi_devices[dno].bus->buf);
             nread++;
@@ -389,7 +389,7 @@ void spi_bulk_read_32(int dno, unsigned int len, char *data)
 
     if(dno >= MAXSPIDEV)
         return;
-  
+
     if(spi_devices[dno].bus==NULL)
         return;
 
@@ -405,7 +405,7 @@ void spi_bulk_read_32(int dno, unsigned int len, char *data)
             nwritten--;
         }
 
-        if(!(spi_devices[dno].bus->stat & PIC32_SPISTAT_SPIRBE)) 
+        if(!(spi_devices[dno].bus->stat & PIC32_SPISTAT_SPIRBE))
         {
             *data32++ = spi_devices[dno].bus->buf;
             nread++;
@@ -423,7 +423,7 @@ void spi_bulk_read_16(int dno, unsigned int len, char *data)
 
     if(dno >= MAXSPIDEV)
         return;
-  
+
     if(spi_devices[dno].bus==NULL)
         return;
 
@@ -439,7 +439,7 @@ void spi_bulk_read_16(int dno, unsigned int len, char *data)
             nwritten--;
         }
 
-        if(!(spi_devices[dno].bus->stat & PIC32_SPISTAT_SPIRBE)) 
+        if(!(spi_devices[dno].bus->stat & PIC32_SPISTAT_SPIRBE))
         {
             *data16++ = mips_bswap(spi_devices[dno].bus->buf);
             nread++;
@@ -456,7 +456,7 @@ void spi_bulk_read(int dno, unsigned int len, unsigned char *data)
 
     if(dno >= MAXSPIDEV)
         return;
-  
+
     if(spi_devices[dno].bus==NULL)
         return;
 
@@ -479,7 +479,7 @@ void spi_bulk_rw_32_be(int dno, unsigned int len, char *data)
 
     if(dno >= MAXSPIDEV)
         return;
-  
+
     if(spi_devices[dno].bus==NULL)
         return;
 
@@ -495,7 +495,7 @@ void spi_bulk_rw_32_be(int dno, unsigned int len, char *data)
             nwritten--;
         }
 
-        if(!(spi_devices[dno].bus->stat & PIC32_SPISTAT_SPIRBE)) 
+        if(!(spi_devices[dno].bus->stat & PIC32_SPISTAT_SPIRBE))
         {
             *read32++ = mips_bswap(spi_devices[dno].bus->buf);
             nread++;
@@ -514,7 +514,7 @@ void spi_bulk_rw_32(int dno, unsigned int len, char *data)
 
     if(dno >= MAXSPIDEV)
         return;
-  
+
     if(spi_devices[dno].bus==NULL)
         return;
 
@@ -530,7 +530,7 @@ void spi_bulk_rw_32(int dno, unsigned int len, char *data)
             nwritten--;
         }
 
-        if(!(spi_devices[dno].bus->stat & PIC32_SPISTAT_SPIRBE)) 
+        if(!(spi_devices[dno].bus->stat & PIC32_SPISTAT_SPIRBE))
         {
             *read32++ = spi_devices[dno].bus->buf;
             nread++;
@@ -549,7 +549,7 @@ void spi_bulk_rw_16(int dno, unsigned int len, char *data)
 
     if(dno >= MAXSPIDEV)
         return;
-  
+
     if(spi_devices[dno].bus==NULL)
         return;
 
@@ -565,7 +565,7 @@ void spi_bulk_rw_16(int dno, unsigned int len, char *data)
             nwritten--;
         }
 
-        if(!(spi_devices[dno].bus->stat & PIC32_SPISTAT_SPIRBE)) 
+        if(!(spi_devices[dno].bus->stat & PIC32_SPISTAT_SPIRBE))
         {
             *read16++ = mips_bswap(spi_devices[dno].bus->buf);
             nread++;
@@ -582,7 +582,7 @@ void spi_bulk_rw(int dno, unsigned int len, unsigned char *data)
 
     if(dno >= MAXSPIDEV)
         return;
-  
+
     if(spi_devices[dno].bus==NULL)
         return;
 

sys/pic32/starter-kit/Makefile

@@ -6,7 +6,7 @@ S         = ../../../tools/configsys/../../sys/kernel
 vpath %.c $(M):$(S)
 vpath %.S $(M):$(S)
 
-KERNOBJ += _startup.o adc.o clock.o cons.o devsw.o exception.o gpio.o init_main.o init_sysent.o kern_clock.o kern_descrip.o kern_exec.o kern_exit.o kern_fork.o kern_mman.o kern_proc.o kern_prot.o kern_prot2.o kern_resource.o kern_sig.o kern_sig2.o kern_subr.o kern_synch.o kern_sysctl.o kern_time.o machdep.o mem.o rd_sd.o rdisk.o signal.o spi_bus.o subr_prf.o subr_rmap.o swap.o sys_generic.o sys_inode.o sys_pipe.o sys_process.o syscalls.o sysctl.o tty.o tty_subr.o tty_tty.o ufs_alloc.o ufs_bio.o ufs_bmap.o ufs_dsort.o ufs_fio.o ufs_inode.o ufs_mount.o ufs_namei.o ufs_subr.o ufs_syscalls.o ufs_syscalls2.o usb_device.o usb_function_cdc.o usb_uart.o vers.o vfs_vnops.o vm_sched.o vm_swap.o vm_swp.o 
+KERNOBJ += _startup.o adc.o clock.o cons.o devsw.o exception.o exec_aout.o exec_conf.o exec_elf.o exec_script.o exec_subr.o gpio.o init_main.o init_sysent.o kern_clock.o kern_descrip.o kern_exec.o kern_exit.o kern_fork.o kern_mman.o kern_proc.o kern_prot.o kern_prot2.o kern_resource.o kern_sig.o kern_sig2.o kern_subr.o kern_synch.o kern_sysctl.o kern_time.o machdep.o mem.o rd_sd.o rdisk.o signal.o spi_bus.o subr_prf.o subr_rmap.o swap.o sys_generic.o sys_inode.o sys_pipe.o sys_process.o syscalls.o sysctl.o tty.o tty_subr.o tty_tty.o ufs_alloc.o ufs_bio.o ufs_bmap.o ufs_dsort.o ufs_fio.o ufs_inode.o ufs_mount.o ufs_namei.o ufs_subr.o ufs_syscalls.o ufs_syscalls2.o usb_device.o usb_function_cdc.o usb_uart.o vers.o vfs_vnops.o vm_sched.o vm_swap.o vm_swp.o 
 EXTRA_TARGETS = bootloader 
 
 DEFS += -DADC_ENABLED=YES
@@ -52,6 +52,9 @@ DEFS += -DDC3_SRS=DEVCFG3_FSRSSEL_7
 DEFS += -DDC3_USBID=DEVCFG3_FUSBIDIO
 DEFS += -DDC3_USERID=0xffff
 DEFS += -DDC3_VBUSON=DEVCFG3_FVBUSONIO
+DEFS += -DEXEC_AOUT
+DEFS += -DEXEC_ELF
+DEFS += -DEXEC_SCRIPT
 DEFS += -DFLASH_JUMP=0x9d000000
 DEFS += -DGPIO_ENABLED=YES
 DEFS += -DHID_FEATURE_REPORT_BYTES=2

sys/pic32/ubw32-uart-sdram/Makefile

@@ -6,7 +6,7 @@ S         = ../../../tools/configsys/../../sys/kernel
 vpath %.c $(M):$(S)
 vpath %.S $(M):$(S)
 
-KERNOBJ += _startup.o clock.o cons.o devsw.o exception.o init_main.o init_sysent.o kern_clock.o kern_descrip.o kern_exec.o kern_exit.o kern_fork.o kern_mman.o kern_proc.o kern_prot.o kern_prot2.o kern_resource.o kern_sig.o kern_sig2.o kern_subr.o kern_synch.o kern_sysctl.o kern_time.o machdep.o mem.o rd_sd.o rd_sdramp.o rdisk.o sdram.o signal.o spi_bus.o subr_prf.o subr_rmap.o swap.o sys_generic.o sys_inode.o sys_pipe.o sys_process.o syscalls.o sysctl.o tty.o tty_subr.o tty_tty.o uart.o ufs_alloc.o ufs_bio.o ufs_bmap.o ufs_dsort.o ufs_fio.o ufs_inode.o ufs_mount.o ufs_namei.o ufs_subr.o ufs_syscalls.o ufs_syscalls2.o vers.o vfs_vnops.o vm_sched.o vm_swap.o vm_swp.o 
+KERNOBJ += _startup.o clock.o cons.o devsw.o exception.o exec_aout.o exec_conf.o exec_elf.o exec_script.o exec_subr.o init_main.o init_sysent.o kern_clock.o kern_descrip.o kern_exec.o kern_exit.o kern_fork.o kern_mman.o kern_proc.o kern_prot.o kern_prot2.o kern_resource.o kern_sig.o kern_sig2.o kern_subr.o kern_synch.o kern_sysctl.o kern_time.o machdep.o mem.o rd_sd.o rd_sdramp.o rdisk.o sdram.o signal.o spi_bus.o subr_prf.o subr_rmap.o swap.o sys_generic.o sys_inode.o sys_pipe.o sys_process.o syscalls.o sysctl.o tty.o tty_subr.o tty_tty.o uart.o ufs_alloc.o ufs_bio.o ufs_bmap.o ufs_dsort.o ufs_fio.o ufs_inode.o ufs_mount.o ufs_namei.o ufs_subr.o ufs_syscalls.o ufs_syscalls2.o vers.o vfs_vnops.o vm_sched.o vm_swap.o vm_swp.o 
 EXTRA_TARGETS = bootloader 
 
 DEFS += -DBL_BUTTON_PIN=7
@@ -52,6 +52,9 @@ DEFS += -DDC3_SRS=DEVCFG3_FSRSSEL_7
 DEFS += -DDC3_USBID=DEVCFG3_FUSBIDIO
 DEFS += -DDC3_USERID=0xffff
 DEFS += -DDC3_VBUSON=DEVCFG3_FVBUSONIO
+DEFS += -DEXEC_AOUT
+DEFS += -DEXEC_ELF
+DEFS += -DEXEC_SCRIPT
 DEFS += -DFLASH_USER=0x1d005000
 DEFS += -DHID_FEATURE_REPORT_BYTES=2
 DEFS += -DHID_INPUT_REPORT_BYTES=2

sys/pic32/ubw32-uart/Makefile

@@ -6,7 +6,7 @@ S         = ../../../tools/configsys/../../sys/kernel
 vpath %.c $(M):$(S)
 vpath %.S $(M):$(S)
 
-KERNOBJ += _startup.o clock.o cons.o devsw.o exception.o gpio.o init_main.o init_sysent.o kern_clock.o kern_descrip.o kern_exec.o kern_exit.o kern_fork.o kern_mman.o kern_proc.o kern_prot.o kern_prot2.o kern_resource.o kern_sig.o kern_sig2.o kern_subr.o kern_synch.o kern_sysctl.o kern_time.o machdep.o mem.o rd_sd.o rdisk.o signal.o spi_bus.o subr_prf.o subr_rmap.o swap.o sys_generic.o sys_inode.o sys_pipe.o sys_process.o syscalls.o sysctl.o tty.o tty_subr.o tty_tty.o uart.o ufs_alloc.o ufs_bio.o ufs_bmap.o ufs_dsort.o ufs_fio.o ufs_inode.o ufs_mount.o ufs_namei.o ufs_subr.o ufs_syscalls.o ufs_syscalls2.o vers.o vfs_vnops.o vm_sched.o vm_swap.o vm_swp.o 
+KERNOBJ += _startup.o clock.o cons.o devsw.o exception.o exec_aout.o exec_conf.o exec_elf.o exec_script.o exec_subr.o gpio.o init_main.o init_sysent.o kern_clock.o kern_descrip.o kern_exec.o kern_exit.o kern_fork.o kern_mman.o kern_proc.o kern_prot.o kern_prot2.o kern_resource.o kern_sig.o kern_sig2.o kern_subr.o kern_synch.o kern_sysctl.o kern_time.o machdep.o mem.o rd_sd.o rdisk.o signal.o spi_bus.o subr_prf.o subr_rmap.o swap.o sys_generic.o sys_inode.o sys_pipe.o sys_process.o syscalls.o sysctl.o tty.o tty_subr.o tty_tty.o uart.o ufs_alloc.o ufs_bio.o ufs_bmap.o ufs_dsort.o ufs_fio.o ufs_inode.o ufs_mount.o ufs_namei.o ufs_subr.o ufs_syscalls.o ufs_syscalls2.o vers.o vfs_vnops.o vm_sched.o vm_swap.o vm_swp.o 
 EXTRA_TARGETS = bootloader 
 
 DEFS += -DBL_BUTTON_PIN=7
@@ -52,6 +52,9 @@ DEFS += -DDC3_SRS=DEVCFG3_FSRSSEL_7
 DEFS += -DDC3_USBID=DEVCFG3_FUSBIDIO
 DEFS += -DDC3_USERID=0xffff
 DEFS += -DDC3_VBUSON=DEVCFG3_FVBUSONIO
+DEFS += -DEXEC_AOUT
+DEFS += -DEXEC_ELF
+DEFS += -DEXEC_SCRIPT
 DEFS += -DFLASH_USER=0x1d005000
 DEFS += -DGPIO_ENABLED=YES
 DEFS += -DHID_FEATURE_REPORT_BYTES=2

sys/pic32/ubw32/Makefile

@@ -6,7 +6,7 @@ S         = ../../../tools/configsys/../../sys/kernel
 vpath %.c $(M):$(S)
 vpath %.S $(M):$(S)
 
-KERNOBJ += _startup.o clock.o cons.o devsw.o exception.o gpio.o init_main.o init_sysent.o kern_clock.o kern_descrip.o kern_exec.o kern_exit.o kern_fork.o kern_mman.o kern_proc.o kern_prot.o kern_prot2.o kern_resource.o kern_sig.o kern_sig2.o kern_subr.o kern_synch.o kern_sysctl.o kern_time.o machdep.o mem.o rd_sd.o rdisk.o signal.o spi_bus.o subr_prf.o subr_rmap.o swap.o sys_generic.o sys_inode.o sys_pipe.o sys_process.o syscalls.o sysctl.o tty.o tty_subr.o tty_tty.o ufs_alloc.o ufs_bio.o ufs_bmap.o ufs_dsort.o ufs_fio.o ufs_inode.o ufs_mount.o ufs_namei.o ufs_subr.o ufs_syscalls.o ufs_syscalls2.o usb_device.o usb_function_cdc.o usb_uart.o vers.o vfs_vnops.o vm_sched.o vm_swap.o vm_swp.o 
+KERNOBJ += _startup.o clock.o cons.o devsw.o exception.o exec_aout.o exec_conf.o exec_elf.o exec_script.o exec_subr.o gpio.o init_main.o init_sysent.o kern_clock.o kern_descrip.o kern_exec.o kern_exit.o kern_fork.o kern_mman.o kern_proc.o kern_prot.o kern_prot2.o kern_resource.o kern_sig.o kern_sig2.o kern_subr.o kern_synch.o kern_sysctl.o kern_time.o machdep.o mem.o rd_sd.o rdisk.o signal.o spi_bus.o subr_prf.o subr_rmap.o swap.o sys_generic.o sys_inode.o sys_pipe.o sys_process.o syscalls.o sysctl.o tty.o tty_subr.o tty_tty.o ufs_alloc.o ufs_bio.o ufs_bmap.o ufs_dsort.o ufs_fio.o ufs_inode.o ufs_mount.o ufs_namei.o ufs_subr.o ufs_syscalls.o ufs_syscalls2.o usb_device.o usb_function_cdc.o usb_uart.o vers.o vfs_vnops.o vm_sched.o vm_swap.o vm_swp.o 
 EXTRA_TARGETS = bootloader 
 
 DEFS += -DBL_BUTTON_PIN=7
@@ -52,6 +52,9 @@ DEFS += -DDC3_SRS=DEVCFG3_FSRSSEL_7
 DEFS += -DDC3_USBID=DEVCFG3_FUSBIDIO
 DEFS += -DDC3_USERID=0xffff
 DEFS += -DDC3_VBUSON=DEVCFG3_FVBUSONIO
+DEFS += -DEXEC_AOUT
+DEFS += -DEXEC_ELF
+DEFS += -DEXEC_SCRIPT
 DEFS += -DFLASH_USER=0x1d005000
 DEFS += -DGPIO_ENABLED=YES
 DEFS += -DHID_FEATURE_REPORT_BYTES=2

target.mk

@@ -1,12 +1,15 @@
-MACHINE		= mips
-DESTDIR		?= $(TOPSRC)
+MACHINE     = mips
+DESTDIR     ?= $(TOPSRC)
+RELEASE     = 0.0
+BUILD       = $(shell git rev-list HEAD --count)
+VERSION     = $(RELEASE)-$(BUILD)
 
 # chipKIT PIC32 compiler from UECIDE
 ifdef UECIDE
 ifndef GCCPREFIX
-    GCCPREFIX   = ${HOME}/.uecide/compilers/pic32-tools/bin/pic32-
+    GCCPREFIX   = ${UECIDE}/compilers/pic32-tools/bin/pic32-
     LDFLAGS     = -Wl,--oformat=elf32-tradlittlemips
-    INCLUDES    = -I${HOME}/.uecide/compilers/pic32-tools/lib/gcc/pic32mx/4.5.1/include
+    INCLUDES    = -I${UECIDE}/compilers/pic32-tools/lib/gcc/pic32mx/4.5.1/include
 endif
 endif
 
@@ -19,20 +22,40 @@ endif
 # MPLABX C32 compiler doesn't support some functionality
 # we need, so use chipKIT compiler by default.
 ifndef GCCPREFIX
+ifeq (/usr/local/pic32-tools/bin/pic32-gcc,$(wildcard /usr/local/pic32-tools/bin/pic32-gcc))
     GCCPREFIX   = /usr/local/pic32-tools/bin/pic32-
     LDFLAGS     = -Wl,--oformat=elf32-tradlittlemips
     INCLUDES    = -I/usr/local/pic32-tools/lib/gcc/pic32mx/4.5.1/include
 endif
+endif
 
 # Generic MIPS toolchain
 # ~~~~~~~~~~~~~~~~~~~~~~
 # You can build it from sources, as described on page
 # http://retrobsd.org/wiki/doku.php/doc/toolchain-mips
 ifndef GCCPREFIX
-    GCCPREFIX   = /usr/local/mips-gcc-4.7.2/bin/mips-elf-
+ifeq (/usr/local/mips-gcc-4.8.1/bin/mips-elf-gcc,$(wildcard /usr/local/mips-gcc-4.8.1/bin/mips-elf-gcc))
+    GCCPREFIX   = /usr/local/mips-gcc-4.8.1/bin/mips-elf-
     LDFLAGS     =
     INCLUDES    =
 endif
+endif
+
+# Mentor Sourcery CodeBench Lite toolchain
+# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+# You can download a Linux or Windows binary package from
+# https://sourcery.mentor.com/GNUToolchain/release2641
+ifndef GCCPREFIX
+ifeq (/usr/local/mips-2013.11/bin/mips-sde-elf-gcc,$(wildcard /usr/local/mips-2013.11/bin/mips-sde-elf-gcc))
+    GCCPREFIX   = /usr/local/mips-2013.11/bin/mips-sde-elf-
+    LDFLAGS     = -Wl,--oformat=elf32-tradlittlemips
+    INCLUDES    =
+endif
+endif
+
+ifndef GCCPREFIX
+    $(error Unable to locate any GCC MIPS toolchain!)
+endif
 
 CC		= $(GCCPREFIX)gcc -mips32r2 -EL -msoft-float -nostdinc -fshort-double -I$(TOPSRC)/include $(INCLUDES)
 CXX             = $(GCCPREFIX)g++ -mips32r2 -EL -msoft-float -nostdinc -fshort-double -I$(TOPSRC)/include $(INCLUDES)

tools/configsys/config.cpp

@@ -160,11 +160,19 @@ bool config::load(const char *filename)
             pos = temp.find("=");
             if(pos>0)
             {
+                stringstream data;
                 string l,r;
                 l = temp.substr(0,pos);
                 uc(l);
                 r = temp.substr(pos+1,temp.size());
-                this->instances["GLOBAL"].settings[l] = r;
+                data << r;
+                while (in >> temp) {
+                    if (temp[0] == '#') {
+                        break;
+                    }
+                    data << " " << temp;
+                }
+                this->instances["GLOBAL"].settings[l] = data.str();
                 this->instances["GLOBAL"].device="GLOBAL";
                 this->instances["GLOBAL"].unit=0;
             }

tools/elf2aout/elf2aout.c

@@ -361,15 +361,16 @@ usage:                  fprintf(stderr,
 	for (i = 0; i < ex.e_phnum; i++) {
 		/* Section types we can ignore... */
 		if (ph[i].p_type == PT_NULL || ph[i].p_type == PT_NOTE ||
-		    ph[i].p_type == PT_PHDR || ph[i].p_type == PT_MIPS_REGINFO)
+		    ph[i].p_type == PT_PHDR || ph[i].p_type == PT_MIPS_REGINFO ||
+                    ph[i].p_type == PT_GNU_EH_FRAME)
 			continue;
 
-		/* Section types we can't handle... */
-		if (ph[i].p_type != PT_LOAD)
-			errx(1, "Program header %d type %d can't be converted.", i, ph[i].p_type);
                 if (verbose)
                         printf ("Section type=%x flags=%x vaddr=%x filesz=%x\n",
                             ph[i].p_type, ph[i].p_flags, ph[i].p_vaddr, ph[i].p_filesz);
+		/* Section types we can't handle... */
+		if (ph[i].p_type != PT_LOAD && ph[i].p_type != PT_GNU_EH_FRAME)
+			errx(1, "Program header %d type %x can't be converted.", i, ph[i].p_type);
 
 		/* Writable (data) segment? */
 		if (ph[i].p_flags & PF_W) {

tools/virtualmips/.gitignore

@@ -1,2 +1,3 @@
 .deps
 pic32
+pic32-log.txt

tools/virtualmips/dev_sdcard.c

@@ -140,7 +140,7 @@ unsigned dev_sdcard_io (cpu_mips_t *cpu, unsigned data)
                   pic32->sdcard[1].select ? &pic32->sdcard[1] : 0;
     unsigned reply;
 
-    if (! d) {
+    if (! d || ! d->fd) {
         TRACE ("sdcard: unselected i/o\n");
         return 0xFF;
     }

tools/virtualmips/mips_codetable.c

@@ -1684,7 +1684,8 @@ static int rdpgpr_op (cpu_mips_t * cpu, mips_insn_t insn)
     int rt = bits (insn, 16, 20);
     int rd = bits (insn, 11, 15);
 
-    printf ("%08x: unsupported RDPGPR $%u,$%u instruction.\n", cpu->pc, rd, rt);
+    /* Only one GPR set supported: RDPGPR works as move. */
+    cpu->reg_set (cpu, rd, cpu->gpr[rt]);
     return (0);
 }
 
@@ -1693,7 +1694,8 @@ static int wrpgpr_op (cpu_mips_t * cpu, mips_insn_t insn)
     int rt = bits (insn, 16, 20);
     int rd = bits (insn, 11, 15);
 
-    printf ("%08x: unsupported WRPGPR $%u,$%u instruction.\n", cpu->pc, rd, rt);
+    /* Only one GPR set supported: WRPGPR works as move. */
+    cpu->reg_set (cpu, rd, cpu->gpr[rt]);
     return (0);
 }
 

tools/virtualmips/mips_cp0.c

@@ -93,6 +93,8 @@ unimpl:     fprintf (stderr,
             return cp0->reg[cp0_reg];
         case 1:                         /* IntCtl */
             return cp0->intctl_reg;
+        case 2:                         /* SRSCtl */
+            return 0;
         }
         goto unimpl;
 
@@ -172,6 +174,8 @@ void mips_cp0_set_reg (cpu_mips_t * cpu, u_int cp0_reg, u_int sel,
         case 1:                         /* IntCtl */
             cp0->intctl_reg = val;
             break;
+        case 2:                         /* SRSCtl */
+            break;
         default:
             goto unimpl;
         }