source: trunk/source/level-0/ARM/arm-io.lisp @ 15601

Last change on this file since 15601 was 14909, checked in by gb, 9 years ago

Back out of r14899 (ARM backend changes): at least one of those changes
is bogus. Some of those changes would be worthwhile if they were correct;
I'll try to isolate and fix the problems.

Although the commit message neglected to mention it, in r14897 the assembler
stopped allowing arbitrary symbols when it really wanted to use keywords,
on the assumption that "we always used keywords anyhow". That wasn't quite
true; change arm-vinsns, arm-lapmacros, and a few level-0 sources to ensure
that it is. (I don't think that we were keywordizing at runtime when
compiling lisp code, so the change had minimal effect on anything but
arguable aesthetics.)

File size: 922 bytes
1;;; -*- Mode: Lisp; Package: CCL; -*-
3;;;   Copyright (C) 2010 Clozure Associates
4;;;   This file is part of Clozure CL. 
6;;;   Clozure CL is licensed under the terms of the Lisp Lesser GNU Public
7;;;   License , known as the LLGPL and distributed with Clozure CL as the
8;;;   file "LICENSE".  The LLGPL consists of a preamble and the LGPL,
9;;;   which is distributed with Clozure CL as the file "LGPL".  Where these
10;;;   conflict, the preamble takes precedence. 
12;;;   Clozure CL is referenced in the preamble as the "LIBRARY."
14;;;   The LLGPL is also available online at
19(in-package "CCL")
21;;; not very smart yet
23(defarmlapfunction %get-errno ()
24  (mov temp0 (:$ 0))
25  (ldr imm1 (:@ rcontext (:$ arm::tcr.errno-loc)))
26  (ldr imm0 (:@ imm1 (:$ 0)))
27  (str temp0 (:@ imm1 (:$ 0)))
28  (rsb imm0 imm0 (:$ 0))
29  (box-fixnum arg_z imm0)
30  (bx lr))
32; end
Note: See TracBrowser for help on using the repository browser.