Changeset 8072

Timestamp:

Jan 14, 2008, 6:57:31 PM (17 years ago)

Author:

R. Matthew Emerson

Message:

Write total size/code size counts in the right order.

File:

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

branches/ia32/lib/nfcomp.lisp

@@ -1432 +1432 @@
       (assert (= other-words (1- (uvsize f))))
       (fasl-out-opcode $fasl-clfun f)
+      (fasl-out-count function-size)
       (fasl-out-count imm-words)
-      (fasl-out-count function-size)
       (fasl-out-ivect code 0 imm-bytes)
       (do ((i 1 (1+ i))