Map schedule using nanoseconds, not milliseconds

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

@@ -1365,10 +1365,22 @@ package body Ocarina.Backends.C_Common.Mapping is
    -------------------------
 
    function Map_Scade_Parameter (Parameter : Node_Id) return Node_Id is
+      Scade_Name : Name_Id;
    begin
-      Get_Name_String (Get_Scade_Signal (Parameter));
+      Scade_Name := Get_Scade_Signal (Parameter);
 
-      return CTU.Make_Defining_Identifier (Name_Find, C_Conversion => False);
+      if Scade_Name = No_Name then
+         Scade_Name := Get_Source_Name (Parameter);
+      end if;
+
+      if Scade_Name = No_Name then
+         Display_Located_Error
+            (AIN.Loc (Parameter),
+             "The Parameter does not specify a SCADE mapping",
+             Fatal => True);
+      end if;
+
+      return CTU.Make_Defining_Identifier (Scade_Name, C_Conversion => False);
    end Map_Scade_Parameter;
 
    ----------------------

src/backends/ocarina-backends-deos_conf-schedule.adb

@@ -177,8 +177,8 @@ package body Ocarina.Backends.Deos_Conf.Schedule is
          --  For now, we assume the partition duration
          --  is in milliseconds.
          --
-         Slot_Duration := To_Milliseconds
-                           (Module_Schedule (J).Duration) * 1_000_000;
+         Slot_Duration := To_Nanoseconds
+                           (Module_Schedule (J).Duration);
          XTU.Add_Attribute ("Duration",
                            Trim (Unsigned_Long_Long'Image
                                 (Slot_Duration), Left),