Pārlūkot izejas kodu

* initialize dirhint field of created tasmconds

git-svn-id: trunk@20800 -
Jonas Maebe 13 gadi atpakaļ
vecāks
revīzija
23df85e52a
2 mainītis faili ar 2 papildinājumiem un 0 dzēšanām
  1. 1 0
      compiler/powerpc/cpubase.pas
  2. 1 0
      compiler/powerpc64/cpubase.pas

+ 1 - 0
compiler/powerpc/cpubase.pas

@@ -500,6 +500,7 @@ implementation
 
     procedure create_cond_norm(cond: TAsmCondFlag; cr: byte;var r : TasmCond);
       begin
+        r.dirhint := DH_None;
         r.simple := true;
         r.cond := cond;
         case cond of

+ 1 - 0
compiler/powerpc64/cpubase.pas

@@ -499,6 +499,7 @@ end;
 
 procedure create_cond_norm(cond: TAsmCondFlag; cr: byte; var r: TasmCond);
 begin
+  r.dirhint := DH_None;
   r.simple := true;
   r.cond := cond;
   case cond of