Changeset 9547 for branches

Timestamp:

May 17, 2008, 10:52:08 AM (17 years ago)

Author:

R. Matthew Emerson

Message:

fasl-dump-function: word size fix

File:

• branches/ia32/lib/nfcomp.lisp (modified) (1 diff)

branches/ia32/lib/nfcomp.lisp

@@ -1412 +1412 @@
       (fasl-out-count function-size)
       (fasl-out-count code-size)
-      (fasl-out-ivect function-vector 0 (ash code-size 3))
+      (fasl-out-ivect function-vector 0 (ash code-size target::word-shift))
       (do* ((k code-size (1+ k)))
            ((= k function-size))