|
|
1.1 root 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: [email protected] -or- ...!ihnp4!pur-ee!housel
51:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.