Commit 3f4b355b authored by jhugues's avatar jhugues

* Add proper initialization for the RBase field



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@5340 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent 83f7bdbe
......@@ -564,6 +564,7 @@ package body Ocarina.AADL_Values is
Result.RSign := Safe_XOR (L.RSign, R.ISign);
Result.RExp := 0;
Result.RVal := L.RVal * Long_Long_Float (R.IVal);
Result.RBase := 10;
return Result;
end;
......@@ -574,6 +575,7 @@ package body Ocarina.AADL_Values is
Result.RSign := Safe_XOR (L.RSign, R.RSign);
Result.RExp := 0;
Result.RVal := L.RVal * R.RVal;
Result.RBase := 10;
return Result;
end;
......
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