diff --git a/lisp/loadup.el b/lisp/loadup.el
index 5f29c01..8870eb7 100644
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -47,6 +47,8 @@
 
 ;;; Code:
 
+(setq purify-flag nil)
+
 ;; Add subdirectories to the load-path for files that might get
 ;; autoloaded when bootstrapping.
 ;; This is because PATH_DUMPLOADSEARCH is just "../lisp".
@@ -99,10 +101,6 @@
 (load "emacs-lisp/backquote")
 (load "subr")
 
-;; Do it after subr, since both after-load-functions and add-hook are
-;; implemented in subr.el.
-(add-hook 'after-load-functions (lambda (f) (garbage-collect)))
-
 (load "version")
 
 (load "widget")
@@ -168,7 +166,6 @@
 ;; This file doesn't exist when building a development version of Emacs
 ;; from the repository.  It is generated just after temacs is built.
 (load "international/charprop.el" t)
-(load "international/characters")
 (load "composite")
 
 ;; Load language-specific files.
@@ -374,11 +371,6 @@
 ;; Avoid storing references to build directory in the binary.
 (setq custom-current-group-alist nil)
 
-;; We keep the load-history data in PURE space.
-;; Make sure that the spine of the list is not in pure space because it can
-;; be destructively mutated in lread.c:build_load_history.
-(setq load-history (mapcar 'purecopy load-history))
-
 (set-buffer-modified-p nil)
 
 (remove-hook 'after-load-functions (lambda (f) (garbage-collect)))
@@ -413,10 +405,6 @@
     (message "Pure-hashed: %d strings, %d vectors, %d conses, %d bytecodes, %d others"
              strings vectors conses bytecodes others)))
 
-;; Avoid error if user loads some more libraries now and make sure the
-;; hash-consing hash table is GC'd.
-(setq purify-flag nil)
-
 (if (null (garbage-collect))
     (setq pure-space-overflow t))