From d36eba7f97131d1b9eadd65aaf2a248c6629b12a Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Thu, 22 Mar 1990 18:45:48 +0000 Subject: [PATCH] Fixed a bug in base-character-move that caused it to trash the character instead of adding the type bits. --- compiler/mips/char.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/mips/char.lisp b/compiler/mips/char.lisp index 0f0efd9f2..2870bb745 100644 --- a/compiler/mips/char.lisp +++ b/compiler/mips/char.lisp @@ -54,7 +54,7 @@ (move dest src)) (x-char (inst sll dest src vm:type-bits) - (inst ori dest src vm:base-character-type)) + (inst ori dest dest vm:base-character-type)) (t (inst srl dest src vm:type-bits))) -- GitLab