Fix the schedule generation issue for VxWorks653

6887e156 · Julien · f5e34296 · 6887e156
Commit 6887e156 authored Apr 24, 2015 by Julien
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 2 deletions

src/backends/ocarina-backends-vxworks653_conf-schedule.adb src/backends/ocarina-backends-vxworks653_conf-schedule.adb +3 -2

No files found.
--- a/src/backends/ocarina-backends-vxworks653_conf-schedule.adb
+++ b/src/backends/ocarina-backends-vxworks653_conf-schedule.adb
@@ -181,8 +181,9 @@ package body Ocarina.Backends.Vxworks653_Conf.Schedule is
         --
         Partition_Duration :=
            (Long_Double
-               (To_Milliseconds
-                  (Module_Schedule (J).Duration)) / Long_Double (1000.0));
+               (To_Nanoseconds
+                  (Module_Schedule (J).Duration))
+                  / Long_Double (1_000_000_000.0));
         XTU.Add_Attribute ("Duration",
                           XV.New_Floating_Point_Value (Partition_Duration),
                           Partition_Window_Node);