source: branches/win64/level-0/X86/x86-io.lisp @ 8649

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

Use (:rcontext tcr-field) syntax to reference TCR fields.
Don't use SAVE3 (was used for debugging of heap-walking code; might
be used in %%APPLY-IN-FRAME-PROTO if caller sets it.)

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 899 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.