Changeset 13218 for branches/purify


Ignore:
Timestamp:
Nov 20, 2009, 12:11:31 PM (10 years ago)
Author:
gb
Message:

Just read bytes in $fasl-nvstr.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/purify/source/xdump/xfasload.lisp

    r13216 r13218  
    12491249         (dotimes (i n)
    12501250           (setf (u8-ref v (+ o i *xload-target-misc-data-offset*))
    1251                  (%fasl-read-count s))))
     1251                 (%fasl-read-byte s))))
    12521252        (t
    12531253         (dotimes (i n)
    12541254           (setf (u32-ref v (+ o (* i 4) *xload-target-misc-data-offset*))
    1255                  (%fasl-read-count s)))))
     1255                 (%fasl-read-byte s)))))
    12561256      str)))
    12571257
Note: See TracChangeset for help on using the changeset viewer.