瀏覽代碼

* prefetch next list elements while writing out assembler list, makes
that routine 15-20% faster on my Core 2

git-svn-id: trunk@14137 -

Jonas Maebe 16 年之前
父節點
當前提交
e04198d96f
共有 1 個文件被更改,包括 1 次插入0 次删除
  1. 1 0
      compiler/aggas.pas

+ 1 - 0
compiler/aggas.pas

@@ -595,6 +595,7 @@ implementation
       hp:=tai(p.first);
       while assigned(hp) do
        begin
+         prefetch(pointer(hp.next)^);
          if not(hp.typ in SkipLineInfo) then
           begin
             hp1 := hp as tailineinfo;