فهرست منبع

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

git-svn-id: trunk@36324 -
florian 8 سال پیش
والد
کامیت
4b17ad80d0
1فایلهای تغییر یافته به همراه1 افزوده شده و 1 حذف شده
  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