|
|
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.