Changeset 13469


Ignore:
Timestamp:
Feb 27, 2010, 8:21:14 PM (10 years ago)
Author:
gb
Message:

PPC2-DIGEST-SYMBOLS, X862-DIGEST-SYMBOLS: make the addresses vector
in the function's symbol map a vector of (UNSIGNED-BYTE 32), not
a SIMPLE-VECTOR. (This makes it easier to purify and, on 64-bit
platforms, smaller; if this creates a problem for people whose functions
have hundreds of millions of local variables, that wouldn't be their
first problem ...)

Location:
trunk/source/compiler
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/PPC/ppc2.lisp

    r13143 r13469  
    631631           (len (length symlist))
    632632           (syms (make-array len))
    633            (ptrs (make-array (%i+  (%i+ len len) len)))
     633           (ptrs (make-array (%i+  (%i+ len len) len) :element-type '(unsigned-byte 32)))
    634634           (i -1)
    635635           (j -1))
  • trunk/source/compiler/X86/x862.lisp

    r13445 r13469  
    875875           (len (length symlist))
    876876           (syms (make-array len))
    877            (ptrs (make-array (%i+  (%i+ len len) len)))
     877           (ptrs (make-array (%i+  (%i+ len len) len) :element-type '(unsigned-byte 32)))
    878878           (i -1)
    879879           (j -1))
Note: See TracChangeset for help on using the changeset viewer.