Commit 987ce09e authored by jhugues's avatar jhugues

* When a subprogram defines implementation source files,

          source name but no source language, suppose the source
          language is the same as the back end.



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@4676 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent 127b4ae3
...@@ -2319,7 +2319,8 @@ package body Ocarina.Backends.C_Common.Mapping is ...@@ -2319,7 +2319,8 @@ package body Ocarina.Backends.C_Common.Mapping is
return Make_Function_Implementation return Make_Function_Implementation
(Spec, Declarations, Statements); (Spec, Declarations, Statements);
when Subprogram_Opaque_C => when Subprogram_Opaque_C
| Subprogram_Default =>
-- Create function to lock the data. -- Create function to lock the data.
......
...@@ -1573,9 +1573,10 @@ package body Ocarina.Backends.Properties is ...@@ -1573,9 +1573,10 @@ package body Ocarina.Backends.Properties is
if Src_Name /= No_Name or else Src_Files'Length > 0 then if Src_Name /= No_Name or else Src_Files'Length > 0 then
-- A subprogram having no implementation source -- A subprogram having no implementation source
-- language but a non null source name or an non null -- language but a non null source name or an non null
-- source text is a wrong built subprogram. -- source text is assumed to use the same source
-- language as the back-end.
return Subprogram_Unknown; return Subprogram_Default;
else else
if not Is_Empty (AIN.Calls (S)) and then if not Is_Empty (AIN.Calls (S)) and then
not Is_Empty (AIN.Subprogram_Calls not Is_Empty (AIN.Subprogram_Calls
......
...@@ -507,6 +507,7 @@ package Ocarina.Backends.Properties is ...@@ -507,6 +507,7 @@ package Ocarina.Backends.Properties is
type Supported_Subprogram_Kind is type Supported_Subprogram_Kind is
(Subprogram_Unknown, (Subprogram_Unknown,
Subprogram_Default,
Subprogram_Empty, Subprogram_Empty,
Subprogram_Opaque_Ada_95, Subprogram_Opaque_Ada_95,
Subprogram_Opaque_Ada_95_Transfo, Subprogram_Opaque_Ada_95_Transfo,
......
...@@ -1688,7 +1688,8 @@ package body Ocarina.Backends.Utils is ...@@ -1688,7 +1688,8 @@ package body Ocarina.Backends.Utils is
return No_Node; return No_Node;
when Subprogram_Opaque_Ada_95 => when Subprogram_Opaque_Ada_95
| Subprogram_Default =>
-- An opaque Ada AADL subprogram is a subprogram which is -- An opaque Ada AADL subprogram is a subprogram which is
-- implemented by an Ada subprogram. We perform the -- implemented by an Ada subprogram. We perform the
-- mapping between the two subprograms using the Ada -- mapping between the two subprograms using the Ada
......
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