Explorar o código

* fix JumpTargetOp for sparc64

git-svn-id: trunk@37158 -
florian %!s(int64=8) %!d(string=hai) anos
pai
achega
8315c660f4
Modificáronse 1 ficheiros con 6 adicións e 1 borrados
  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;