Ignore:
Timestamp:
Feb 22, 2004, 1:27:13 AM (16 years ago)
Author:
gb
Message:

PPC64 changes (some of them rather suspect ...). 32-bit kernel may be a
little funky ...

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/lisp-kernel/lisptypes.h

    r6 r557  
    1818#define __lisptypes__
    1919
    20 typedef unsigned LispObj;
     20#include <sys/types.h>
     21#ifdef PPC64
     22typedef u_int64_t LispObj;
     23typedef u_int64_t natural;
     24typedef int64_t signed_natural;
     25#ifdef FOREIGN_POINTER_32BIT
     26typedef u_int32_t unsigned_of_pointer_size;
     27#else
     28typedef u_int64_t unsigned_of_pointer_size;
     29#endif
     30#else
     31typedef u_int32_t LispObj;
     32typedef u_int32_t natural;
     33typedef int32_t signed_natural;
     34typedef u_int32_t unsigned_of_pointer_size;
     35#endif
    2136
    2237typedef struct ucontext ExceptionInformation, ExceptionInformationPowerPC;
    2338
    24 typedef char *BytePtr;
    2539typedef int OSStatus, OSErr;
    2640#define noErr ((OSErr) 0)
    2741typedef int Boolean;
    2842typedef void *LogicalAddress;
    29 typedef char *StringPtr;
    30 typedef char *Ptr;
     43typedef char *Ptr, *BytePtr, *StringPtr;
    3144typedef unsigned int UInt32;
     45
    3246typedef union {
    3347  unsigned short halfword;
    3448  struct {
     49#ifdef PPC64
     50    unsigned short offset:13;
     51    unsigned short pad:1;
     52#else
    3553    unsigned short offset:14;
     54#endif
    3655    unsigned short hasnode:1;
    3756    unsigned short modified:1;
Note: See TracChangeset for help on using the changeset viewer.