* 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

src/backends/ocarina-backends-c_common-mapping.adb

@@ -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.
 

src/backends/ocarina-backends-properties.adb

@@ -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

src/backends/ocarina-backends-properties.ads

@@ -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,

src/backends/ocarina-backends-utils.adb

@@ -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