Bladeren bron

* fixed range error in case node distance calculation

git-svn-id: trunk@9662 -
Jonas Maebe 17 jaren geleden
bovenliggende
commit
03e9f652fd
1 gewijzigde bestanden met toevoegingen van 4 en 1 verwijderingen
  1. 4 1
      compiler/ncgset.pas

+ 4 - 1
compiler/ncgset.pas

@@ -767,7 +767,10 @@ implementation
                      distv:=max_label+min_label
                    else
                      distv:=max_label-min_label;
-                   dist:=distv.uvalue;
+                   if (distv>=0) then
+                     dist:=distv.uvalue
+                   else
+                     dist:=-distv.svalue;
 
                    { optimize for size ? }
                    if cs_opt_size in current_settings.optimizerswitches  then