Selaa lähdekoodia

* fixed for overflow in sort_movelist (by Paul Ishenin, mantis #15204), and
made a similar change in sort_simplify_worklist

git-svn-id: trunk@14296 -

Jonas Maebe 15 vuotta sitten
vanhempi
commit
93523c7767
1 muutettua tiedostoa jossa 2 lisäystä ja 2 poistoa
  1. 2 2
      compiler/rgobj.pas

+ 2 - 2
compiler/rgobj.pas

@@ -260,7 +260,7 @@ unit rgobj;
     {Ok, sorting pointers is silly, but it does the job to make Trgobj.combine
      faster.}
 
-    var h,i,p:word;
+    var h,i,p:longword;
         t:Tlinkedlistitem;
 
     begin
@@ -790,7 +790,7 @@ unit rgobj;
      registers in it cause. This allows simplify to execute in
      constant time.}
 
-    var p,h,i,leni,lent:word;
+    var p,h,i,leni,lent:longword;
         t:Tsuperregister;
         adji,adjt:Psuperregisterworklist;