#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; }