Changeset 7430 for branches/ia32/level-0/X86/X8632/x8632-def.lisp
- Timestamp:
- Oct 12, 2007, 6:24:33 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/ia32/level-0/X86/X8632/x8632-def.lisp
r7361 r7430 25 25 (defx86lapfunction %function-code-words ((fun arg_z)) 26 26 (trap-unless-typecode= fun x8632::subtag-function) 27 (xorl (% imm0) (% imm0)) 28 (movw (@ x8632::misc-data-offset (% fun)) (% imm0.w)) 27 (movzwl (@ x8632::misc-data-offset (% fun)) (% imm0)) 29 28 (box-fixnum imm0 arg_z) 30 29 (single-value-return)) … … 32 31 (defx86lapfunction %nth-immediate ((fun arg_y) (n arg_z)) 33 32 (trap-unless-typecode= fun x8632::subtag-function) 34 (xorl (% imm0) (% imm0)) 35 (movw (@ x8632::misc-data-offset (% fun)) (% imm0.w)) 33 (movzwl (@ x8632::misc-data-offset (% fun)) (% imm0)) 36 34 (lea (@ (% n) (% imm0) 4) (% imm0)) 37 35 (movl (@ x8632::misc-data-offset (% fun) (% imm0)) (% arg_z))
Note: See TracChangeset
for help on using the changeset viewer.