Changeset 8633 for branches/ia32/level-0


Ignore:
Timestamp:
Mar 1, 2008, 8:32:03 PM (12 years ago)
Author:
rme
Message:

Use only one imm reg in %kernel-import.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/level-0/X86/X8632/x8632-utils.lisp

    r8374 r8633  
    7979;;; Returns that kernel import, a fixnum.
    8080(defx8632lapfunction %kernel-import ((offset arg_z))
    81   (mark-as-imm temp0)
    82   (let ((imm1 temp0))
    83     (ref-global kernel-imports imm1)
    84     (unbox-fixnum arg_z imm0)
    85     (movl (@ (% imm1) (% imm0)) (% imm0))
    86     (box-fixnum imm0 arg_z))
    87   (mark-as-node temp0)
     81  (unbox-fixnum arg_z imm0)
     82  (addl (@ (+ x8632::nil-value (x8632::%kernel-global 'kernel-imports))) (% imm0))
     83  (movl (@ (% imm0)) (% imm0))
     84  (box-fixnum imm0 arg_z)
    8885  (single-value-return))
    8986
Note: See TracChangeset for help on using the changeset viewer.