home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / bsd_srcs / usr.bin / lisp / liszt / const.l < prev    next >
Encoding:
Text File  |  1987-12-15  |  1.2 KB  |  55 lines
  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
  55.