source: trunk/source/level-0/X86/x86-io.lisp @ 8196

Last change on this file since 8196 was 8196, checked in by gb, 12 years ago

rme's fix to %get-errno (from trunk).

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 905 bytes
Line 
1;;; -*- Mode: Lisp; Package: CCL; -*-
2;;;
3;;;   Copyright (C) 1994-2001 Digitool, Inc
4;;;   This file is part of OpenMCL. 
5;;;
6;;;   OpenMCL is licensed under the terms of the Lisp Lesser GNU Public
7;;;   License , known as the LLGPL and distributed with OpenMCL as the
8;;;   file "LICENSE".  The LLGPL consists of a preamble and the LGPL,
9;;;   which is distributed with OpenMCL as the file "LGPL".  Where these
10;;;   conflict, the preamble takes precedence. 
11;;;
12;;;   OpenMCL is referenced in the preamble as the "LIBRARY."
13;;;
14;;;   The LLGPL is also available online at
15;;;   http://opensource.franz.com/preamble.html
16
17
18
19(in-package "CCL")
20
21;;; not very smart yet
22
23(defx86lapfunction %get-errno ()
24  (movq (@ (% :rcontext) x8664::tcr.errno-loc) (% imm1))
25  (movslq (@ (% imm1)) (% imm0))
26  (movss (% fpzero) (@ (% imm1)))
27  (negq (% imm0))
28  (box-fixnum imm0 arg_z)
29  (single-value-return))
30
31; end
Note: See TracBrowser for help on using the repository browser.