Changeset 8173


Ignore:
Timestamp:
Jan 17, 2008, 3:06:26 PM (12 years ago)
Author:
gb
Message:

Change order in TYPECASE in FASL-DUMP-DISPATCH (change from trunk,
to deal with FIXNUM arrays.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/1.2/devel/source/lib/nfcomp.lisp

    r8140 r8173  
    12611261    ((simple-array (signed-byte 64) (*))
    12621262     (fasl-dump-64-bit-ivector exp $fasl-s64-vector))
    1263     (vector (fasl-dump-gvector exp $fasl-vector-header))
    1264     (array (fasl-dump-gvector exp $fasl-array-header))
    12651263    (ivector
    12661264     (unless (eq (backend-target-arch-name *target-backend*)
     
    12751273       (fasl-out-count n)
    12761274       (fasl-out-ivect exp 0 nb)))
     1275    (vector (fasl-dump-gvector exp $fasl-vector-header))
     1276    (array (fasl-dump-gvector exp $fasl-array-header))
     1277
    12771278    (gvector
    12781279     (if (= (typecode exp) target::subtag-istruct)
Note: See TracChangeset for help on using the changeset viewer.