Commit 8fdb7f31 authored by Maxime Perrotin's avatar Maxime Perrotin
parents 2cb37da3 d2bc49f6
...@@ -81,7 +81,8 @@ property set AADL_Project is ...@@ -81,7 +81,8 @@ property set AADL_Project is
VHDL, VHDL,
ACN, ACN,
QGenC, QGenC,
QGenAda); QGenAda,
MicroPython);
Supported_Distributions: type enumeration (Fixed, Poisson); Supported_Distributions: type enumeration (Fixed, Poisson);
......
...@@ -282,6 +282,7 @@ package body Ocarina.Backends.Properties is ...@@ -282,6 +282,7 @@ package body Ocarina.Backends.Properties is
Language_VDM_Name : Name_Id; Language_VDM_Name : Name_Id;
Language_QGenAda_Name : Name_Id; Language_QGenAda_Name : Name_Id;
Language_QGenC_Name : Name_Id; Language_QGenC_Name : Name_Id;
Language_MicroPython_Name : Name_Id;
Thread_Periodic_Name : Name_Id; Thread_Periodic_Name : Name_Id;
Thread_Aperiodic_Name : Name_Id; Thread_Aperiodic_Name : Name_Id;
...@@ -1226,6 +1227,9 @@ package body Ocarina.Backends.Properties is ...@@ -1226,6 +1227,9 @@ package body Ocarina.Backends.Properties is
elsif Source_L = Language_QGenC_Name then elsif Source_L = Language_QGenC_Name then
return Language_QGenC; return Language_QGenC;
elsif Source_L = Language_MicroPython_Name then
return Language_MicroPython;
else else
Display_Located_Error Display_Located_Error
(AIN.Loc (E), (AIN.Loc (E),
...@@ -1412,6 +1416,9 @@ package body Ocarina.Backends.Properties is ...@@ -1412,6 +1416,9 @@ package body Ocarina.Backends.Properties is
when Language_Simulink | Language_QGenC | Language_QGenAda => when Language_Simulink | Language_QGenC | Language_QGenAda =>
return Subprogram_Simulink; return Subprogram_Simulink;
when Language_MicroPython =>
return Subprogram_Unknown;
when Language_Scade => when Language_Scade =>
return Subprogram_Scade; return Subprogram_Scade;
...@@ -2979,6 +2986,7 @@ package body Ocarina.Backends.Properties is ...@@ -2979,6 +2986,7 @@ package body Ocarina.Backends.Properties is
Language_System_C_Name := Get_String_Name ("system_c"); Language_System_C_Name := Get_String_Name ("system_c");
Language_QGenAda_Name := Get_String_Name ("qgenada"); Language_QGenAda_Name := Get_String_Name ("qgenada");
Language_QGenC_Name := Get_String_Name ("qgenc"); Language_QGenC_Name := Get_String_Name ("qgenc");
Language_MicroPython_Name := Get_String_Name ("micropython");
Thread_Periodic_Name := Get_String_Name ("periodic"); Thread_Periodic_Name := Get_String_Name ("periodic");
Thread_Aperiodic_Name := Get_String_Name ("aperiodic"); Thread_Aperiodic_Name := Get_String_Name ("aperiodic");
......
...@@ -80,6 +80,7 @@ package Ocarina.Backends.Properties is ...@@ -80,6 +80,7 @@ package Ocarina.Backends.Properties is
Language_System_C, Language_System_C,
Language_VDM, Language_VDM,
Language_VHDL, Language_VHDL,
Language_MicroPython,
Language_None); Language_None);
type Supported_Scheduling_Protocol is type Supported_Scheduling_Protocol is
......
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