Commit aa931f2f authored by Thanassis Tsiodras's avatar Thanassis Tsiodras
Browse files
parents d3334e72 8fdb7f31
......@@ -81,7 +81,8 @@ property set AADL_Project is
VHDL,
ACN,
QGenC,
QGenAda);
QGenAda,
MicroPython);
Supported_Distributions: type enumeration (Fixed, Poisson);
......
......@@ -282,6 +282,7 @@ package body Ocarina.Backends.Properties is
Language_VDM_Name : Name_Id;
Language_QGenAda_Name : Name_Id;
Language_QGenC_Name : Name_Id;
Language_MicroPython_Name : Name_Id;
Thread_Periodic_Name : Name_Id;
Thread_Aperiodic_Name : Name_Id;
......@@ -1226,6 +1227,9 @@ package body Ocarina.Backends.Properties is
elsif Source_L = Language_QGenC_Name then
return Language_QGenC;
elsif Source_L = Language_MicroPython_Name then
return Language_MicroPython;
else
Display_Located_Error
(AIN.Loc (E),
......@@ -1412,6 +1416,9 @@ package body Ocarina.Backends.Properties is
when Language_Simulink | Language_QGenC | Language_QGenAda =>
return Subprogram_Simulink;
when Language_MicroPython =>
return Subprogram_Unknown;
when Language_Scade =>
return Subprogram_Scade;
......@@ -2979,6 +2986,7 @@ package body Ocarina.Backends.Properties is
Language_System_C_Name := Get_String_Name ("system_c");
Language_QGenAda_Name := Get_String_Name ("qgenada");
Language_QGenC_Name := Get_String_Name ("qgenc");
Language_MicroPython_Name := Get_String_Name ("micropython");
Thread_Periodic_Name := Get_String_Name ("periodic");
Thread_Aperiodic_Name := Get_String_Name ("aperiodic");
......
......@@ -80,6 +80,7 @@ package Ocarina.Backends.Properties is
Language_System_C,
Language_VDM,
Language_VHDL,
Language_MicroPython,
Language_None);
type Supported_Scheduling_Protocol is
......
......@@ -356,7 +356,7 @@ package body Ocarina.Backends.PO_HI_Ada is
Write_Eol;
Write_Line ("generate-asn1-files: $(ASN_SOURCES)");
Write_Char (ASCII.HT);
Write_Line (" asn1.exe -Ada -uPER $(ASN_SOURCES)");
Write_Line (" mono $(which asn1.exe) -Ada -uPER $(ASN_SOURCES)");
end PolyORB_HI_Ada_Makefile;
-------------------------------------
......
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