Browse Source

* more range check errors on 8 bit CPUs fixed

git-svn-id: trunk@36362 -
florian 8 years ago
parent
commit
991d962ae2
1 changed files with 2 additions and 3 deletions
  1. 2 3
      compiler/ncgset.pas

+ 2 - 3
compiler/ncgset.pas

@@ -1003,13 +1003,12 @@ implementation
       var
       var
          oldflowcontrol: tflowcontrol;
          oldflowcontrol: tflowcontrol;
          i : longint;
          i : longint;
-         distv,
+         distv,dist,
          lv,hv,
          lv,hv,
          max_label: tconstexprint;
          max_label: tconstexprint;
          labelcnt : tcgint;
          labelcnt : tcgint;
          max_linear_list : aint;
          max_linear_list : aint;
-         max_dist,
-         dist : aword;
+         max_dist : aword;
          oldexecutionweight : longint;
          oldexecutionweight : longint;
       begin
       begin
          location_reset(location,LOC_VOID,OS_NO);
          location_reset(location,LOC_VOID,OS_NO);