Bladeren bron

Refactor code to avoid problems with -CR option

git-svn-id: trunk@49155 -
pierre 4 jaren geleden
bovenliggende
commit
9f8566dd84
1 gewijzigde bestanden met toevoegingen van 5 en 2 verwijderingen
  1. 5 2
      compiler/powerpc/aoptcpu.pas

+ 5 - 2
compiler/powerpc/aoptcpu.pas

@@ -52,9 +52,12 @@ Implementation
     var
     var
       p: taicpu;
       p: taicpu;
     begin
     begin
-      p := taicpu(hp);
       Result := false;
       Result := false;
-      if not(assigned(hp) and (hp.typ = ait_instruction) and (p.ops > 0)) then
+      if not(assigned(hp) and (hp.typ = ait_instruction)) then
+        exit;
+
+      p := taicpu(hp);
+      if not(p.ops > 0) then
         exit;
         exit;
 
 
       case p.opcode of
       case p.opcode of