From d205b68090131fa5bbfe2bdf17af643145713c10 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Wed, 23 Apr 2008 23:30:43 +0000
Subject: [PATCH] Initial version.

---
 bootfiles/19e/boot-2008-04-1.lisp | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 bootfiles/19e/boot-2008-04-1.lisp

diff --git a/bootfiles/19e/boot-2008-04-1.lisp b/bootfiles/19e/boot-2008-04-1.lisp
new file mode 100644
index 000000000..a7134ac51
--- /dev/null
+++ b/bootfiles/19e/boot-2008-04-1.lisp
@@ -0,0 +1,15 @@
+;; Bootstrap to change the vops to use 32-bit registers for characters.
+;; A basic cross-compile works too.
+
+#+x86
+(in-package :x86)
+
+#+x86
+(handler-bind ((error (lambda (c)
+                        (declare (ignore c))
+                        (invoke-restart 'continue))))
+  (defconstant byte-sc-names '(byte-reg))
+  (defconstant dword-sc-names
+    '(any-reg descriptor-reg sap-reg signed-reg unsigned-reg control-stack
+      signed-stack unsigned-stack sap-stack single-stack constant
+      base-char-reg base-char-stack)))
\ No newline at end of file
-- 
GitLab