Changeset 9606


Ignore:
Timestamp:
May 28, 2008, 4:37:34 AM (11 years ago)
Author:
rme
Message:

Implement %bignum-ref-hi.

File:
1 edited

Legend:

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

    r9605 r9606  
    1919
    2020(defx8632lapfunction %bignum-ref-hi ((bignum arg_y) (i arg_z))
    21   (int ($ 3)))
    22 
    23 
     21  (movzwl (@ (+ 2 x8632::misc-data-offset) (% bignum) (% i)) (% imm0))
     22  (box-fixnum imm0 arg_z)
     23  (single-value-return))
    2424
    2525;;; BIGNUM[I] := DIGIT[0]
Note: See TracChangeset for help on using the changeset viewer.