corrected timer

netlist-simulator/main.ml

@@ -189,7 +189,7 @@ let rec read_value id t =
 let print_only = ref false
 let number_steps = ref (-1)
 let rom_directory = ref "./"
-let cycle_duration = ref 0.05
+let cycle_duration = ref 0.
 
 (* The main part of the program *)
 let compile filename =
@@ -421,7 +421,7 @@ let main () =
                                            ^ "cter n is the ASCII character cor"
                                            ^ "responding encoded by the byte RO"
                                            ^ "M[n]ROM[n+1]...ROM[n+7].";
-     "-time", Arg.Int (fun t -> cycle_duration := float_of_int t /. 100.),
+     "-time", Arg.Int (fun t -> cycle_duration := float_of_int t /. 1000.),
      "Minimum time in millisecondes each cycle has to take, set to 0 by default."]
     compile
     ""