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

avoid // comments in C

Browse Source 
To possibly stay compatible with older (pre-C99) compilers just a
little longer.
This commit is contained in:
Matthew Flatt 2012-05-03 14:58:55 -06:00
parent 868dcb6d57
commit 7d18d38751
2 changed files with 10 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/racket/src/jitinline.c
View File

@ -2827,13 +2827,13 @@ int scheme_generate_inlined_nary(mz_jit_state *jitter, Scheme_App_Rec *app, int
if (IS_NAMED_PRIM(rator, "box-cas!") || (IS_NAMED_PRIM(rator, "unsafe-box*-cas!"))) {
GC_CAN_IGNORE jit_insn *ref, *ref3, *refr, *reffalse, *reftrue;
int unsafe = 0; // unused so far
int unsafe = 0;
if (IS_NAMED_PRIM(rator, "unsafe-box*-cas!")) {
unsafe = 1;
}
// generate code to evaluate the arguments
/* generate code to evaluate the arguments */
scheme_generate_app(app, NULL, 3, jitter, 0, 0, 2);
CHECK_LIMIT();
mz_rs_sync();
@ -2843,16 +2843,16 @@ int scheme_generate_inlined_nary(mz_jit_state *jitter, Scheme_App_Rec *app, int
__START_TINY_JUMPS__(1);
if (!unsafe) {
// Fail if this isn't a pointer (0x1 is the integer tag)
/* Fail if this isn't a pointer (0x1 is the integer tag) */
ref3 = jit_bmsi_ul(jit_forward(), JIT_R1, 0x1);
// Get the type tag, fail if it isn't a box
/* Get the type tag, fail if it isn't a box */
ref = mz_beqi_t(jit_forward(), JIT_R1, scheme_box_type, JIT_R2);
// jump to here if it wasn't a pointer
/* jump to here if it wasn't a pointer */
mz_patch_branch(ref3);
// call scheme_box_cas to raise the exception
// we use mz_finish_lwe because it will capture the stack
// and the ts_ version because we may be in a future
/* call scheme_box_cas to raise the exception
we use mz_finish_lwe because it will capture the stack
and the ts_ version because we may be in a future */
JIT_UPDATE_THREAD_RSPTR_IF_NEEDED();
jit_movi_l(JIT_R0, 3);
mz_prepare(2);
@ -2861,7 +2861,7 @@ int scheme_generate_inlined_nary(mz_jit_state *jitter, Scheme_App_Rec *app, int
CHECK_LIMIT();
(void)mz_finish_lwe(ts_scheme_box_cas, refr); /* doesn't return */
// jump to here if the type tag tests succeed
/* jump to here if the type tag tests succeed */
mz_patch_branch(ref);
}
@ -2892,7 +2892,7 @@ int scheme_generate_inlined_nary(mz_jit_state *jitter, Scheme_App_Rec *app, int
__END_TINY_JUMPS__(1);
// pop off 3 arguments
/* pop off 3 arguments */
mz_rs_inc(3);
mz_runstack_popped(jitter, 3);

3
src/racket/src/module.c
View File

@ -7090,9 +7090,6 @@ static void propagate_imports(Module_Begin_Expand_State *bxs,
super_name = super_required->keys[j];
super_vec = super_required->vals[j];
// iname = scheme_datum_to_syntax(iname, scheme_false, mark_src, 0, 0);
// iname = scheme_tl_id_sym(name_env, iname, scheme_false, skip_rename ? 3 : 2, to_phase, NULL);
name = super_name;
vec = scheme_make_vector(9, NULL);