| 1 | |
| 2 | ;;; ---- c o n s t header file for inclusion |
| 3 | |
| 4 | ; |
| 5 | ;$Header: const.l,v 1.4 87/12/15 16:58:19 sklower Exp $ |
| 6 | ; |
| 7 | |
| 8 | (putprop 'const t 'loaded) ; flag that this file has been loaded |
| 9 | |
| 10 | ;--- parameters: these must be evaluated at compile time so readmacros will |
| 11 | ; work |
| 12 | (eval-when (compile eval) |
| 13 | (setq np-sym "_np" |
| 14 | lbot-sym "_lbot" |
| 15 | bnp-sym "_bnp" |
| 16 | ch-newline (ascii #\lf)) |
| 17 | #+(or for-vax for-tahoe) |
| 18 | (setq np-reg 'r6 |
| 19 | lbot-reg 'r7 |
| 20 | bind-reg 'r8 |
| 21 | np-plus '(+ r6) |
| 22 | np-minus '(- r6) |
| 23 | bnp-reg 'r5 |
| 24 | fixnum-reg 'r5 |
| 25 | olbot-reg 'r10 |
| 26 | nil-reg "*** this should never be used ***" |
| 27 | comment-char "#" |
| 28 | Cstack "-(sp)" |
| 29 | unCstack "(sp)+" |
| 30 | Nilatom "$0") |
| 31 | #+for-68k |
| 32 | (setq bnp-reg 'a1 |
| 33 | np-reg 'a2 |
| 34 | lbot-reg 'd3 ; only for hacked version of 68k lisp |
| 35 | bind-reg 'a3 |
| 36 | olbot-reg 'a4 |
| 37 | fixnum-reg 'd2 |
| 38 | nil-reg 'd7 |
| 39 | np-plus '(+ a2) |
| 40 | np-minus '(- a2) |
| 41 | Nilatom "#_nilatom" |
| 42 | comment-char "|" |
| 43 | Cstack "sp@-" |
| 44 | unCstack "sp@+")) |
| 45 | |
| 46 | ;--- evaluation frame parameters. These must correspond to what is |
| 47 | ; in h/frame.h in the C system |
| 48 | ; |
| 49 | (eval-when (compile load eval) |
| 50 | (setq C_GO 1 C_RET 2 C_THROW 3 C_RESET 4) |
| 51 | (setq F_PROG 1 F_CATCH 2 F_RESET 3)) |
| 52 | |
| 53 | ; offsets in frame |
| 54 | (setq OF_olderrp 12) ; 12 bytes from base of error frame |