From 5c18145632b9b178baf3ba27c5482ee66cfc6f45 Mon Sep 17 00:00:00 2001 From: florian Date: Sun, 18 May 2008 11:11:30 +0000 Subject: [PATCH] * fix interface wrappers on sparc git-svn-id: trunk@10999 - --- compiler/sparc/cgcpu.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/sparc/cgcpu.pas b/compiler/sparc/cgcpu.pas index 99816c9dea..82ffa8219e 100644 --- a/compiler/sparc/cgcpu.pas +++ b/compiler/sparc/cgcpu.pas @@ -1355,7 +1355,7 @@ implementation href.refaddr := addr_high; list.concat(taicpu.op_ref_reg(A_SETHI,href,NR_G1)); href.refaddr := addr_low; - list.concat(taicpu.op_reg_ref_reg(A_OR,NR_G0,href,NR_G1)); + list.concat(taicpu.op_reg_ref_reg(A_OR,NR_G1,href,NR_G1)); list.concat(taicpu.op_reg(A_JMP,NR_G1)); end; { Delay slot }