Changeset 7456 for branches/working-0710


Ignore:
Timestamp:
Oct 16, 2007, 3:18:46 PM (12 years ago)
Author:
gb
Message:

Change a few things back (so that we tail-recurse).
Set elements of a string to the char-code of the initial value, not
to some attempt at a boxed representation.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0710/ccl/level-0/X86/x86-array.lisp

    r7454 r7456  
    3030;;; None of the stores in here can be intergenerational; the vector
    3131;;; is known to be younger than the initial value
    32 (defx86lapfunction %init-misc-gvector ((len arg_x) (value arg_y) (vector arg_z))
     32(defx86lapfunction %init-gvector ((len arg_x) (value arg_y) (vector arg_z))
    3333  (jmp @test)
    3434  @loop
     
    111111                    (single-float-bits (require-type val 'single-float)))
    112112                   (#.x8664::subtag-simple-base-string
    113                     (logior (the (unsigned-byte 32)
    114                               (ash (the (mod #x110000) (char-code val))
    115                                    x8664::charcode-shift))
    116                             x8664::subtag-character))
     113                    (char-code val))
    117114                   (t
    118115                    (require-type val '(unsigned-byte 32))))))
     
    129126    (if (or (= fulltag x8664::fulltag-nodeheader-0)
    130127            (= fulltag x8664::fulltag-nodeheader-1))
    131       (%init-misc-gvector len val uvector)
     128      (%init-gvector len val uvector)
    132129      (if (= fulltag x8664::ivector-class-64-bit)
    133130        (%init-ivector64 typecode len val uvector)
     
    181178                                   (simple-array (unsigned-byte 8) (*))
    182179                                   (simple-array (signed-byte 16) (*))
    183                                    (simple-array (unsigned-byte 16) (*))))))))))
    184   uvector)
     180                                   (simple-array (unsigned-byte 16) (*)))))))))))
    185181             
    186182
Note: See TracChangeset for help on using the changeset viewer.