SICS-788 Guard against integer division.

2014-10-08 19:59:22 +11:00
parent 3a475196a0
commit 9720f1d0f0
1 changed files with 1 additions and 1 deletions
--- a/site_ansto/instrument/config/motors/sct_positmotor_common.tcl
+++ b/site_ansto/instrument/config/motors/sct_positmotor_common.tcl
@ -124,7 +124,7 @@ proc ::scobj::positmotor::mot2ID {mot precision table} {
    if {abs($mot - $m) <= $precision} {
      return $i
    } elseif {[expr {$sign * ($mot - $m)} ] < 0} {
-      return [expr {($mot-$mprev)*($i - $iprev)/($m - $mprev)+$iprev}]
+      return [expr {1.0 * ($mot-$mprev)*($i - $iprev)/($m - $mprev)+$iprev}]
    }
    set iprev $i
    set mprev $m