scsh-conservatory
/
scsh-ldap
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

+ broken S48_RECORD_TYPE work-around

This commit is contained in:
eknauel 2004-01-08 07:46:29 +00:00
parent e8d54a6390
commit 7e51c85710
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ffi-tools/ffi-tools.h
View File

@ -1,6 +1,9 @@
#include <unistd.h> #include <unistd.h>
#include "scheme48.h" #include "scheme48.h"
/* kludges */
#define FIXED_S48_RECORD_TYPE(x) (s48_stob_ref((x), S48_STOBTYPE_RECORD, 0))
/* variables */ /* variables */
static s48_value scheme_list_length_function = S48_FALSE; static s48_value scheme_list_length_function = S48_FALSE;
static s48_value scheme_boolean_p_function = S48_FALSE; static s48_value scheme_boolean_p_function = S48_FALSE;
@ -34,13 +37,10 @@ void ffit_init_hook(void);
S48_GC_PROTECT_GLOBAL(C_RECTYPE); \ S48_GC_PROTECT_GLOBAL(C_RECTYPE); \
C_RECTYPE = s48_get_imported_binding("SCM_NAME"); C_RECTYPE = s48_get_imported_binding("SCM_NAME");
#if 0
#define FFIT_CHECK_RECORD_TYPE(SCM_VAL, SCM_RECTYPE) \ #define FFIT_CHECK_RECORD_TYPE(SCM_VAL, SCM_RECTYPE) \
if (!(S48_RECORD_P(SCM_VAL) && (S48_RECORD_TYPE(SCM_VAL) == SCM_RECTYPE))) \ if (!(S48_RECORD_P(SCM_VAL) && \
(FIXED_S48_RECORD_TYPE(SCM_VAL) == SCM_RECTYPE))) \
s48_raise_argument_type_error(SCM_VAL) s48_raise_argument_type_error(SCM_VAL)
#endif
#define FFIT_CHECK_RECORD_TYPE(SCM_VAL, SCM_RECTYPE) ;
#define FFIT_STRUCT_GET(FUNNAME, SCM_RECTYPE, C_RECTYPE, C_FIELD, FIELD_SCM_ENTER_FUN) \ #define FFIT_STRUCT_GET(FUNNAME, SCM_RECTYPE, C_RECTYPE, C_FIELD, FIELD_SCM_ENTER_FUN) \
s48_value FUNNAME(s48_value scm_rec) { \ s48_value FUNNAME(s48_value scm_rec) { \