🚀 go-pugleaf

From: jsq@zotz.UTEXAS.EDU (John Quarterman)

[ This is long but should be of use to many.
It looks rather like the mods were done by Stallman Himself.
-mod ]


Date: Thu, 6 Feb 86 18:55:24 pst
>From: ut-sally!sequent!phil (GSP)
To: ut-sally!im4u!info-sequent-request
Subject: Mods for GNU emacs 17.45 for BALANCE 8000 (DYNIX 2.0)

--Phil Hochstetler, Sequent Computer Systems, Inc.

diff -r -c virgin/dist/etc/loadst.c gnu.emacs/dist/etc/loadst.c
*** virgin/dist/etc/loadst.c	Wed Jan 29 22:11:08 1986
--- gnu.emacs/dist/etc/loadst.c	Wed Feb  5 17:56:37 1986
***************
*** 28,33
  #endif /* not HPUX */
  #else /* not USG */
  #define LDAV_SYMBOL "_avenrun"
  #define KERNEL_FILE "/vmunix"
  #define NLIST_STRUCT
  #endif /* not USG */

--- 28,36 -----
  #endif /* not HPUX */
  #else /* not USG */
  #define LDAV_SYMBOL "_avenrun"
+ #ifdef sequent
+ #define KERNEL_FILE "/dynix"
+ #else /* not sequent */
  #define KERNEL_FILE "/vmunix"
  #endif /* not sequent */
  #define NLIST_STRUCT
***************
*** 29,34
  #else /* not USG */
  #define LDAV_SYMBOL "_avenrun"
  #define KERNEL_FILE "/vmunix"
  #define NLIST_STRUCT
  #endif /* not USG */
  

--- 32,38 -----
  #define KERNEL_FILE "/dynix"
  #else /* not sequent */
  #define KERNEL_FILE "/vmunix"
+ #endif /* not sequent */
  #define NLIST_STRUCT
  #endif /* not USG */
  
***************
*** 71,76
  struct nlist nl[] =
    {
      { LDAV_SYMBOL },
  #define	X_CPTIME	1
      { "_cp_time" },
  #define	X_DKXFER	2

--- 75,81 -----
  struct nlist nl[] =
    {
      { LDAV_SYMBOL },
+ #if defined(BSD) && !defined(sequent)
  #define	X_CPTIME	1
      { "_cp_time" },
  #define	X_DKXFER	2
***************
*** 75,80
      { "_cp_time" },
  #define	X_DKXFER	2
      { "_dk_xfer" },
      { 0 },
    };
  #endif /* NLIST_STRUCT */

--- 80,86 -----
      { "_cp_time" },
  #define	X_DKXFER	2
      { "_dk_xfer" },
+ #endif /* defined(BSD) && !defined(sequent) */
      { 0 },
    };
  #endif /* NLIST_STRUCT */
***************
*** 79,85
    };
  #endif /* NLIST_STRUCT */
  
! #ifdef BSD
  
  struct
  {

--- 85,91 -----
    };
  #endif /* NLIST_STRUCT */
  
! #if defined(BSD) && !defined(sequent)
  
  struct
  {
***************
*** 89,95
  
  double	etime;
  
! #endif /* BSD */
  
  int nflag;			/* -n flag -- no newline */
  int uflag;			/* -u flag -- user current user ID rather

--- 95,101 -----
  
  double	etime;
  
! #endif /* defined(BSD) && !defined(sequent) */
  
  int nflag;			/* -n flag -- no newline */
  int uflag;			/* -u flag -- user current user ID rather
***************
*** 168,174
  
        printf ("%s", (stat (mail, &st) >= 0 && st.st_size) ? " Mail" : "");
  
! #ifdef BSD
        if (kmem >= 0)
  	{
  	  lseek (kmem, (long) nl[X_CPTIME].n_value, 0);

--- 174,180 -----
  
        printf ("%s", (stat (mail, &st) >= 0 && st.st_size) ? " Mail" : "");
  
! #if defined(BSD) && !defined(sequent)
        if (kmem >= 0)
  	{
  	  lseek (kmem, (long) nl[X_CPTIME].n_value, 0);
***************
*** 200,206
  	      printf ("[%d]", (int) (max / etime + 0.5));
  	    }
  	}
! #endif /* BSD */
        if (!nflag)
  	putchar ('\n');
        fflush (stdout);

--- 206,212 -----
  	      printf ("[%d]", (int) (max / etime + 0.5));
  	    }
  	}
! #endif /* defined(BSD) && !defined(sequent) */
        if (!nflag)
  	putchar ('\n');
        fflush (stdout);
diff -r -c virgin/dist/src/crt0.c gnu.emacs/dist/src/crt0.c
*** virgin/dist/src/crt0.c	Wed Jan 29 22:09:49 1986
--- gnu.emacs/dist/src/crt0.c	Wed Feb  5 20:02:27 1986
***************
*** 107,112
  
  #endif /* orion */
  
  #ifdef ns16000
  
  _start ()

--- 107,140 -----
  
  #endif /* orion */
  
+ #if defined(ns32000) && defined(sequent)
+ 
+ /* Identical to VAX 4.2 BSD except fp linkage */
+ asm("	.text		")
+ asm("	.globl start	");	/* ld wants 'start' not '__start' */
+ asm("	start:		");
+ _start ()
+ {
+ /* On DYNIX, bogus fp is pushed here  */
+   start1 ();
+ }
+ 
+ static
+ start1 (oldfp, argc, xargv)
+      int oldfp;
+      int argc;
+      char *xargv;
+ {
+   register char **argv = &xargv;
+   environ = argv + argc + 1;
+ 
+   if ((char *)environ == xargv)
+     environ--;
+   exit (main (argc, argv, environ));
+ }
+ 
+ #endif /* defined(ns32000) && defined(sequent) */
+ 
  #ifdef ns16000
  
  _start ()
diff -r -c virgin/dist/src/unexec.c gnu.emacs/dist/src/unexec.c
*** virgin/dist/src/unexec.c	Tue Jan 28 14:28:26 1986
--- gnu.emacs/dist/src/unexec.c	Thu Feb  6 00:55:10 1986
***************
*** 440,445
    if (hdr.a_bss < 0)
      hdr.a_bss = 0;
    hdr.a_data = bss_start - data_start;
    hdr.a_text = data_start - (long) start_of_text ();
  
    if (write (new, &hdr, sizeof hdr) != sizeof hdr)

--- 440,448 -----
    if (hdr.a_bss < 0)
      hdr.a_bss = 0;
    hdr.a_data = bss_start - data_start;
+ #if defined(sequent)
+   hdr.a_text = data_start - (long) start_of_text () + sizeof(hdr) + N_ADDRADJ(ohdr);
+ #else
    hdr.a_text = data_start - (long) start_of_text ();
  #endif
  
***************
*** 441,446
      hdr.a_bss = 0;
    hdr.a_data = bss_start - data_start;
    hdr.a_text = data_start - (long) start_of_text ();
  
    if (write (new, &hdr, sizeof hdr) != sizeof hdr)
      {

--- 444,450 -----
    hdr.a_text = data_start - (long) start_of_text () + sizeof(hdr) + N_ADDRADJ(ohdr);
  #else
    hdr.a_text = data_start - (long) start_of_text ();
+ #endif
  
    if (write (new, &hdr, sizeof hdr) != sizeof hdr)
      {
***************
*** 488,494
  
  #else /* if not COFF */
  
! #ifdef sun3
    lseek (new, (long) (N_TXTOFF (hdr) + sizeof (hdr)), 0);
  #else
    lseek (new, (long) N_TXTOFF (hdr), 0);

--- 492,498 -----
  
  #else /* if not COFF */
  
! #if defined(sun3) || defined(sequent)
    lseek (new, (long) (N_TXTOFF (hdr) + sizeof (hdr)), 0);
  #else
    lseek (new, (long) N_TXTOFF (hdr), 0);
***************
*** 496,501
  
    ptr = start_of_text ();
    end = ptr + hdr.a_text + hdr.a_data;
    for (i = 0; ptr < end;)
      {
        nwrite = 128;

--- 500,508 -----
  
    ptr = start_of_text ();
    end = ptr + hdr.a_text + hdr.a_data;
+ #if defined(sequent)
+   end -= (sizeof(hdr) + N_ADDRADJ(hdr));
+ #endif
    for (i = 0; ptr < end;)
      {
        nwrite = 128;
***************
*** 504,510
        if (ret == -1 && errno == EFAULT)
  	{
            /* BZS - again, see above about N_TXTOFF on a SUN */
! #ifdef sun3
  	  lseek (new, (long) (N_TXTOFF (hdr) + i + nwrite + sizeof (hdr)), 0);
  #else
  	  lseek (new, (long) (N_TXTOFF (hdr) + i + nwrite), 0);

--- 511,517 -----
        if (ret == -1 && errno == EFAULT)
  	{
            /* BZS - again, see above about N_TXTOFF on a SUN */
! #if defined(sun3) || defined(sequent)
  	  lseek (new, (long) (N_TXTOFF (hdr) + i + nwrite + sizeof (hdr)), 0);
  #else
  	  lseek (new, (long) (N_TXTOFF (hdr) + i + nwrite), 0);
diff -r -c virgin/dist/src/ymakefile gnu.emacs/dist/src/ymakefile
*** virgin/dist/src/ymakefile	Thu Jan 30 00:17:01 1986
--- gnu.emacs/dist/src/ymakefile	Thu Feb  6 10:27:05 1986
***************
*** 170,176
  ../etc/make-docfile:
  	cd ../etc; make ${MFLAGS} make-docfile
  
! temacs: $(LOCALCPP) $(SHORTNAME) crt0.o ${obj} ${otherobj}
  	ld ${STARTFLAGS} ${LDFLAGS} -o temacs crt0.o ${obj} ${otherobj} ${LIBES} 
  
  /* These are needed for C compilation, on the systems that need them */

--- 170,179 -----
  ../etc/make-docfile:
  	cd ../etc; make ${MFLAGS} make-docfile
  
! #if defined(sequent)	/* for parallel make */
! PARALLEL=&
! #endif
! temacs: $(PARALLEL) $(LOCALCPP) $(SHORTNAME) crt0.o ${obj} ${otherobj}
  	ld ${STARTFLAGS} ${LDFLAGS} -o temacs crt0.o ${obj} ${otherobj} ${LIBES} 
  
  /* These are needed for C compilation, on the systems that need them */
----------------------------------------
Plus a new file, "src/m-sequent.h"
----------------------------------------
/* m- file for SEQUENT BALANCE machines
   Copyright (C) 1985 Richard M. Stallman.

This file is part of GNU Emacs.

GNU Emacs is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY.  No author or distributor
accepts responsibility to anyone for the consequences of using it
or for whether it serves any particular purpose or works at all,
unless he says so in writing.  Refer to the GNU Emacs General Public
License for full details.

Everyone is granted permission to copy, modify and redistribute
GNU Emacs, but only under the conditions described in the
GNU Emacs General Public License.   A copy of this license is
supposed to have been given to you along with GNU Emacs so you
can know your rights and responsibilities.  It should be in a
file named COPYING.  Among other things, the copyright notice
and this notice must be preserved on all copies.  */


/* NOTE: this file works for DYNIX release 2.0 
	  (not tested on 1.3) on NS32000's */

/* The following three symbols give information on
 the size of various data types.  */

#define SHORTBITS 16		/* Number of bits in a short */

#define INTBITS 32		/* Number of bits in an int */

#define LONGBITS 32		/* Number of bits in a long */

/* Define BIG_ENDIAN iff lowest-numbered byte in a word
   is the most significant byte.  */

/* #define BIG_ENDIAN */

/* Define NO_ARG_ARRAY if you cannot take the address of the first of a
 * group of arguments and treat it as an array of the arguments.  */

/* #define NO_ARG_ARRAY */

/* Define WORD_MACHINE if addresses and such have
 * to be corrected before they can be used as byte counts.  */

/* #define WORD_MACHINE */

/* Define how to take a char and sign-extend into an int.
   On machines where char is signed, this is a no-op.  */

#define SIGN_EXTEND_CHAR(c) (c)

/* Now define a symbol for the cpu type, if your compiler
   does not define it automatically:
   vax, m68000, ns16000, pyramid, orion, tahoe and APOLLO
   are the ones defined so far.  */

/* BTW: DYNIX defines sequent, ns32000, and ns16000 (GENIX compatibility) */
#ifdef	ns16000		/* don't want this to confuse crt0.c */
# undef	ns16000
#endif
#ifndef	sequent		/* pre DYNIX 2.1 releases */
# define sequent
#endif

/* Use type int rather than a union, to represent Lisp_Object */
/* This is desirable for most machines.  */

#define NO_UNION_TYPE

/* Define EXPLICIT_SIGN_EXTEND if XINT must explicitly sign-extend
   the 24-bit bit field into an int.  In other words, if bit fields
   are always unsigned.

   If you use NO_UNION_TYPE, this flag does not matter.  */

#define EXPLICIT_SIGN_EXTEND

/* Data type of load average, as read out of kmem.  */

#define LOAD_AVE_TYPE unsigned long

/* Convert that into an integer that is 100 for a load average of 1.0  */

#define	FSCALE	1000.0
#define LOAD_AVE_CVT(x) (int) (((double) (x)) * 100.0 / FSCALE)

/* Define CANNOT_DUMP on machines where unexec does not work.
   Then the function dump-emacs will not be defined
   and temacs will do (load "loadup") automatically unless told otherwise.  */

/* #define CANNOT_DUMP */

/* Define VIRT_ADDR_VARIES if the virtual addresses of
   pure and impure space as loaded can vary, and even their
   relative order cannot be relied on.

   Otherwise Emacs assumes that data space precedes text space,
   numerically.  */

/* #define VIRT_ADDR_VARIES */

/* Define C_ALLOCA if this machine does not support a true alloca
   and the one written in C should be used instead.
   Define HAVE_ALLOCA to say that the system provides a properly
   working alloca function and it should be used.
   Define neither one if an assembler-language alloca
   in the file alloca.s should be used.  */

/* NOTE: not possible to do this PROPERLY on 32032 (with our C compiler)
   because on frame entry local storage is allocated before saved registers.
   This means you must move saved registers around.  Better to emulate. */

#define C_ALLOCA
/* #define HAVE_ALLOCA */

----------------------------------------