소스 검색

* initialize dirhint field of created tasmconds

git-svn-id: trunk@20800 -
Jonas Maebe 13 년 전
부모
커밋
23df85e52a
2개의 변경된 파일2개의 추가작업 그리고 0개의 파일을 삭제
  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