Преглед на файлове

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