diff options
Diffstat (limited to 'src/jib/jib_compile.ml')
| -rw-r--r-- | src/jib/jib_compile.ml | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/jib/jib_compile.ml b/src/jib/jib_compile.ml index 5e234eae..5bf53009 100644 --- a/src/jib/jib_compile.ml +++ b/src/jib/jib_compile.ml @@ -182,6 +182,12 @@ module type Config = sig val track_throw : bool end +let name_or_global ctx id = + if Env.is_register id ctx.local_env || IdSet.mem id (Env.get_toplevel_lets ctx.local_env) then + global id + else + name id + module Make(C: Config) = struct let ctyp_of_typ ctx typ = C.convert_typ ctx typ @@ -191,12 +197,6 @@ let rec chunkify n xs = | xs, [] -> [xs] | xs, ys -> xs :: chunkify n ys -let name_or_global ctx id = - if Env.is_register id ctx.local_env || IdSet.mem id (Env.get_toplevel_lets ctx.local_env) then - global id - else - name id - let coverage_branch_count = ref 0 let coverage_loc_args l = |