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

Removed traces of lightning

Browse Source 
svn: r270
This commit is contained in:
Eli Barzilay 2005-06-29 19:28:16 +00:00
parent d8e26c21e4
commit 7c5318c704
3 changed files with 1 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/foreign/Makefile.in
View File

@ -13,7 +13,6 @@ ARFLAGS = @ARFLAGS@
all: all:
$(MAKE) foreign.@LTO@ $(MAKE) foreign.@LTO@
$(MAKE) gcc/libffi/libffi@FOREIGN_CONVENIENCE@.la $(MAKE) gcc/libffi/libffi@FOREIGN_CONVENIENCE@.la
# $(MAKE) lightning.@LTO@
# Causes objects to be generated in gcc/libffi/src/ # Causes objects to be generated in gcc/libffi/src/
# in inconvenience mode: # in inconvenience mode:
@ -26,12 +25,6 @@ foreign.@LTO@: $(srcdir)/foreign.c \
$(srcdir)/../mzscheme/src/schvers.h $(srcdir)/../mzscheme/src/schvers.h
$(CC) $(CFLAGS) -c $(srcdir)/foreign.c -o foreign.@LTO@ $(CC) $(CFLAGS) -c $(srcdir)/foreign.c -o foreign.@LTO@
lightning.@LTO@: $(srcdir)/lightning.c \
$(srcdir)/../mzscheme/include/scheme.h \
$(srcdir)/../mzscheme/src/schemef.h \
$(srcdir)/../mzscheme/src/schvers.h
$(CC) $(CFLAGS) -c $(srcdir)/lightning.c -o lightning.@LTO@
clean: clean:
rm -f foreign.@LTO@ lightning.@LTO@ rm -f foreign.@LTO@
cd gcc/libffi; $(MAKE) clean cd gcc/libffi; $(MAKE) clean

4
src/foreign/foreign.c
View File

@ -1999,9 +1999,6 @@ static Scheme_Object *foreign_ffi_callback(int argc, Scheme_Object *argv[])
/*****************************************************************************/ /*****************************************************************************/
/* Initialization */ /* Initialization */
/* lightning initialization */
/* void scheme_init_lightning(Scheme_Env *env); */
void scheme_init_foreign(Scheme_Env *env) void scheme_init_foreign(Scheme_Env *env)
{ {
Scheme_Env *menv; Scheme_Env *menv;
@ -2243,7 +2240,6 @@ void scheme_init_foreign(Scheme_Env *env)
t->scheme_to_c = ((Scheme_Object*)(void*)(&ffi_type_pointer)); t->scheme_to_c = ((Scheme_Object*)(void*)(&ffi_type_pointer));
t->c_to_scheme = ((Scheme_Object*)FOREIGN_fpointer); t->c_to_scheme = ((Scheme_Object*)FOREIGN_fpointer);
scheme_add_global("_fpointer", (Scheme_Object*)t, menv); scheme_add_global("_fpointer", (Scheme_Object*)t, menv);
/* scheme_init_lightning(menv); */
scheme_finish_primitive_module(menv); scheme_finish_primitive_module(menv);
scheme_protect_primitive_provide(menv, NULL); scheme_protect_primitive_provide(menv, NULL);
} }

4
src/foreign/foreign.ssc
View File

@ -1595,9 +1595,6 @@ void free_cl_cif_args(void *ignored, void *p)
/*****************************************************************************/ /*****************************************************************************/
/* Initialization */ /* Initialization */
/* lightning initialization */
/* void scheme_init_lightning(Scheme_Env *env); */
void scheme_init_foreign(Scheme_Env *env) void scheme_init_foreign(Scheme_Env *env)
{ {
Scheme_Env *menv; Scheme_Env *menv;
@ -1630,7 +1627,6 @@ void scheme_init_foreign(Scheme_Env *env)
(list "(Scheme_Object*)(void*)(&ffi_type_"ftype")") (list "(Scheme_Object*)(void*)(&ffi_type_"ftype")")
(list "(Scheme_Object*)FOREIGN_"cname)) (list "(Scheme_Object*)FOREIGN_"cname))
(~ "scheme_add_global(\"_"stype"\", (Scheme_Object*)t, menv);")):} (~ "scheme_add_global(\"_"stype"\", (Scheme_Object*)t, menv);")):}
/* scheme_init_lightning(menv); */
scheme_finish_primitive_module(menv); scheme_finish_primitive_module(menv);
scheme_protect_primitive_provide(menv, NULL); scheme_protect_primitive_provide(menv, NULL);
} }