X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fsparc%2Fparms.lisp;h=59b24cac426156f040adda27d86d4762c7d25286;hb=52cfe54802db8736f1f4e2b67764c43bba9b78b3;hp=ab3adf12a7fe31f64e2d8178229d07a450a5c0ec;hpb=c81c32ef8a737b0cc61d3c0c6a137cab39baac73;p=sbcl.git diff --git a/src/compiler/sparc/parms.lisp b/src/compiler/sparc/parms.lisp index ab3adf1..59b24ca 100644 --- a/src/compiler/sparc/parms.lisp +++ b/src/compiler/sparc/parms.lisp @@ -12,33 +12,15 @@ ;;;; Machine Architecture parameters: (eval-when (:compile-toplevel :load-toplevel :execute) -(def!constant n-word-bits 32 - #!+sb-doc - "Number of bits per word where a word holds one lisp descriptor.") +;;; number of bits per word where a word holds one lisp descriptor +(def!constant n-word-bits 32) -(def!constant n-byte-bits 8 - #!+sb-doc - "Number of bits per byte where a byte is the smallest addressable object.") +;;; the natural width of a machine word (as seen in e.g. register width, +;;; address space) +(def!constant n-machine-word-bits 32) -(def!constant word-shift (1- (integer-length (/ n-word-bits n-byte-bits))) - #!+sb-doc - "Number of bits to shift between word addresses and byte addresses.") - -(def!constant n-word-bytes (/ n-word-bits n-byte-bits) - #!+sb-doc - "Number of bytes in a word.") - -(def!constant n-fixnum-tag-bits (1- n-lowtag-bits) - #!+sb-doc - "Number of tag bits used for a fixnum") - -(def!constant fixnum-tag-mask (1- (ash 1 n-fixnum-tag-bits)) - #!+sb-doc - "Mask to get the fixnum tag") - -(def!constant n-positive-fixnum-bits (- n-word-bits n-fixnum-tag-bits 1) - #!+sb-doc - "Maximum number of bits in a positive fixnum") +;;; number of bits per byte where a byte is the smallest addressable object +(def!constant n-byte-bits 8) (def!constant float-sign-shift 31) @@ -91,10 +73,10 @@ (def!constant float-round-to-positive 2) (def!constant float-round-to-negative 3) -(defconstant-eqx float-rounding-mode (byte 2 30) #'equalp) ; RD -(defconstant-eqx float-sticky-bits (byte 5 5) #'equalp) ; aexc -(defconstant-eqx float-traps-byte (byte 5 23) #'equalp) ; TEM -(defconstant-eqx float-exceptions-byte (byte 5 0) #'equalp) ; cexc +(defconstant-eqx float-rounding-mode (byte 2 30) #'equalp) ; RD +(defconstant-eqx float-sticky-bits (byte 5 5) #'equalp) ; aexc +(defconstant-eqx float-traps-byte (byte 5 23) #'equalp) ; TEM +(defconstant-eqx float-exceptions-byte (byte 5 0) #'equalp) ; cexc ;;; According to the SPARC doc (as opposed to FPU doc), the fast mode ;;; bit (EFM) is "reserved", and should always be zero. However, for @@ -104,68 +86,47 @@ ); eval-when -;;; NUMBER-STACK-DISPLACEMENT -;;; -;;; The number of bytes reserved above the number stack pointer. These -;;; slots are required by architecture for a place to spill register windows. -;;; -;;; FIXME: Where is this used? -(def!constant number-stack-displacement - (* 16 n-word-bytes)) - ;;;; Description of the target address space. ;;; Where to put the different spaces. Must match the C code! #!+linux (progn - (def!constant read-only-space-start #x10000000) - (def!constant read-only-space-end #x15000000) - - (def!constant static-space-start #x28000000) - (def!constant static-space-end #x2c000000) + (def!constant linkage-table-space-start #x0f800000) + (def!constant linkage-table-space-end #x10000000) - ;; From alpha/parms.lisp: - ;; this is used in PURIFY as part of a sloppy check to see if a pointer - ;; is in dynamic space. Chocolate brownie for the first person to fix it - ;; -dan 20010502 - (def!constant dynamic-space-start #x30000000) - (def!constant dynamic-space-end #x38000000) + (def!constant read-only-space-start #x10000000) + (def!constant read-only-space-end #x15000000) - (def!constant dynamic-0-space-start #x30000000) - (def!constant dynamic-0-space-end #x38000000) - - (def!constant dynamic-1-space-start #x40000000) - (def!constant dynamic-1-space-end #x48000000) + (def!constant static-space-start #x28000000) + (def!constant static-space-end #x2c000000) - (def!constant control-stack-start #x50000000) - (def!constant control-stack-end #x51000000) + (def!constant dynamic-0-space-start #x30000000) + (def!constant dynamic-0-space-end #x38000000) - (def!constant binding-stack-start #x60000000) - (def!constant binding-stack-end #x61000000)) + (def!constant dynamic-1-space-start #x40000000) + (def!constant dynamic-1-space-end #x48000000)) #!+sunos ; might as well start by trying the same numbers (progn - (def!constant read-only-space-start #x10000000) - (def!constant read-only-space-end #x15000000) - - (def!constant static-space-start #x28000000) - (def!constant static-space-end #x2c000000) + (def!constant linkage-table-space-start #x0f800000) + (def!constant linkage-table-space-end #x10000000) - (def!constant dynamic-space-start #x30000000) - (def!constant dynamic-space-end #x38000000) + (def!constant read-only-space-start #x10000000) + (def!constant read-only-space-end #x15000000) - (def!constant dynamic-0-space-start #x30000000) - (def!constant dynamic-0-space-end #x38000000) - - (def!constant dynamic-1-space-start #x40000000) - (def!constant dynamic-1-space-end #x48000000) + (def!constant static-space-start #x28000000) + (def!constant static-space-end #x2c000000) - (def!constant control-stack-start #x50000000) - (def!constant control-stack-end #x51000000) + (def!constant dynamic-0-space-start #x30000000) + (def!constant dynamic-0-space-end #x38000000) - (def!constant binding-stack-start #x60000000) - (def!constant binding-stack-end #x61000000)) + (def!constant dynamic-1-space-start #x40000000) + (def!constant dynamic-1-space-end #x48000000)) + +;; Size of one linkage-table entry in bytes. See comment in +;; src/runtime/sparc-arch.c +(def!constant linkage-table-entry-size 16) ;;;; other random constants. @@ -207,8 +168,11 @@ sb!impl::*!initial-fdefn-objects* ;; functions that the C code needs to call - maybe-gc + sub-gc sb!kernel::internal-error + sb!kernel::control-stack-exhausted-error + sb!kernel::undefined-alien-variable-error + sb!kernel::undefined-alien-function-error sb!di::handle-breakpoint sb!di::handle-fun-end-breakpoint @@ -221,6 +185,10 @@ *current-catch-block* *current-unwind-protect-block* + *binding-stack-start* + *control-stack-start* + *control-stack-end* + ;; interrupt handling *free-interrupt-context-index* sb!unix::*interrupts-enabled* @@ -231,7 +199,7 @@ '(length two-arg-+ two-arg-- two-arg-* two-arg-/ two-arg-< two-arg-> two-arg-= two-arg-<= two-arg->= two-arg-/= eql %negate - two-arg-and two-arg-ior two-arg-xor + two-arg-and two-arg-ior two-arg-xor two-arg-eqv two-arg-gcd two-arg-lcm ))