[unix-history] / usr / src / old / lisp / ReadMe.tahoe

	This is the distribution of Franz Lisp Opus 38.92 for the CCI "tahoe"
machine.  It should be configurable as a VAX or 68000 version, but this
has not yet been tested.
	Before the system can be compiled, a change is necessary to /lib/c2,
the C-compiler's optimizer phase. Without this change, the optimizer dumps
core when run through a pipe:

::::::::::::::::::::
*** c20.c	Wed Jan 14 09:55:09 1987
--- c20.c.new	Wed Jan 14 09:55:52 1987
***************
*** 29,48 ****
  struct node *
  alloc(an)
  {
! 	register int n;
! 	register char *p;
! 
! 	n = an;
! 	n+=sizeof(char *)-1;
! 	n &= ~(sizeof(char *)-1);
! 	if (lasta+n >= lastr) {
! 		if (sbrk(2000) == -1)
! 			error("Optimizer: out of space\n");
! 		lastr += 2000;
! 	}
! 	p = lasta;
! 	lasta += n;
! 	return((struct node *)p);
  }
  
  main(argc, argv)
--- 29,35 ----
  struct node *
  alloc(an)
  {
! 	return((struct node *)malloc(an));
  }
  
  main(argc, argv)
::::::::::::::::::::

	Another special condsideration is the WCS version in use. If bignum
math with negative numbers (try "(quotient 9999999999999999999 -9)") gives
incorrect results, then you are using an outdated WCS and should attempt to
obtain a newer version from CCI.

	Please send any other porting bugs to:
	Peter S. Housel
	housel@ei.ecn.purdue.edu -or- ...!ihnp4!pur-ee!housel
Commit	Line	Data
2c95f2ed C	1	This is the distribution of Franz Lisp Opus 38.92 for the CCI "tahoe"
	2	machine. It should be configurable as a VAX or 68000 version, but this
	3	has not yet been tested.
	4	Before the system can be compiled, a change is necessary to /lib/c2,
	5	the C-compiler's optimizer phase. Without this change, the optimizer dumps
	6	core when run through a pipe:
	7
	8	::::::::::::::::::::
	9	*** c20.c Wed Jan 14 09:55:09 1987
	10	--- c20.c.new Wed Jan 14 09:55:52 1987
	11	***************
	12	* 29,48 **
	13	struct node *
	14	alloc(an)
	15	{
	16	! register int n;
	17	! register char *p;
	18	!
	19	! n = an;
	20	! n+=sizeof(char *)-1;
	21	! n &= ~(sizeof(char *)-1);
	22	! if (lasta+n >= lastr) {
	23	! if (sbrk(2000) == -1)
	24	! error("Optimizer: out of space\n");
	25	! lastr += 2000;
	26	! }
	27	! p = lasta;
	28	! lasta += n;
	29	! return((struct node *)p);
	30	}
	31
	32	main(argc, argv)
	33	--- 29,35 ----
	34	struct node *
	35	alloc(an)
	36	{
	37	! return((struct node *)malloc(an));
	38	}
	39
	40	main(argc, argv)
	41	::::::::::::::::::::
	42
	43	Another special condsideration is the WCS version in use. If bignum
	44	math with negative numbers (try "(quotient 9999999999999999999 -9)") gives
	45	incorrect results, then you are using an outdated WCS and should attempt to
	46	obtain a newer version from CCI.
	47
	48	Please send any other porting bugs to:
	49	Peter S. Housel
	50	housel@ei.ecn.purdue.edu -or- ...!ihnp4!pur-ee!housel
	51