suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

change foreign.ssc to match foreign.c

Browse Source 
svn: r15054
This commit is contained in:
Eli Barzilay 2009-06-02 17:08:51 +00:00
parent 0f62e95366
commit 6562b6ac6f
2 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/foreign/foreign.c
View File

@ -2702,7 +2702,6 @@ void scheme_init_foreign_globals()
GC_register_traversers(ffi_callback_tag, ffi_callback_SIZE, ffi_callback_MARK, ffi_callback_FIXUP, 1, 0); GC_register_traversers(ffi_callback_tag, ffi_callback_SIZE, ffi_callback_MARK, ffi_callback_FIXUP, 1, 0);
# endif /* MZ_PRECISE_GC */ # endif /* MZ_PRECISE_GC */
scheme_set_type_printer(ctype_tag, ctype_printer); scheme_set_type_printer(ctype_tag, ctype_printer);
MZ_REGISTER_STATIC(opened_libs); MZ_REGISTER_STATIC(opened_libs);
opened_libs = scheme_make_hash_table(SCHEME_hash_string); opened_libs = scheme_make_hash_table(SCHEME_hash_string);
MZ_REGISTER_STATIC(default_sym); MZ_REGISTER_STATIC(default_sym);

14
src/foreign/foreign.ssc
View File

@ -2083,12 +2083,8 @@ void ctype_printer(Scheme_Object *ctype, int dis, Scheme_Print_Params *pp)
/*****************************************************************************/ /*****************************************************************************/
/* Initialization */ /* Initialization */
void scheme_init_foreign(Scheme_Env *env) void scheme_init_foreign_globals()
{ {
Scheme_Env *menv;
ctype_struct *t;
Scheme_Object *s;
menv = scheme_primitive_module(scheme_intern_symbol("#%foreign"), env);
@(maplines (lambda (x) @(maplines (lambda (x)
@list{@(cadr x)_tag = scheme_make_type("<@(car x)>")}) @list{@(cadr x)_tag = scheme_make_type("<@(car x)>")})
(reverse (cstructs))) (reverse (cstructs)))
@ -2105,6 +2101,14 @@ void scheme_init_foreign(Scheme_Env *env)
@list{MZ_REGISTER_STATIC(@(cadr sym)); @list{MZ_REGISTER_STATIC(@(cadr sym));
@(cadr sym) = scheme_intern_symbol("@(car sym)")}) @(cadr sym) = scheme_intern_symbol("@(car sym)")})
(reverse (symbols))) (reverse (symbols)))
}
void scheme_init_foreign(Scheme_Env *env)
{
Scheme_Env *menv;
ctype_struct *t;
Scheme_Object *s;
menv = scheme_primitive_module(scheme_intern_symbol("#%foreign"), env);
@(maplines @(maplines
(lambda (x) (lambda (x)
(define-values (sname cfun min max) (apply values x)) (define-values (sname cfun min max) (apply values x))