Changeset 10143


Ignore:
Timestamp:
Jul 19, 2008, 7:17:43 PM (11 years ago)
Author:
rme
Message:

%GET-ERRNO for x8632.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/X86/x86-io.lisp

    r8196 r10143  
    2121;;; not very smart yet
    2222
     23#+x8664-target
    2324(defx86lapfunction %get-errno ()
    2425  (movq (@ (% :rcontext) x8664::tcr.errno-loc) (% imm1))
     
    2930  (single-value-return))
    3031
    31 ; end
     32#+x8632-target
     33(defx8632lapfunction %get-errno ()
     34  (movl (@ (% :rcontext) x8632::tcr.errno-loc) (% imm0))
     35  (movl (@ (% imm0)) (% imm0))
     36  (neg (% imm0))
     37  (box-fixnum imm0 arg_z)
     38  (movl (@ (% :rcontext) x8632::tcr.errno-loc) (% imm0))
     39  (movss (% fpzero) (@ (% imm0)))
     40  (single-value-return))
     41
Note: See TracChangeset for help on using the changeset viewer.