Changeset 7262


Ignore:
Timestamp:
Sep 19, 2007, 8:34:30 PM (12 years ago)
Author:
rme
Message:

Define ra0, dump a couple of deprecated subtags, correct tcr
definition, and make symptr->symvector, function-to-function-vector,
and their inverses into no-ops for IA-32.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/compiler/X86/X8632/x8632-arch.lisp

    r7217 r7262  
    135135(defx86reg fn edi)
    136136
    137 ;; Callee-saved non-volatile registers, are probably a non-starter.
     137;; Callee-saved non-volatile registers are probably a non-starter on
     138;; IA-32.
    138139
    139140;;; Use xmm regs for floating-point.  (They can also hold integer values.)
     
    154155
    155156(defx86reg allocptr temp0)
     157
     158(defx86reg ra0 temp1)
    156159
    157160;;; This follows the ppc32 scheme pretty closely.
     
    288291(define-imm-subtag illegal 11)
    289292(defconstant illegal-marker subtag-illegal)
    290 (define-imm-subtag go-tag 12)
    291 (define-imm-subtag block-tag 24)
    292293
    293294(define-imm-subtag reserved-frame 29)
     
    521522  linear
    522523  save-ebp                              ; lisp frame ptr for foreign code
    523   lisp-fpscr-high
     524  lisp-mxcsr
     525  foreign-mxcsr
    524526  db-link                               ; special binding chain head
    525527  catch-top                             ; top catch frame
     
    531533  ts-area                               ; tstack area pointer
    532534  cs-limit                              ; cstack overflow limit
    533   total-bytes-allocated
     535  total-bytes-allocated-low
     536  total-bytes-allocated-high
    534537  log2-allocation-quantum               ; unboxed
    535538  interrupt-pending                     ; fixnum
     
    10881091
    10891092(defx8632archmacro ccl::symptr->symvector (s)
    1090   `(ccl::%symptr->symvector ,s))
     1093  s)
    10911094
    10921095(defx8632archmacro ccl::symvector->symptr (s)
    1093   `(ccl::%symvector->symptr ,s))
     1096  s)
    10941097
    10951098(defx8632archmacro ccl::function-to-function-vector (f)
    1096   `(ccl::%function-to-function-vector ,f))
     1099  f)
    10971100
    10981101(defx8632archmacro ccl::function-vector-to-function (v)
    1099   `(ccl::%function-vector-to-function ,v))
     1102  v)
    11001103
    11011104(defx8632archmacro ccl::with-ffcall-results ((buf) &body body)
Note: See TracChangeset for help on using the changeset viewer.