Procházet zdrojové kódy

* 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 před 15 roky
rodič
revize
e04198d96f
1 změnil soubory, kde provedl 1 přidání a 0 odebrání
  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;