Commit 5994281b authored by jhugues's avatar jhugues
Browse files

* Complete case for property type denoting a boolean



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@4808 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent b69f3152
......@@ -2702,6 +2702,14 @@ package body Ocarina.Analyzer.REAL is
end if;
return;
when K_Boolean_Type =>
if List then
Result := RT_Bool_List;
else
Result := RT_Boolean;
end if;
return;
when K_String_Type =>
if List then
Result := RT_String_List;
......
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