- (dump-fop 'sb!impl::fop-code fasl-file)
- (dump-unsigned-32 num-consts fasl-file)
- (dump-unsigned-32 total-length fasl-file))))
-
- ;; These two dumps are only ones which contribute to our TOTAL-LENGTH
- ;; value.
- (dump-segment code-segment code-length fasl-file)
- (dump-i-vector packed-trace-table fasl-file :data-only t)
-
- ;; DUMP-FIXUPS does its own internal DUMP-FOPs: the bytes it dumps aren't
- ;; included in the TOTAL-LENGTH passed to our FOP-CODE/FOP-SMALL-CODE
- ;; fop.
- (dump-fixups fixups fasl-file)
-
- (dump-fop 'sb!impl::fop-sanctify-for-execution fasl-file)
- (let ((handle (dump-pop fasl-file)))
+ (dump-fop 'fop-code fasl-output)
+ (dump-unsigned-32 num-consts fasl-output)
+ (dump-unsigned-32 total-length fasl-output))))
+
+ ;; These two dumps are only ones which contribute to our
+ ;; TOTAL-LENGTH value.
+ (dump-segment code-segment code-length fasl-output)
+ (dump-i-vector packed-trace-table fasl-output :data-only t)
+
+ ;; DUMP-FIXUPS does its own internal DUMP-FOPs: the bytes it
+ ;; dumps aren't included in the TOTAL-LENGTH passed to our
+ ;; FOP-CODE/FOP-SMALL-CODE fop.
+ (dump-fixups fixups fasl-output)
+
+ (dump-fop 'fop-sanctify-for-execution fasl-output)
+ (let ((handle (dump-pop fasl-output)))