From 2dc460e7a5a69c0c74b992eecc2703da1ba30f43 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Fri, 3 Jul 2009 09:35:06 +0200 Subject: [PATCH] Implement new error functions for array and vector types. --- src/c/typespec.d | 12 ++++++++++++ src/h/external.h | 2 ++ 2 files changed, 14 insertions(+) diff --git a/src/c/typespec.d b/src/c/typespec.d index 5e2b136a4..3c343d136 100644 --- a/src/c/typespec.d +++ b/src/c/typespec.d @@ -93,6 +93,18 @@ FEtype_error_index(cl_object seq, cl_object ndx) @':datum', ndx); } +void +FEtype_error_array(cl_object v) +{ + FEwrong_type_argument(@'array', v); +} + +void +FEtype_error_vector(cl_object v) +{ + FEwrong_type_argument(@'vector', v); +} + void FEtype_error_string(cl_object s) { diff --git a/src/h/external.h b/src/h/external.h index 8722827a9..7adcb6da2 100644 --- a/src/h/external.h +++ b/src/h/external.h @@ -1605,6 +1605,8 @@ extern ECL_API void FEtype_error_sequence(cl_object x) /*__attribute__((noreturn extern ECL_API void FEtype_error_instance(cl_object x) /*__attribute__((noreturn))*/; extern ECL_API void FEcircular_list(cl_object x) /*__attribute__((noreturn))*/; extern ECL_API void FEtype_error_index(cl_object seq, cl_object ndx) /*__attribute__((noreturn))*/; +extern ECL_API void FEtype_error_array(cl_object x) /*__attribute__((noreturn))*/; +extern ECL_API void FEtype_error_vector(cl_object x) /*__attribute__((noreturn))*/; extern ECL_API void FEtype_error_string(cl_object x) /*__attribute__((noreturn))*/; extern ECL_API void FEdivision_by_zero(cl_object x, cl_object y) /*__attribute__((noreturn))*/; extern ECL_API cl_object ecl_type_error(cl_object function, const char *place, cl_object o, cl_object type);