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

lisp: move all array-related functions to the LispArray? struct.

File:
1 edited

Legend:

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

    r482 r483  
    9797struct LispArray : LispObject
    9898{
     99    static LispArray *Create(int size, void *rest);
     100
     101    inline LispObject **GetData() { return data; }
     102    LispObject *Get(long x);
     103
    99104    unsigned short size;
    100105    // size * sizeof (void *) follows1
     106
     107private:
     108    LispObject *data[1];
    101109};
    102110
     
    129137void use_user_space(void *addr, long size);
    130138#define item_type(c) ((c) ? *((ltype *)c) : (ltype)L_CONS_CELL)
    131 void *lget_array_element(void *a, long x);
    132139void *lpointer_value(void *lpointer);
    133140int32_t lnumber_value(void *lnumber);
     
    176183LispFixedPoint *new_lisp_fixed_point(int32_t x);
    177184LispObjectVar *new_lisp_object_var(int16_t number);
    178 LispArray   *new_lisp_1d_array(int size, void *rest);
    179185LispSysFunction *new_lisp_sys_function(int min_args, int max_args, int fun_number);
    180186LispSysFunction *new_lisp_c_function(int min_args, int max_args, int fun_number);
Note: See TracChangeset for help on using the changeset viewer.