Changeset 15049


Ignore:
Timestamp:
Oct 27, 2011, 6:01:40 PM (8 years ago)
Author:
gb
Message:

Un-botch %COPY-IVECTOR-TO-PTR, which wasn't even supposed to have
changed in a recent commit.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/X86/x86-misc.lisp

    r15036 r15049  
    6464  (let ((rsrc temp0)
    6565        (rsrc-byte-offset imm0)
    66         (rdest-byte-offset imm1)
     66        (rdestptr imm1)
    6767        (rdata imm2))
    6868    (movq (@ src-byte-offset (% rsp)) (% rsrc-byte-offset))
    6969    (sarq ($ x8664::word-shift) (% rsrc-byte-offset))
    70     (movq (% dest-byte-offset) (% rdest-byte-offset))
    71     (sarq ($ x8664::word-shift) (% rdest-byte-offset))
     70    (movq (% dest-byte-offset) (% rdestptr))
     71    (sarq ($ x8664::word-shift) (% rdestptr))
     72    (addq (@ target::macptr.address (% dest)) (% rdestptr))
    7273    (movq (@ src (% rsp)) (% rsrc))
    7374    (testq (% nbytes) (% nbytes))
    7475    (jmp @test)
    7576    @loop
    76     (unbox-fixnum rsrc-byte-offset imm0)
    77     (addq ($ '1) (% rsrc-byte-offset))
    78     (movb (@ x8664::misc-data-offset (% rsrc) (% imm0)) (%b imm0))
    79     (unbox-fixnum dest-byte-offset imm1)
    80     (addq ($ '1) (% dest-byte-offset))
    81     (addq (@ x8664::macptr.address (%q dest)) (% imm1))
    82     (movb (%b imm0) (@ (% imm1)))
     77    (movb (@ x8664::misc-data-offset (% rsrc) (% imm0)) (%b rdata))
     78    (addq ($ 1) (% rsrc-byte-offset))
     79    (movb (%b rdata) (@ (% rdestptr)))
     80    (addq ($ 1) (% rdestptr))
    8381    (subq ($ '1) (% nbytes))
    8482    @test
Note: See TracChangeset for help on using the changeset viewer.