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

* reduce initial size of movelist, 16 is enough for most cases

git-svn-id: trunk@36324 -
florian 8 éve
szülő
commit
4b17ad80d0
1 módosított fájl, 1 hozzáadás és 1 törlés
  1. 1 1
      compiler/rgobj.pas

+ 1 - 1
compiler/rgobj.pas

@@ -720,7 +720,7 @@ unit rgobj;
             begin
             begin
               { don't use sizeof(tmovelistheader), because that ignores alignment }
               { don't use sizeof(tmovelistheader), because that ignores alignment }
               getmem(movelist,ptruint(@movelist^.data)-ptruint(movelist)+60*sizeof(pointer));
               getmem(movelist,ptruint(@movelist^.data)-ptruint(movelist)+60*sizeof(pointer));
-              movelist^.header.maxcount:=60;
+              movelist^.header.maxcount:=16;
               movelist^.header.count:=0;
               movelist^.header.count:=0;
               movelist^.header.sorted_until:=0;
               movelist^.header.sorted_until:=0;
             end
             end