Explorar o código

* initialize dirhint field of created tasmconds

git-svn-id: trunk@20800 -
Jonas Maebe %!s(int64=13) %!d(string=hai) anos
pai
achega
23df85e52a
Modificáronse 2 ficheiros con 2 adicións e 0 borrados
  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