Changeset 10559


Ignore:
Timestamp:
Aug 25, 2008, 3:58:05 AM (11 years ago)
Author:
gb
Message:

%get-fs-register, %get-gs-register.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/X86/X8632/x8632-misc.lisp

    r10449 r10559  
    795795  (leal (@ target::fulltag-cons (% imm0) (% n) 2) (% arg_z))
    796796  (single-value-return))
     797
     798;;; Get the thread-specific value of %fs.
     799(defx8632lapfunction %get-fs-register ()
     800  (xorl (% imm0) (% imm0))
     801  (:byte #x66)                          ;movw %fs,%ax
     802  (:byte #x8c)
     803  (:byte #xe0)
     804  (box-fixnum imm0 arg_z)
     805  (single-value-return))
     806
     807(defx86lapfunction %get-gs-register ()
     808  (xorl (% imm0) (% imm0))
     809  (:byte #x66)                          ;movw %gs,%ax
     810  (:byte #x8c)
     811  (:byte #xe8)
     812  (box-fixnum imm0 arg_z)
     813  (single-value-return))
     814 
Note: See TracChangeset for help on using the changeset viewer.