Forráskód Böngészése

* more range check errors on 8 bit CPUs fixed

git-svn-id: trunk@36362 -
florian 8 éve
szülő
commit
991d962ae2
1 módosított fájl, 2 hozzáadás és 3 törlés
  1. 2 3
      compiler/ncgset.pas

+ 2 - 3
compiler/ncgset.pas

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