Changeset 9700


Ignore:
Timestamp:
Jun 9, 2008, 12:59:51 AM (11 years ago)
Author:
gb
Message:

Propagate changes from working-x11 branch (decl fixes.)
Change image-abi-version.

Location:
branches/working-0711-perf/ccl/xdump
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711-perf/ccl/xdump/heap-image.lisp

    r7759 r9700  
    9797
    9898
    99 (defparameter *image-abi-version* 1018)
     99(defparameter *image-abi-version* 1022)
    100100
    101101(defun write-image-file (pathname image-base spaces &optional (abi-version *image-abi-version*))
  • branches/working-0711-perf/ccl/xdump/xfasload.lisp

    r9530 r9700  
    494494    (setq subtag (type-keyword-code subtag)))
    495495  (locally
    496       (declare (fixnum subtype len))
     496      (declare (fixnum subtag len))
    497497      (multiple-value-bind (cell-addr data offset)
    498498          (target-word-size-case
     
    504504
    505505(defun xload-make-word-ivector (subtag len space)
    506   (declare (fixnum subtype len))
     506  (declare (fixnum subtag len))
    507507    (multiple-value-bind (cell-addr data offset) (xload-alloc-fullwords space  *xload-target-fulltag-misc* len)
    508508      (declare (fixnum offset))
     
    619619    (setq subtag (type-keyword-code subtag)))
    620620  (locally
    621       (declare (fixnum subtype nelements))
     621      (declare (fixnum subtag nelements))
    622622    (multiple-value-bind (addr v o) (xload-alloc space *xload-target-fulltag-misc* (xload-dnode-align (xload-subtag-bytes subtag nelements)))
    623623      (declare (fixnum o))
     
    843843(defun %xload-fasl-vreadstr (s)
    844844  (multiple-value-bind (str n new-p) (%fasl-vreadstr s)
    845     (declare (fixnum n subtype))
     845    (declare (fixnum n))
    846846    (values (xload-save-string str n) str n new-p)))
    847847
     
    850850(defun %xload-fasl-nvreadstr (s)
    851851  (multiple-value-bind (str n new-p) (%fasl-nvreadstr s)
    852     (declare (fixnum n subtype))
     852    (declare (fixnum n))
    853853    (values (xload-save-string str n) str n new-p)))
    854854
Note: See TracChangeset for help on using the changeset viewer.