示例#1
0
文件: vector.c 项目: insanity/racket
void scheme_bad_vec_index(char *name, Scheme_Object *i, const char *which, Scheme_Object *vec, 
                          intptr_t bottom, intptr_t len)
{
  const char *type;

  type = (SCHEME_CHAPERONE_VECTORP(vec) 
          ? "vector" 
          : (SCHEME_FLVECTORP(vec)
             ? "flvector"
             : (SCHEME_FXVECTORP(vec)
                ? "fxvector"
                : NULL)));

  scheme_out_of_range(name, type, which, i, vec, bottom, len);
}
示例#2
0
文件: vector.c 项目: racket/racket
void scheme_bad_vec_index(char *name, Scheme_Object *i, const char *which, Scheme_Object *vec,
                          intptr_t bottom, intptr_t len)
{
    const char *type;

#ifdef MZ_LONG_DOUBLE
#define BAD_EXTFLVEC_INDEX  (SCHEME_EXTFLVECTORP(vec)? "extflvector" : NULL)
#else
#define BAD_EXTFLVEC_INDEX  NULL
#endif

    type = (SCHEME_CHAPERONE_VECTORP(vec)
            ? "vector"
            : (SCHEME_FLVECTORP(vec)
               ? "flvector"
               : (SCHEME_FXVECTORP(vec)
                  ? "fxvector"
                  : BAD_EXTFLVEC_INDEX
                 )));


    scheme_out_of_range(name, type, which, i, vec, bottom, len-1);
}