Переглянути джерело

* fix JumpTargetOp for sparc64

git-svn-id: trunk@37158 -
florian 8 роки тому
батько
коміт
8315c660f4
1 змінених файлів з 6 додано та 1 видалено
  1. 6 1
      compiler/aoptobj.pas

+ 6 - 1
compiler/aoptobj.pas

@@ -375,9 +375,14 @@ Unit AoptObj;
 {$if defined(MIPS)}
         { MIPS branches can have 1,2 or 3 operands, target label is the last one. }
         result:=ai.oper[ai.ops-1];
+{$elseif defined(SPARC64)}
+        if ai.ops=2 then
+          result:=ai.oper[1]
+        else
+          result:=ai.oper[0];
 {$else MIPS}
         result:=ai.oper[0];
-{$endif MIPS}
+{$endif}
       end;