Przeglądaj źródła

* initialize dirhint field of created tasmconds

git-svn-id: trunk@20800 -
Jonas Maebe 13 lat temu
rodzic
commit
23df85e52a
2 zmienionych plików z 2 dodań i 0 usunięć
  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);
     procedure create_cond_norm(cond: TAsmCondFlag; cr: byte;var r : TasmCond);
       begin
       begin
+        r.dirhint := DH_None;
         r.simple := true;
         r.simple := true;
         r.cond := cond;
         r.cond := cond;
         case cond of
         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);
 procedure create_cond_norm(cond: TAsmCondFlag; cr: byte; var r: TasmCond);
 begin
 begin
+  r.dirhint := DH_None;
   r.simple := true;
   r.simple := true;
   r.cond := cond;
   r.cond := cond;
   case cond of
   case cond of