Commit 83707c76 authored by jhugues's avatar jhugues
Browse files

* Update Source_Language property to match new AADLv2 standard



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/po-hi-ada@5117 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent 50e87126
...@@ -20,7 +20,7 @@ end Simple_Type; ...@@ -20,7 +20,7 @@ end Simple_Type;
data Opaque_Type data Opaque_Type
properties properties
Source_Language => Ada95; Source_Language => (Ada95);
Type_Source_Name => "User_Types.The_Opaque_Type"; Type_Source_Name => "User_Types.The_Opaque_Type";
end Opaque_Type; end Opaque_Type;
...@@ -41,13 +41,13 @@ end Do_Convert_Spg; ...@@ -41,13 +41,13 @@ end Do_Convert_Spg;
subprogram implementation Do_Ping_Spg.Impl subprogram implementation Do_Ping_Spg.Impl
properties properties
source_language => Ada95; source_language => (Ada95);
source_name => "Ping.Do_Ping_Spg"; source_name => "Ping.Do_Ping_Spg";
end Do_Ping_Spg.Impl; end Do_Ping_Spg.Impl;
subprogram implementation Do_Convert_Spg.Impl subprogram implementation Do_Convert_Spg.Impl
properties properties
source_language => Ada95; source_language => (Ada95);
source_name => "Ping.Do_Convert_Spg"; source_name => "Ping.Do_Convert_Spg";
end Do_Convert_Spg.Impl; end Do_Convert_Spg.Impl;
...@@ -55,7 +55,7 @@ subprogram Ping_Spg ...@@ -55,7 +55,7 @@ subprogram Ping_Spg
features features
Data_Sink : in parameter Simple_Type; Data_Sink : in parameter Simple_Type;
properties properties
source_language => Ada95; source_language => (Ada95);
source_name => "Pinged.Ping_Spg"; source_name => "Pinged.Ping_Spg";
end Ping_Spg; end Ping_Spg;
......
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