Changeset 7430 for branches/ia32/level-0/X86/X8632/x8632-def.lisp

Timestamp:

Oct 12, 2007, 6:24:33 PM (13 years ago)

Author:

rme

Message:

Some easy lap functions updated. Lots more to convert.

File:

• branches/ia32/level-0/X86/X8632/x8632-def.lisp (modified) (2 diffs)

branches/ia32/level-0/X86/X8632/x8632-def.lisp

@@ -25 +25 @@
 (defx86lapfunction %function-code-words ((fun arg_z))
   (trap-unless-typecode= fun x8632::subtag-function)
-  (xorl (% imm0) (% imm0))
-  (movw (@ x8632::misc-data-offset (% fun)) (% imm0.w))
+  (movzwl (@ x8632::misc-data-offset (% fun)) (% imm0))
   (box-fixnum imm0 arg_z)
   (single-value-return))
@@ -32 +31 @@
 (defx86lapfunction %nth-immediate ((fun arg_y) (n arg_z))
   (trap-unless-typecode= fun x8632::subtag-function)
-  (xorl (% imm0) (% imm0))
-  (movw (@ x8632::misc-data-offset (% fun)) (% imm0.w))
+  (movzwl (@ x8632::misc-data-offset (% fun)) (% imm0))
   (lea (@ (% n) (% imm0) 4) (% imm0))
   (movl (@ x8632::misc-data-offset (% fun) (% imm0)) (% arg_z))