Changeset 7847


Ignore:
Timestamp:
Dec 8, 2007, 1:06:19 AM (13 years ago)
Author:
gb
Message:

In %INIT-MISC, the number of 64-bit words is (ash (+ 63 number-of-bits) -6),
not (... (+ 64 ...)).

That fencepost could cause 1 too many words to be initialized, and could
therefore clobber some nearby object in memory or (in at least one
scenario) write to unmapped memory.

File:
1 edited

Legend:

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

    r7624 r7847  
    169169                            (1 -1)
    170170                            (t (report-bad-arg val 'bit))))
    171                       (l0 (ash (the fixnum (+ len 64)) -6)))
     171                      (l0 (ash (the fixnum (+ len 63)) -6)))
    172172                 (declare (type (unsigned-byte 8) v0)
    173173                          (type index l0))
Note: See TracChangeset for help on using the changeset viewer.