浏览代码

* 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;