Changeset 8376 for branches/ia32/level-0


Ignore:
Timestamp:
Jan 30, 2008, 4:28:31 AM (12 years ago)
Author:
rme
Message:

This one function (%GET-ERRNO) is so small that it seems worthwhile to
keep both x8632 and x8664 versions in the same file.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/level-0/X86/x86-io.lisp

    r8372 r8376  
    1818
    1919(in-package "CCL")
    20 #+x8664-target
    21 (progn
    2220
    2321;;; not very smart yet
    2422
     23#+x8664-target
    2524(defx86lapfunction %get-errno ()
    2625  (movq (@ (% :rcontext) x8664::tcr.errno-loc) (% imm1))
     
    3130  (single-value-return))
    3231
    33 ; end
    34 ) ; #+x8664-target
     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.