X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fsparc%2Fparms.lisp;h=792612eb78e3b48b68f0e6346f76facca4f53a90;hb=b66385e2031fc2cac17dd129df0af400beb48a22;hp=052bf37d20ae2c7962d980830982e6d78963cf05;hpb=08cc6ef646857381452e814cda8e68fccc464f96;p=sbcl.git diff --git a/src/compiler/sparc/parms.lisp b/src/compiler/sparc/parms.lisp index 052bf37..792612e 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,56 +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 linkage-table-space-start #x0f800000) + (def!constant linkage-table-space-end #x10000000) - (def!constant static-space-start #x28000000) - (def!constant static-space-end #x2c000000) + (def!constant read-only-space-start #x10000000) + (def!constant read-only-space-end #x15000000) - ;; 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 static-space-start #x28000000) + (def!constant static-space-end #x2c000000) - (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 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)) #!+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 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 dynamic-space-start #x30000000) - (def!constant dynamic-space-end #x38000000) + (def!constant dynamic-0-space-start #x30000000) + (def!constant dynamic-0-space-end #x38000000) - (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 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. @@ -165,9 +138,14 @@ cerror breakpoint fun-end-breakpoint - after-breakpoint) - -(defenum (:prefix object-not- :suffix -trap :start 16) + after-breakpoint + ;; Stepper actually not implemented on Sparc, but these constants + ;; are still needed to avoid undefined variable warnings during sbcl + ;; build. + single-step-around + single-step-before) + +(defenum (:prefix object-not- :suffix -trap :start 24) list instance) @@ -188,43 +166,16 @@ ;;; can be loaded directly out of them by indirecting relative to NIL. ;;; (defparameter *static-symbols* - '(t - - ;; The C startup code must fill these in. - *posix-argv* - sb!impl::*!initial-fdefn-objects* - - ;; functions that the C code needs to call - sub-gc - sb!kernel::internal-error - sb!kernel::control-stack-exhausted-error - sb!di::handle-breakpoint - sb!di::handle-fun-end-breakpoint - - ;; free pointers - *read-only-space-free-pointer* - *static-space-free-pointer* - *initial-dynamic-space-free-pointer* - - ;; things needed for non-local exit - *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* - sb!unix::*interrupt-pending* - )) + (append + *common-static-symbols* + *c-callable-static-symbols* + '())) (defparameter *static-funs* '(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 ))