tools-for-build/corefile.lisp

   1
   2 ;;; This package name does not persist after the build is complete,
   3 ;;; so it does not have an "!" in it.
   4 ;;; It it needed by genesis and SB-EDITCORE
   5 (defpackage "SB-COREFILE"
   6   (::use "CL")
   7   (:export #:core-magic
   8            #:build-id-core-entry-type-code
   9            #:directory-core-entry-type-code
  10            #:initial-fun-core-entry-type-code
  11            #:page-table-core-entry-type-code
  12            #:linkage-table-core-entry-type-code
  13            #:end-core-entry-type-code
  14            #:max-core-space-id
  15            ;;
  16            #:read-only-core-space-id
  17            #:static-core-space-id
  18            #:dynamic-core-space-id
  19            #:immobile-fixedobj-core-space-id
  20            #:immobile-varyobj-core-space-id
  21            #:deflated-core-space-id-flag))
  22
  23 (in-package "SB-COREFILE")
  24
  25 ;;; magic numbers to identify entries in a core file
  26 ;;;
  27 ;;; These are arbitrary words, tested not for being in a particular range,
  28 ;;; but just for equality. However, if you ever need to look at a .core file
  29 ;;; and figure out what's going on, it's slightly convenient that they're
  30 ;;; all in an easily recognizable range, and displacing the range away from
  31 ;;; zero seems likely to reduce the chance that random garbage will be
  32 ;;; misinterpreted as a .core file.)
  33 (defconstant build-id-core-entry-type-code 3860)
  34 (defconstant directory-core-entry-type-code 3861)
  35 (defconstant initial-fun-core-entry-type-code 3863)
  36 (defconstant page-table-core-entry-type-code 3880)
  37 (defconstant linkage-table-core-entry-type-code 3881)
  38 (defconstant end-core-entry-type-code 3840)
  39
  40 (defconstant dynamic-core-space-id 1)
  41 (defconstant static-core-space-id 2)
  42 (defconstant read-only-core-space-id 3)
  43 (defconstant immobile-fixedobj-core-space-id 4)
  44 (defconstant immobile-varyobj-core-space-id 5)
  45 (defconstant deflated-core-space-id-flag 8)