From c9a7c2343579732c070818380d4a95b85143944f Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 28 Feb 2010 21:20:55 -0800 Subject: [PATCH] Fix problem with re-reading microcode tables on disk-restore. --- src/runtime/runtime.pkg | 2 +- src/runtime/savres.scm | 2 +- src/runtime/utabs.scm | 8 -------- 3 files changed, 2 insertions(+), 10 deletions(-) diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg index 7e327fed7..ddca91aa0 100644 --- a/src/runtime/runtime.pkg +++ b/src/runtime/runtime.pkg @@ -2597,7 +2597,7 @@ USA. microcode-type/code-limit microcode-type/name->code) (export (runtime save/restore) - re-read-microcode-tables!) + read-microcode-tables!) (initialization (initialize-package!))) (define-package (runtime number) diff --git a/src/runtime/savres.scm b/src/runtime/savres.scm index 7a767c755..ec9a13ed0 100644 --- a/src/runtime/savres.scm +++ b/src/runtime/savres.scm @@ -72,7 +72,7 @@ USA. (set! time-world-saved time) (if (string? id) unspecific #f))))))) ((ucode-primitive set-fixed-objects-vector!) fixed-objects)))) - (re-read-microcode-tables!) + (read-microcode-tables!) (lambda () (set! time-world-saved time) (fluid-let ((*within-restore-window?* #t)) diff --git a/src/runtime/utabs.scm b/src/runtime/utabs.scm index 5d99c8cf1..d4f7e035c 100644 --- a/src/runtime/utabs.scm +++ b/src/runtime/utabs.scm @@ -69,14 +69,6 @@ USA. (microcode-identification-item 'CONSOLE-HEIGHT)) unspecific) -(define (re-read-microcode-tables!) - (set! identification-vector ((ucode-primitive microcode-identify))) - (set! microcode-id/tty-x-size - (microcode-identification-item 'CONSOLE-WIDTH)) - (set! microcode-id/tty-y-size - (microcode-identification-item 'CONSOLE-HEIGHT)) - unspecific) - (define (intern string) ((ucode-primitive string->symbol) (let ((size (string-length string))) -- 2.25.1