Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.


Diff of /src/compiler/dump.lisp [5d1093] .. [4e815e] Maximize Restore

  Switch to side-by-side view

--- a/src/compiler/dump.lisp
+++ b/src/compiler/dump.lisp
@@ -985,7 +985,11 @@
              (dump-byte (char-code (schar name i)) fasl-output))))
          (aver (null name))
-         (dump-fop 'fop-code-object-fixup fasl-output)))
+         (dump-fop 'fop-code-object-fixup fasl-output))
+        (:symbol-tls-index
+         (aver (symbolp name))
+         (dump-non-immediate-object name fasl-output)
+         (dump-fop 'fop-symbol-tls-fixup fasl-output)))
       ;; No matter what the flavor, we'll always dump the position
       (dump-word position fasl-output)))