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

Keep the list of static parameters in Obc

Browse source
This commit is contained in:
Cédric Pasteur 2010-07-15 11:31:32 +02:00
parent aad8545055
commit 93fef027f0
2 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
compiler/main/mls2obc.ml
View file

@ -405,7 +405,7 @@ let translate_node
let resetm = {
m_name = Mreset; m_inputs = []; m_outputs = [];
m_locals = []; m_body = si } in
{ cd_name = f; cd_mems = m;
{ cd_name = f; cd_mems = m; cd_params = params;
cd_objs = j; cd_methods = [stepm; resetm];
cd_loc = loc }

1
compiler/obc/obc.ml
View file

@ -92,6 +92,7 @@ type class_def =
{ cd_name : class_name;
cd_mems : var_dec list;
cd_objs : obj_dec list;
cd_params : param list;
cd_methods: method_def list;
cd_loc : location }