Browse Source

* 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 15 years ago
parent
commit
e04198d96f
1 changed files with 1 additions and 0 deletions
  1. 1 0
      compiler/aggas.pas

+ 1 - 0
compiler/aggas.pas

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