export scheme_on_demand_jit_code

This commit is contained in:
Matthew Flatt 2011-03-14 10:42:50 -06:00
parent 615bc86668
commit 93e10989fd
10 changed files with 10 additions and 3 deletions

View File

@ -134,6 +134,7 @@ EXPORTS
scheme_uchar_titles
scheme_uchar_folds
scheme_uchar_combining_classes
scheme_on_demand_jit_code
scheme_eval
scheme_eval_multi
scheme_eval_with_prompt

View File

@ -134,6 +134,7 @@ EXPORTS
scheme_uchar_titles
scheme_uchar_folds
scheme_uchar_combining_classes
scheme_on_demand_jit_code
scheme_eval
scheme_eval_multi
scheme_eval_with_prompt

View File

@ -132,6 +132,7 @@ scheme_uchar_downs
scheme_uchar_titles
scheme_uchar_folds
scheme_uchar_combining_classes
scheme_on_demand_jit_code
scheme_eval
scheme_eval_multi
scheme_eval_with_prompt

View File

@ -132,6 +132,7 @@ scheme_uchar_downs
scheme_uchar_titles
scheme_uchar_folds
scheme_uchar_combining_classes
scheme_on_demand_jit_code
scheme_eval
scheme_eval_multi
scheme_eval_with_prompt

View File

@ -172,7 +172,6 @@ extern Scheme_Object *scheme_rtcall_make_fsemaphore(const char *who, int src_typ
#endif
extern void *scheme_on_demand_jit_code;
extern void scheme_on_demand_generate_lambda(Scheme_Native_Closure *nc, int argc, Scheme_Object **argv);
void scheme_future_block_until_gc();

View File

@ -262,7 +262,6 @@ struct scheme_jit_common_record {
};
extern struct scheme_jit_common_record scheme_jit_common;
extern void *scheme_on_demand_jit_code;
#define sjc scheme_jit_common

View File

@ -269,6 +269,8 @@ MZ_EXTERN int scheme_uchar_titles[];
MZ_EXTERN int scheme_uchar_folds[];
MZ_EXTERN unsigned char scheme_uchar_combining_classes[];
MZ_EXTERN void *scheme_on_demand_jit_code;
/*========================================================================*/
/* evaluation */
/*========================================================================*/

View File

@ -18,7 +18,7 @@
declaring scheme_extension_table */
/* The scheme_extension_table "parser" is picky; don't leave a space
between a function name and its opening parameter parenthesis. */
between a function name and it's opening parameter parenthesis. */
/* After this START tag, all comments should start & end on same line */
@ -217,6 +217,7 @@ int *scheme_uchar_downs;
int *scheme_uchar_titles;
int *scheme_uchar_folds;
unsigned char *scheme_uchar_combining_classes;
void *scheme_on_demand_jit_code;
/*========================================================================*/
/* evaluation */
/*========================================================================*/

View File

@ -140,6 +140,7 @@
scheme_extension_table->scheme_uchar_titles = scheme_uchar_titles;
scheme_extension_table->scheme_uchar_folds = scheme_uchar_folds;
scheme_extension_table->scheme_uchar_combining_classes = scheme_uchar_combining_classes;
scheme_extension_table->scheme_on_demand_jit_code = scheme_on_demand_jit_code;
scheme_extension_table->scheme_eval = scheme_eval;
scheme_extension_table->scheme_eval_multi = scheme_eval_multi;
scheme_extension_table->scheme_eval_with_prompt = scheme_eval_with_prompt;

View File

@ -140,6 +140,7 @@
#define scheme_uchar_titles (scheme_extension_table->scheme_uchar_titles)
#define scheme_uchar_folds (scheme_extension_table->scheme_uchar_folds)
#define scheme_uchar_combining_classes (scheme_extension_table->scheme_uchar_combining_classes)
#define scheme_on_demand_jit_code (scheme_extension_table->scheme_on_demand_jit_code)
#define scheme_eval (scheme_extension_table->scheme_eval)
#define scheme_eval_multi (scheme_extension_table->scheme_eval_multi)
#define scheme_eval_with_prompt (scheme_extension_table->scheme_eval_with_prompt)