source: branches/arm/lisp-kernel/lisptypes.h @ 13923

Last change on this file since 13923 was 13599, checked in by gb, 10 years ago

Move platform-specific definitions to platform-specific header.

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.2 KB
Line 
1/*
2   Copyright (C) 2009 Clozure Associates
3   Copyright (C) 1994-2001 Digitool, Inc
4   This file is part of Clozure CL. 
5
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. 
11
12   Clozure CL 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#ifndef __lisptypes__
19#define __lisptypes__
20
21
22#if WORD_SIZE == 64
23typedef u64_t LispObj;
24typedef u64_t natural;
25typedef s64_t signed_natural;
26typedef u64_t unsigned_of_pointer_size;
27#else
28typedef u32_t LispObj;
29typedef u32_t natural;
30typedef s32_t signed_natural;
31typedef u32_t unsigned_of_pointer_size;
32#endif
33
34
35typedef u32_t lisp_char_code;
36
37typedef int OSStatus, OSErr;
38#define noErr ((OSErr) 0)
39typedef int Boolean;
40typedef void *LogicalAddress;
41typedef char *Ptr, *BytePtr, *StringPtr;
42typedef unsigned int UInt32;
43
44
45
46#define true 1
47#define false 0
48
49#endif /*__lisptypes__ */
Note: See TracBrowser for help on using the repository browser.