projects / unix-history / blame
| Commit | Line | Data |
|---|---|---|
| e7738371 C |
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 |