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

make an optimizer function private

Browse Source
This commit is contained in:
Matthew Flatt 2016-02-21 06:56:23 -07:00
parent d050bd79d9
commit c0bb539af7
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
racket/src/racket/src/optimize.c
View File

@ -145,6 +145,8 @@ static void optimize_info_seq_done(Optimize_Info *info, Optimize_Info_Sequence *
static Scheme_Object *estimate_closure_size(Scheme_Object *e);
static Scheme_Object *no_potential_size(Scheme_Object *value);
static Scheme_Object *optimize_lets(Scheme_Object *form, Optimize_Info *info, int for_inline, int context);
static Scheme_Object *optimize_clone(int single_use, Scheme_Object *obj, Optimize_Info *info, Scheme_Hash_Tree *var_map, int as_rator);
static int relevant_predicate(Scheme_Object *pred);
@ -1886,7 +1888,7 @@ static Scheme_Object *apply_inlined(Scheme_Lambda *lam, Optimize_Info *info,
if (!single_use || lam->ir_info->is_dup)
sub_info->inline_fuel >>= 1;
p = scheme_optimize_lets((Scheme_Object *)lh, sub_info, 1, context);
p = optimize_lets((Scheme_Object *)lh, sub_info, 1, context);
info->single_result = sub_info->single_result;
info->preserves_marks = sub_info->preserves_marks;
@ -5816,8 +5818,7 @@ static void end_transitive_use_record(Optimize_Info *info)
}
}
Scheme_Object *
scheme_optimize_lets(Scheme_Object *form, Optimize_Info *info, int for_inline, int context)
static Scheme_Object *optimize_lets(Scheme_Object *form, Optimize_Info *info, int for_inline, int context)
/* This is the main entry point for optimizing a `let[rec]-values` form. */
{
Optimize_Info *body_info, *rhs_info;
@ -7707,7 +7708,7 @@ Scheme_Object *scheme_optimize_expr(Scheme_Object *expr, Optimize_Info *info, in
else
return optimize_lambda(expr, info, context);
case scheme_ir_let_header_type:
return scheme_optimize_lets(expr, info, 0, context);
return optimize_lets(expr, info, 0, context);
case scheme_ir_toplevel_type:
info->size += 1;
if (info->top_level_consts) {

1
racket/src/racket/src/schpriv.h
View File

@ -3204,7 +3204,6 @@ Scheme_Object *scheme_protect_quote(Scheme_Object *expr);
Scheme_Object *scheme_letrec_check_expr(Scheme_Object *);
Scheme_Object *scheme_optimize_expr(Scheme_Object *, Optimize_Info *, int context);
Scheme_Object *scheme_optimize_lets(Scheme_Object *form, Optimize_Info *info, int for_inline, int context);
/* Context uses result as a boolean: */
#define OPT_CONTEXT_BOOLEAN 0x1