17 lines
754 B
C
17 lines
754 B
C
#include "chez-stdlib.h"
|
|
|
|
int _ref_int( unsigned _p, int _k ) { return ((int*)_p)[_k]; }
|
|
void _set_int( unsigned _p, int _k, int _v ) { ((int*)_p)[_k] = _v; }
|
|
|
|
unsigned _ref_uint( unsigned _p, int _k ) { return ((unsigned*)_p)[_k]; }
|
|
void _set_uint( unsigned _p, int _k, unsigned _v ) { ((unsigned*)_p)[_k] = _v; }
|
|
|
|
char _ref_char( unsigned _p, int _k ) { return ((char*)_p)p[_k]; }
|
|
void _set_char( unsigned _p, int _k, char _v ) { ((char*)_p)[_k] = _v; }
|
|
|
|
double _ref_double( unsigned _p, int _k ) { return ((double*)_p)[_k]; }
|
|
void _set_double( unsigned _p, int _k, double _v ) { ((double*)_p)[_k] = _v; }
|
|
|
|
float _ref_float( unsigned _p, int _k ) { return ((float*)_p)[_k]; }
|
|
void _set_float( unsigned _p, int _k, float _v ) { ((float*)_p)[_k] = _v; }
|