Changeset 10507

Timestamp:

Aug 21, 2008, 9:18:30 AM (11 years ago)

Author:

gb

Message:

Need to handle :rcontext in X862-EXPAND-VINSN, too.

File:

• trunk/source/compiler/X86/x862.lisp (modified) (1 diff)

trunk/source/compiler/X86/x862.lisp

@@ -5781 +5781 @@
                              "unknown vinsn label ~s" valform))))
                      ((atom valform) valform)
+                     ((eq (car valform) :rcontext)
+                      (if (>= (backend-lisp-context-register *target-backend*)
+                              x86::+x86-segment-register-offset+)
+                        (mapcar #'parse-operand-form `(:rcontext ,(cadr valform) nil nil nil))
+                        (mapcar #'parse-operand-form `(nil ,(cadr valform) :rcontext nil nil))))
                      ((atom (cdr valform)) (svref vp (car valform)))
                      ((eq (car valform) :@)