Changeset 9891


Ignore:
Timestamp:
Jul 3, 2008, 4:49:45 PM (11 years ago)
Author:
gb
Message:

When setting lfun-bits in cloned function in SETUP-SLOT-LOOKUP,
use (ash -1 $LFBITS-NONAME-BIT), so that resulting bits will be
a fixnum on (current) 32-bit platforms. (Maybe not on ARM ?)
This (bignum lfun-bits) has kept CLASS-OF from being able
to determine the class of these functions reliably, which
caused CLEAR-IOBLOCK-STREAMS to fail when walking memory.

Re-enable CLEAR-IOBLOCK-STREAMS on PPC (was really a 32/64-bit
issue, not PPC-specific.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-clos.lisp

    r9844 r9891  
    366366                                table
    367367                                (dpb 1 $lfbits-numreq
    368                                      (ash 1 $lfbits-noname-bit)))
     368                                     (ash -1 $lfbits-noname-bit)))
    369369              #+x86-target
    370370              (%clone-x86-function (if small
     
    374374                                   table
    375375                                   (dpb 1 $lfbits-numreq
    376                                      (ash 1 $lfbits-noname-bit))))
     376                                     (ash -1 $lfbits-noname-bit))))
    377377             (class (%wrapper-class wrapper))
    378378             (get-f
Note: See TracChangeset for help on using the changeset viewer.