Changeset 5085


Ignore:
Timestamp:
Sep 3, 2006, 3:02:39 PM (18 years ago)
Author:
Gary Byers
Message:

Sketch out new string types (read-time conditionalized.)

Location:
trunk/ccl
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/ccl/compiler/X86/X8664/x8664-arch.lisp

    r4990 r5085  
    354354(define-subtag u64-vector ivector-class-64-bit 14)
    355355(define-subtag double-float-vector ivector-class-64-bit 15)
    356        
     356
     357#-target-8-bit-chars
     358(define-subtag simple-base-string ivector-class-32-bit 12)
    357359(define-subtag s32-vector ivector-class-32-bit 13)
    358360(define-subtag u32-vector ivector-class-32-bit 14)
    … …  
    361363(define-subtag s16-vector ivector-class-other-bit 10)
    362364(define-subtag u16-vector ivector-class-other-bit 11)
     365#+target-8-bit-chars
    363366(define-subtag simple-base-string ivector-class-other-bit 12)
    364367(defconstant min-8-bit-ivector-subtag subtag-simple-base-string)

  • trunk/ccl/level-0/l0-array.lisp

    r4798 r5085  
    9191     unused
    9292     double-float
    93      character
     93     #+target-8-bit-chars character #-target-8-bit-chars unused
    9494     unused
    9595     unused
    … …  
    120120    (signed-byte 16)
    121121    (unsigned-byte 16)
    122     character
     122    #+target-8-bit-chars character #-target-8-bit-chars unused
    123123    (signed-byte 8)
    124124    (unsigned-byte 8)
    … …  
    141141    unused
    142142    unused
    143     unused
     143    #-target-8-bit-chars character #+target-8-bit-chars unused
    144144    (signed-byte 32)
    145145    (unsigned-byte 32)

  • trunk/ccl/level-0/l0-pred.lisp

    r4651 r5085  
    561561    bogus
    562562    simple-double-float-vector
    563     simple-base-string
     563    #+target-8-bit-chars simple-base-string #-target-8-bit-chars bogus
    564564    bogus
    565565    bogus
    … …  
    739739    simple-signed-word-vector
    740740    simple-unsigned-word-vector
    741     simple-base-string
     741    #+target-8-bit-chars simple-base-string #-target-8-bit-chars bogus
    742742    simple-signed-byte-vector
    743743    simple-unsigned-byte-vector
    … …  
    757757    bogus
    758758    bogus
    759     bogus
     759    #-target-8-bit-chars simple-base-string #+target-8-bit-chars bogus
    760760    simple-signed-long-vector
    761761    simple-unsigned-long-vector
Note: See TracChangeset for help on using the changeset viewer.