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
return Make_Function_Implementation
(Spec, Declarations, Statements);
when Subprogram_Opaque_C =>
when Subprogram_Opaque_C
| Subprogram_Default =>
-- Create function to lock the data.
......
......@@ -1573,9 +1573,10 @@ package body Ocarina.Backends.Properties is
if Src_Name /= No_Name or else Src_Files'Length > 0 then
-- A subprogram having no implementation source
-- 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
if not Is_Empty (AIN.Calls (S)) and then
not Is_Empty (AIN.Subprogram_Calls
......
......@@ -507,6 +507,7 @@ package Ocarina.Backends.Properties is
type Supported_Subprogram_Kind is
(Subprogram_Unknown,
Subprogram_Default,
Subprogram_Empty,
Subprogram_Opaque_Ada_95,
Subprogram_Opaque_Ada_95_Transfo,
......
......@@ -1688,7 +1688,8 @@ package body Ocarina.Backends.Utils is
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
-- implemented by an Ada subprogram. We perform the
-- 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