Changeset 7454 for branches/working-0710


Ignore:
Timestamp:
Oct 16, 2007, 2:32:04 PM (12 years ago)
Author:
palter
Message:

%init-gvector is defined elsewhere so use a different name
%init-misc is supposed to return the vector

File:
1 edited

Legend:

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

    r7453 r7454  
    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-gvector ((len arg_x) (value arg_y) (vector arg_z))
     32(defx86lapfunction %init-misc-gvector ((len arg_x) (value arg_y) (vector arg_z))
    3333  (jmp @test)
    3434  @loop
     
    129129    (if (or (= fulltag x8664::fulltag-nodeheader-0)
    130130            (= fulltag x8664::fulltag-nodeheader-1))
    131       (%init-gvector len val uvector)
     131      (%init-misc-gvector len val uvector)
    132132      (if (= fulltag x8664::ivector-class-64-bit)
    133133        (%init-ivector64 typecode len val uvector)
     
    181181                                   (simple-array (unsigned-byte 8) (*))
    182182                                   (simple-array (signed-byte 16) (*))
    183                                    (simple-array (unsigned-byte 16) (*)))))))))))
     183                                   (simple-array (unsigned-byte 16) (*))))))))))
     184  uvector)
    184185             
    185186
Note: See TracChangeset for help on using the changeset viewer.