Commit 68aefb3c authored by Maxime Perrotin's avatar Maxime Perrotin

connect set_property

parent b8daceaa
......@@ -258,8 +258,12 @@ procedure BuildSupport is
begin
-- Iterate on the Function properties
for each in Properties.Iterate loop
Put_Line (Property_Maps.Key (each) & " : " &
Property_Maps.Element (each));
C_Set_Property (Property_Maps.Key (each),
Property_Maps.Key (each)'Length,
Property_Maps.Element (each),
Property_Maps.Element (each)'Length);
-- Put_Line (Property_Maps.Key (each) & " : " &
-- Property_Maps.Element (each));
end loop;
end;
......
......@@ -155,7 +155,9 @@ void Set_Property (char *name, size_t name_len, char *val, size_t val_len)
AADL_Property *property;
property = (AADL_Property *) malloc (sizeof (AADL_Property));
assert (NULL != fv && NULL != property);
assert (NULL != fv && NULL != property && 0 < name_len && 0 < val_len);
property->name = NULL;
property->value = NULL;
build_string (&(property->name), name, name_len);
build_string (&(property->value), val, val_len);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment