jeltz
/
heptagon
1
0
Fork 0
Code Issues Pull Requests Releases Activity

Only inline integer extvalues when unrolling

This commit is contained in:
Adrien Guatto 2012-02-08 18:31:51 +01:00
parent ec0274cc82
commit f43fcb78f6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/obc/c/cgen.ml
View File

@ -243,7 +243,7 @@ let rec cexpr_of_static_exp se =
(List.fold_left (fun cc n -> Carraylit (repeat_list cc (int_of_static_exp n)))
(cexpr_of_static_exp c) n_list)
| Svar ln ->
if !Compiler_options.unroll_loops
if !Compiler_options.unroll_loops && se.se_ty = Initial.tint
then cexpr_of_static_exp (Static.simplify QualEnv.empty (find_const ln).c_value)
else Cvar (cname_of_qn ln)
| Sop _ ->