Changeset 6310 for branches

Timestamp:

Apr 20, 2007, 1:52:16 AM (18 years ago)

Author:

Gary Byers

Message:

Allow use of :talign pseudo-op in vinsns.

File:

• branches/x8664-call/ccl/compiler/X86/x86-backend.lisp (modified) (1 diff)

branches/x8664-call/ccl/compiler/X86/x86-backend.lisp

@@ -211 +211 @@
                              `(,(cadr op) ,@(mapcar #'simplify-operand (cddr op)))
                              (if (member (car op)
-                                         '(:tra :align :byte :word :long :quad))
+                                         '(:tra :align :byte :word :long :quad :talign))
                                `(,(car op) ,(simplify-operand (cadr op)))
                                (simplify-operand (eval op))))))) ; Handler-case this?