Ignore:
Timestamp:
Apr 17, 2011, 10:28:40 AM (10 years ago)
Author:
Sam Hocevar
Message:

lisp: no LispSymbol? members are anonymous pointers any longer.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • abuse/trunk/src/lisp/lisp.h

    r488 r489  
    1212
    1313#include <stdint.h>
    14 
    15 #include "lisp_opt.h"
    1614
    1715#ifdef L_PROFILE
     
    8987    static LispSymbol *FindOrCreate(char const *name);
    9088
    91     void *GetName();
    92     void *GetFunction();
    93     void *GetValue();
    94 
    95     void SetFunction(void *fun);
    96     void SetValue(void *value);
     89    LispString *GetName();
     90    LispObject *GetFunction();
     91    LispObject *GetValue();
     92
     93    void SetFunction(LispObject *fun);
     94    void SetValue(LispObject *value);
    9795    void SetNumber(long num);
    9896
     
    10098    float time_taken;
    10199#endif
    102     void *value, *function;
     100    LispObject *value;
     101    LispObject *function;
    103102    LispString *name;
    104103    LispSymbol *left, *right; // tree structure
     
    153152static inline void *&CAR(void *x) { return ((LispList *)x)->car; }
    154153static inline void *&CDR(void *x) { return ((LispList *)x)->cdr; }
     154static inline ltype item_type(void *x) { if (x) return *(ltype *)x; return L_CONS_CELL; }
    155155
    156156void perm_space();
    157157void tmp_space();
    158158void use_user_space(void *addr, long size);
    159 #define item_type(c) ((c) ? *((ltype *)c) : (ltype)L_CONS_CELL)
    160159void *lpointer_value(void *lpointer);
    161160int32_t lnumber_value(void *lnumber);
     
    235234static inline char *lstring_value(void *str) { return ((LispString *)str)->GetString(); }
    236235
    237 
    238 
    239 #endif
     236#include "lisp_opt.h"
     237
     238#endif
Note: See TracChangeset for help on using the changeset viewer.