Skip to content
Snippets Groups Projects
Commit d205b680 authored by rtoy's avatar rtoy
Browse files

Initial version.

parent 0bef43c3
No related branches found
No related tags found
No related merge requests found
;; 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
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment