Return to const.l CVS log

Up to [CSRG BSD Unix] / 42BSD / ucb / lisp / liszt

Annotation of 42BSD/ucb/lisp/liszt/const.l, revision 1.1.1.1

1.1       root        1: 
                      2: ;;; ----       c o n s t               header file for inclusion
                      3: 
                      4: ;
                      5: ;$Header: const.l,v 1.3 83/08/28 17:47:20 layer 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:    #+for-vax
                     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

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.