src/compiler/arm/parms.lisp

   1 ;;;; This file contains some parameterizations of various VM
   2 ;;;; attributes for the ARM.  This file is separate from other stuff so
   3 ;;;; that it can be compiled and loaded earlier.
   4
   5 ;;;; This software is part of the SBCL system. See the README file for
   6 ;;;; more information.
   7 ;;;;
   8 ;;;; This software is derived from the CMU CL system, which was
   9 ;;;; written at Carnegie Mellon University and released into the
  10 ;;;; public domain. The software is in the public domain and is
  11 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
  12 ;;;; files for more information.
  13
  14 (in-package "SB!VM")
  15
  16 ;;; number of bits per word where a word holds one lisp descriptor
  17 (def!constant n-word-bits 32)
  18
  19 ;;; the natural width of a machine word (as seen in e.g. register width,
  20 ;;; address space)
  21 (def!constant n-machine-word-bits 32)
  22
  23 ;;; number of bits per byte where a byte is the smallest addressable
  24 ;;; object
  25 (def!constant n-byte-bits 8)
  26
  27 \f
  28 ;;;; Where to put the different spaces.
  29
  30 ;;; On non-gencgc we need large dynamic and static spaces for PURIFY
  31 #!-gencgc
  32 (progn
  33   (def!constant read-only-space-start #x04000000)
  34   (def!constant read-only-space-end   #x07ff8000)
  35   (def!constant static-space-start    #x08000000)
  36   (def!constant static-space-end      #x097fff00)
  37
  38   (def!constant linkage-table-space-start #x0a000000)
  39   (def!constant linkage-table-space-end   #x0b000000))
  40
  41 (def!constant linkage-table-entry-size 16)
  42
  43 #!+linux
  44 (progn
  45   #!-gencgc
  46   (progn
  47     (def!constant dynamic-0-space-start #x4f000000)
  48     (def!constant dynamic-0-space-end   #x66fff000)
  49     (def!constant dynamic-1-space-start #x67000000)
  50     (def!constant dynamic-1-space-end   #x7efff000)))
  51 \f
  52 ;;;; other miscellaneous constants
  53
  54 (defenum (:start 8)
  55   halt-trap
  56   pending-interrupt-trap
  57   error-trap
  58   cerror-trap
  59   breakpoint-trap
  60   fun-end-breakpoint-trap)
  61 \f
  62 ;;;; Static symbols.
  63
  64 ;;; These symbols are loaded into static space directly after NIL so
  65 ;;; that the system can compute their address by adding a constant
  66 ;;; amount to NIL.
  67 ;;;
  68 ;;; The fdefn objects for the static functions are loaded into static
  69 ;;; space directly after the static symbols.  That way, the raw-addr
  70 ;;; can be loaded directly out of them by indirecting relative to NIL.
  71 ;;;
  72 (defparameter *static-symbols*
  73   (append
  74    *common-static-symbols*
  75    *c-callable-static-symbols*
  76    '(*allocation-pointer*
  77
  78      *binding-stack-pointer*
  79      *number-stack-pointer*
  80
  81      ;; interrupt handling
  82      *pseudo-atomic-atomic*
  83      *pseudo-atomic-interrupted*)))
  84
  85 (defparameter *static-funs*
  86   '())
  87
  88 \f
  89 ;;;; Assembler parameters:
  90
  91 ;;; The number of bits per element in the assemblers code vector.
  92 ;;;
  93 (defparameter *assembly-unit-length* 8)