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

added read-stx performance stat

Browse Source 
svn: r1411
This commit is contained in:
Matthew Flatt 2005-11-25 23:05:13 +00:00
parent cc2f58a824
commit 8557a07229
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/mzscheme/src/read.c
View File

@ -51,6 +51,8 @@
int scheme_square_brackets_are_parens = 1;
int scheme_curly_braces_are_parens = 1;
int scheme_num_read_syntax_objects;
/* local function prototypes */
static Scheme_Object *read_case_sensitive(int, Scheme_Object *[]);
@ -4011,6 +4013,7 @@ static Scheme_Object *read_compact(CPort *port, int use_stack)
v = read_compact(port, 1);
v = scheme_datum_to_syntax(v, scheme_false, (Scheme_Object *)local_rename_memory,
ch == CPT_GSTX, 0);
scheme_num_read_syntax_objects++;
if (!v)
scheme_ill_formed_code(port);
}

4
src/mzscheme/src/thread.c
View File

@ -129,6 +129,8 @@ extern void scheme_gmp_tls_unload(long *s);
extern void scheme_gmp_tls_snapshot(long *s, long *save);
extern void scheme_gmp_tls_restore_snapshot(long *s, long *save, int do_free);
extern int scheme_num_read_syntax_objects;
/*========================================================================*/
/* local variables and prototypes */
/*========================================================================*/
@ -6693,6 +6695,8 @@ static Scheme_Object *current_stats(int argc, Scheme_Object *argv[])
switch (SCHEME_VEC_SIZE(v)) {
default:
case 8:
SCHEME_VEC_ELS(v)[7] = scheme_make_integer(scheme_num_read_syntax_objects);
case 7:
SCHEME_VEC_ELS(v)[6] = scheme_make_integer(num_running_threads);
case 6: