mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-02 21:33:39 +02:00
1067 lines
38 KiB
ObjectPascal
1067 lines
38 KiB
ObjectPascal
{*****************************************************************************}
|
|
{ File : cgcpu.pas }
|
|
{ Author : Mazen NEIFER }
|
|
{ Project : Free Pascal Compiler (FPC) }
|
|
{ Creation date : 2002\04\26 }
|
|
{ Last modification date : 2002\08\20 }
|
|
{ Licence : GPL }
|
|
{ Bug report : mazen.neifer.01@supaero.org }
|
|
{*****************************************************************************}
|
|
{ Copyright (c) 1998-2000 by Florian Klaempfl
|
|
|
|
This program is free software;you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation;either version 2 of the License, or
|
|
(at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY;without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program;if not, write to the Free Software
|
|
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
****************************************************************************}
|
|
UNIT cgcpu;
|
|
{This unit implements the code generator for the SPARC architecture}
|
|
{$INCLUDE fpcdefs.inc}
|
|
INTERFACE
|
|
USES
|
|
cginfo,cgbase,cgobj,cg64f32,
|
|
aasmbase,aasmtai,aasmcpu,
|
|
cpubase,cpuinfo,cpupara,
|
|
node,symconst;
|
|
TYPE
|
|
tcgSPARC=CLASS(tcg)
|
|
PROCEDURE a_param_reg(list:TAasmOutput;size:tcgsize;r:tregister;CONST LocPara:TParaLocation);OVERRIDE;
|
|
{This method is used to pass a parameter, which is located in a register, to a
|
|
routine. It should push/send the parameter to the routine, as required by the
|
|
specific processor ABI. It is overriden for each CPU target.
|
|
Size : is the size of the operand in the register
|
|
r : is the register source of the operand
|
|
nr : is number of that parameter in the routine parameters list starting
|
|
from one from left to right}
|
|
PROCEDURE a_param_const(list:TAasmOutput;size:tcgsize;a:aword;CONST LocPara:TParaLocation);OVERRIDE;
|
|
PROCEDURE a_param_ref(list:TAasmOutput;size:tcgsize;CONST r:TReference;CONST LocPara:TParaLocation);OVERRIDE;
|
|
PROCEDURE a_paramaddr_ref(list:TAasmOutput;CONST r:TReference;CONST LocPara:TParaLocation);OVERRIDE;
|
|
PROCEDURE a_call_name(list:TAasmOutput;CONST s:string);OVERRIDE;
|
|
PROCEDURE a_call_ref(list:TAasmOutput;CONST ref:TReference);OVERRIDE;
|
|
PROCEDURE a_op_const_reg(list:TAasmOutput;Op:TOpCG;a:AWord;reg:TRegister);OVERRIDE;
|
|
PROCEDURE a_op_const_ref(list:TAasmOutput;Op:TOpCG;size:TCGSize;a:AWord;CONST ref:TReference);OVERRIDE;
|
|
PROCEDURE a_op_reg_reg(list:TAasmOutput;Op:TOpCG;size:TCGSize;src, dst:TRegister);OVERRIDE;
|
|
PROCEDURE a_op_ref_reg(list:TAasmOutput;Op:TOpCG;size:TCGSize;CONST ref:TReference;reg:TRegister);OVERRIDE;
|
|
PROCEDURE a_op_reg_ref(list:TAasmOutput;Op:TOpCG;size:TCGSize;reg:TRegister;CONST ref:TReference);OVERRIDE;
|
|
PROCEDURE a_op_const_reg_reg(list:TAasmOutput;op:TOpCg;size:tcgsize;a:aword;src, dst:tregister);OVERRIDE;
|
|
PROCEDURE a_op_reg_reg_reg(list:TAasmOutput;op:TOpCg;size:tcgsize;src1, src2, dst:tregister);OVERRIDE;
|
|
{ move instructions }
|
|
PROCEDURE a_load_const_reg(list:TAasmOutput;size:tcgsize;a:aword;reg:tregister);OVERRIDE;
|
|
PROCEDURE a_load_const_ref(list:TAasmOutput;size:tcgsize;a:aword;CONST ref:TReference);OVERRIDE;
|
|
PROCEDURE a_load_reg_ref(list:TAasmOutput;size:tcgsize;reg:tregister;CONST ref:TReference);OVERRIDE;
|
|
PROCEDURE a_load_ref_reg(list:TAasmOutput;size:tcgsize;CONST ref:TReference;reg:tregister);OVERRIDE;
|
|
PROCEDURE a_load_reg_reg(list:TAasmOutput;size:tcgsize;reg1,reg2:tregister);OVERRIDE;
|
|
PROCEDURE a_loadaddr_ref_reg(list:TAasmOutput;CONST ref:TReference;r:tregister);OVERRIDE;
|
|
{ fpu move instructions }
|
|
PROCEDURE a_loadfpu_reg_reg(list:TAasmOutput;reg1, reg2:tregister);OVERRIDE;
|
|
PROCEDURE a_loadfpu_ref_reg(list:TAasmOutput;size:tcgsize;CONST ref:TReference;reg:tregister);OVERRIDE;
|
|
PROCEDURE a_loadfpu_reg_ref(list:TAasmOutput;size:tcgsize;reg:tregister;CONST ref:TReference);OVERRIDE;
|
|
{ vector register move instructions }
|
|
PROCEDURE a_loadmm_reg_reg(list:TAasmOutput;reg1, reg2:tregister);OVERRIDE;
|
|
PROCEDURE a_loadmm_ref_reg(list:TAasmOutput;CONST ref:TReference;reg:tregister);OVERRIDE;
|
|
PROCEDURE a_loadmm_reg_ref(list:TAasmOutput;reg:tregister;CONST ref:TReference);OVERRIDE;
|
|
PROCEDURE a_parammm_reg(list:TAasmOutput;reg:tregister);OVERRIDE;
|
|
{ comparison operations }
|
|
PROCEDURE a_cmp_const_reg_label(list:TAasmOutput;size:tcgsize;cmp_op:topcmp;a:aword;reg:tregister;l:tasmlabel);OVERRIDE;
|
|
PROCEDURE a_cmp_const_ref_label(list:TAasmOutput;size:tcgsize;cmp_op:topcmp;a:aword;CONST ref:TReference;l:tasmlabel);OVERRIDE;
|
|
PROCEDURE a_cmp_reg_reg_label(list:TAasmOutput;size:tcgsize;cmp_op:topcmp;reg1,reg2:tregister;l:tasmlabel);OVERRIDE;
|
|
PROCEDURE a_cmp_ref_reg_label(list:TAasmOutput;size:tcgsize;cmp_op:topcmp;CONST ref:TReference;reg:tregister;l:tasmlabel);OVERRIDE;
|
|
PROCEDURE a_jmp_cond(list:TAasmOutput;cond:TOpCmp;l:tasmlabel);{ OVERRIDE;}
|
|
PROCEDURE a_jmp_flags(list:TAasmOutput;CONST f:TResFlags;l:tasmlabel);OVERRIDE;
|
|
PROCEDURE g_flags2reg(list:TAasmOutput;Size:TCgSize;CONST f:tresflags;reg:TRegister);OVERRIDE;
|
|
PROCEDURE g_stackframe_entry(list:TAasmOutput;localsize:LongInt);OVERRIDE;
|
|
PROCEDURE g_restore_frame_pointer(list:TAasmOutput);OVERRIDE;
|
|
PROCEDURE g_return_from_proc(list:TAasmOutput;parasize:aword);OVERRIDE;
|
|
PROCEDURE g_concatcopy(list:TAasmOutput;CONST source,dest:TReference;len:aword;delsource,loadref:boolean);OVERRIDE;
|
|
class function reg_cgsize(CONST reg:tregister):tcgsize;OVERRIDE;
|
|
PRIVATE
|
|
PROCEDURE sizes2load(s1:tcgsize;s2:topsize;var op:tasmop;var s3:topsize);
|
|
PROCEDURE floatload(list:TAasmOutput;t:tcgsize;CONST ref:TReference);
|
|
PROCEDURE floatstore(list:TAasmOutput;t:tcgsize;CONST ref:TReference);
|
|
PROCEDURE floatloadops(t:tcgsize;var op:tasmop;var s:topsize);
|
|
PROCEDURE floatstoreops(t:tcgsize;var op:tasmop;var s:topsize);
|
|
END;
|
|
TCg64fSPARC=class(tcg64f32)
|
|
PROCEDURE a_op64_ref_reg(list:TAasmOutput;op:TOpCG;CONST ref:TReference;reg:TRegister64);OVERRIDE;
|
|
PROCEDURE a_op64_reg_reg(list:TAasmOutput;op:TOpCG;regsrc,regdst:TRegister64);OVERRIDE;
|
|
PROCEDURE a_op64_const_reg(list:TAasmOutput;op:TOpCG;value:qWord;regdst:TRegister64);OVERRIDE;
|
|
PROCEDURE a_op64_const_ref(list:TAasmOutput;op:TOpCG;value:qWord;CONST ref:TReference);OVERRIDE;
|
|
PROCEDURE get_64bit_ops(op:TOpCG;var op1,op2:TAsmOp);
|
|
END;
|
|
CONST
|
|
TOpCG2AsmOp:ARRAY[topcg]OF TAsmOp=(A_NONE,A_ADD,A_AND,A_UDIV,A_SDIV,A_UMUL, A_SMUL, A_NEG,A_NOT,A_OR,A_not,A_not,A_not,A_SUB,A_XOR);
|
|
TOpCmp2AsmCond:ARRAY[topcmp]OF TAsmCond=(C_NONE,C_E,C_G,C_L,C_GE,C_LE,C_NE,C_BE,C_B,C_AE,C_A);
|
|
TCGSize2OpSize:ARRAY[tcgsize]OF TOpSize=(S_NO,S_B,S_W,S_L,S_L,S_B,S_W,S_L,S_L,S_FS,S_FL,S_FX,S_IQ,S_NO,S_NO,S_NO,S_NO,S_NO,S_NO,S_NO,S_NO,S_NO,S_NO);
|
|
IMPLEMENTATION
|
|
USES
|
|
globtype,globals,verbose,systems,cutils,
|
|
symdef,symsym,defbase,paramgr,
|
|
rgobj,tgobj,rgcpu;
|
|
{ we implement the following routines because otherwise we can't }
|
|
{ instantiate the class since it's abstract }
|
|
PROCEDURE tcgSPARC.a_param_reg(list:TAasmOutput;size:tcgsize;r:tregister;CONST LocPara:TParaLocation);
|
|
BEGIN
|
|
IF(Size<>OS_32)AND(Size<>OS_S32)
|
|
THEN
|
|
InternalError(2002032212);
|
|
List.Concat(taicpu.op_reg(A_SAVE,S_L,r));
|
|
END;
|
|
PROCEDURE tcgSPARC.a_param_const(list:TAasmOutput;size:tcgsize;a:aword;CONST LocPara:TParaLocation);
|
|
BEGIN
|
|
IF(Size<>OS_32)AND(Size<>OS_S32)
|
|
THEN
|
|
InternalError(2002032213);
|
|
List.Concat(taicpu.op_const(A_SAVE,S_L,a));
|
|
END;
|
|
PROCEDURE tcgSPARC.a_param_ref(list:TAasmOutput;size:tcgsize;CONST r:TReference;CONST LocPara:TParaLocation);
|
|
VAR
|
|
tmpreg:TRegister;
|
|
BEGIN
|
|
IF((Size=OS_32)AND(Size=OS_S32))
|
|
THEN
|
|
InternalError(2002032214);
|
|
list.concat(taicpu.op_ref(A_SAVE,S_L,r));
|
|
END;
|
|
PROCEDURE tcgSPARC.a_paramaddr_ref(list:TAasmOutput;CONST r:TReference;CONST LocPara:TParaLocation);
|
|
VAR
|
|
tmpreg:TRegister;
|
|
BEGIN
|
|
IF r.segment<>R_NO
|
|
THEN
|
|
CGMessage(cg_e_cant_use_far_pointer_there);
|
|
IF(r.base=R_NO)AND(r.index=R_NO)
|
|
THEN
|
|
list.concat(Taicpu.Op_sym_ofs(A_SAVE,S_L,r.symbol,r.offset))
|
|
ELSE IF(r.base=R_NO)AND(r.index<>R_NO)AND
|
|
(r.offset=0)AND(r.scalefactor=0)AND(r.symbol=nil)
|
|
THEN
|
|
list.concat(Taicpu.Op_reg(A_SAVE,S_L,r.index))
|
|
ELSE IF(r.base<>R_NO)AND(r.index=R_NO)AND
|
|
(r.offset=0)AND(r.symbol=nil)
|
|
THEN
|
|
list.concat(Taicpu.Op_reg(A_SAVE,S_L,r.base))
|
|
ELSE
|
|
BEGIN
|
|
tmpreg:=get_scratch_reg_address(list);
|
|
a_loadaddr_ref_reg(list,r,tmpreg);
|
|
list.concat(taicpu.op_reg(A_SAVE,S_L,tmpreg));
|
|
free_scratch_reg(list,tmpreg);
|
|
END;
|
|
END;
|
|
PROCEDURE tcgSPARC.a_call_name(list:TAasmOutput;CONST s:string);
|
|
BEGIN
|
|
WITH List,objectlibrary DO
|
|
BEGIN
|
|
concat(taicpu.op_sym(A_CALL,S_NO,newasmsymbol(s)));
|
|
concat(taicpu.op_none(A_NOP,S_NO));
|
|
END;
|
|
END;
|
|
PROCEDURE tcgSPARC.a_call_ref(list:TAasmOutput;CONST ref:TReference);
|
|
BEGIN
|
|
list.concat(taicpu.op_ref(A_CALL,S_NO,ref));
|
|
list.concat(taicpu.op_none(A_NOP,S_NO));
|
|
END;
|
|
{********************** load instructions ********************}
|
|
PROCEDURE tcgSPARC.a_load_const_reg(list:TAasmOutput;size:TCGSize;a:aword;reg:TRegister);
|
|
BEGIN
|
|
WITH List DO
|
|
IF a<>0
|
|
THEN{R_G0 is usually set to zero, so we use it}
|
|
Concat(taicpu.op_reg_const_reg(A_OR,TCGSize2OpSize[size],R_G0,a,reg))
|
|
ELSE{The is no A_MOV in sparc, that's why we use A_OR with help of R_G0}
|
|
Concat(taicpu.op_reg_reg_reg(A_OR,TCGSize2OpSize[size],R_G0,R_G0,reg));
|
|
END;
|
|
PROCEDURE tcgSPARC.a_load_const_ref(list:TAasmOutput;size:tcgsize;a:aword;CONST ref:TReference);
|
|
BEGIN
|
|
WITH List DO
|
|
IF a=0
|
|
THEN
|
|
Concat(taicpu.op_reg_ref(A_ST,TCGSize2OpSize[size],R_G0,ref))
|
|
ELSE
|
|
BEGIN
|
|
a_load_const_reg(list,size,a,R_G1);
|
|
list.concat(taicpu.op_reg_ref(A_ST,TCGSize2OpSize[size],R_G1,ref));
|
|
END;
|
|
END;
|
|
PROCEDURE tcgSPARC.a_load_reg_ref(list:TAasmOutput;size:TCGSize;reg:tregister;CONST ref:TReference);
|
|
BEGIN
|
|
list.concat(taicpu.op_reg_ref(A_NONE,TCGSize2OpSize[size],reg,ref));
|
|
END;
|
|
PROCEDURE tcgSPARC.a_load_ref_reg(list:TAasmOutput;size:tcgsize;CONST ref:TReference;reg:tregister);
|
|
VAR
|
|
op:tasmop;
|
|
s:topsize;
|
|
begin
|
|
sizes2load(size,S_L,op,s);
|
|
list.concat(taicpu.op_ref_reg(op,s,ref,reg));
|
|
end;
|
|
|
|
|
|
PROCEDURE tcgSPARC.a_load_reg_reg(list:TAasmOutput;size:tcgsize;reg1,reg2:tregister);
|
|
|
|
var
|
|
op:tasmop;
|
|
s:topsize;
|
|
|
|
begin
|
|
sizes2load(size,S_L,op,s);
|
|
if ((reg1) = (reg2)) then
|
|
begin
|
|
{ "mov reg1, reg1" doesn't make sense }
|
|
if op = A_NONE then
|
|
exit;
|
|
{ optimize movzx with "and ffff,<reg>" operation }
|
|
//if (op = A_NONEZX) then
|
|
begin
|
|
case size of
|
|
OS_8:
|
|
begin
|
|
list.concat(taicpu.op_const_reg(A_AND,S_L,255,reg2));
|
|
exit;
|
|
end;
|
|
OS_16:
|
|
begin
|
|
list.concat(taicpu.op_const_reg(A_AND,S_L,65535,reg2));
|
|
exit;
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
list.concat(taicpu.op_reg_reg(op,s,reg1,reg2));
|
|
end;
|
|
{ all fpu load routines expect that R_ST[0-7] means an fpu regvar and }
|
|
{ R_ST means "the current value at the top of the fpu stack" (JM) }
|
|
PROCEDURE tcgSPARC.a_loadfpu_reg_reg(list:TAasmOutput;reg1, reg2:tregister);
|
|
|
|
begin
|
|
if NOT (reg1 IN [R_F0..R_F31]) then
|
|
begin
|
|
list.concat(taicpu.op_reg(A_NONE,S_NO,
|
|
trgcpu(rg).correct_fpuregister(reg1,trgcpu(rg).fpuvaroffset)));
|
|
inc(trgcpu(rg).fpuvaroffset);
|
|
end;
|
|
if NOT (reg2 IN [R_F0..R_F31]) then
|
|
begin
|
|
list.concat(taicpu.op_reg(A_JMPL,S_NO,
|
|
trgcpu(rg).correct_fpuregister(reg2,trgcpu(rg).fpuvaroffset)));
|
|
dec(trgcpu(rg).fpuvaroffset);
|
|
end;
|
|
end;
|
|
|
|
|
|
PROCEDURE tcgSPARC.a_loadfpu_ref_reg(list:TAasmOutput;size:tcgsize;CONST ref:TReference;reg:tregister);
|
|
|
|
begin
|
|
floatload(list,size,ref);
|
|
{ if (reg <> R_ST) then
|
|
a_loadfpu_reg_reg(list,R_ST,reg);}
|
|
end;
|
|
|
|
|
|
PROCEDURE tcgSPARC.a_loadfpu_reg_ref(list:TAasmOutput;size:tcgsize;reg:tregister;CONST ref:TReference);
|
|
|
|
begin
|
|
{ if reg <> R_ST then
|
|
a_loadfpu_reg_reg(list,reg,R_ST);}
|
|
floatstore(list,size,ref);
|
|
end;
|
|
|
|
|
|
PROCEDURE tcgSPARC.a_loadmm_reg_reg(list:TAasmOutput;reg1, reg2:tregister);
|
|
|
|
begin
|
|
// list.concat(taicpu.op_reg_reg(A_NONEQ,S_NO,reg1,reg2));
|
|
end;
|
|
|
|
|
|
PROCEDURE tcgSPARC.a_loadmm_ref_reg(list:TAasmOutput;CONST ref:TReference;reg:tregister);
|
|
|
|
begin
|
|
// list.concat(taicpu.op_ref_reg(A_NONEQ,S_NO,ref,reg));
|
|
end;
|
|
|
|
|
|
PROCEDURE tcgSPARC.a_loadmm_reg_ref(list:TAasmOutput;reg:tregister;CONST ref:TReference);
|
|
|
|
begin
|
|
// list.concat(taicpu.op_reg_ref(A_NONEQ,S_NO,reg,ref));
|
|
end;
|
|
PROCEDURE tcgSPARC.a_parammm_reg(list:TAasmOutput;reg:tregister);
|
|
VAR
|
|
href:TReference;
|
|
BEGIN
|
|
// list.concat(taicpu.op_const_reg(A_SUB,S_L,8,R_RSP));
|
|
// reference_reset_base(href,R_ESP,0);
|
|
// list.concat(taicpu.op_reg_ref(A_NONEQ,S_NO,reg,href));
|
|
END;
|
|
PROCEDURE tcgSPARC.a_op_const_reg(list:TAasmOutput;Op:TOpCG;a:AWord;reg:TRegister);
|
|
|
|
var
|
|
opcode:tasmop;
|
|
power:LongInt;
|
|
|
|
begin
|
|
(* Case Op of
|
|
OP_DIV, OP_IDIV:
|
|
Begin
|
|
if ispowerof2(a,power) then
|
|
begin
|
|
case op of
|
|
OP_DIV:
|
|
opcode := A_SHR;
|
|
OP_IDIV:
|
|
opcode := A_SAR;
|
|
end;
|
|
list.concat(taicpu.op_const_reg(opcode,S_L,power,
|
|
reg));
|
|
exit;
|
|
end;
|
|
{ the rest should be handled specifically in the code }
|
|
{ generator because of the silly register usage restraints }
|
|
internalerror(200109224);
|
|
End;
|
|
OP_MUL,OP_IMUL:
|
|
begin
|
|
if not(cs_check_overflow in aktlocalswitches) and
|
|
ispowerof2(a,power) then
|
|
begin
|
|
list.concat(taicpu.op_const_reg(A_SHL,S_L,power,
|
|
reg));
|
|
exit;
|
|
end;
|
|
if op = OP_IMUL then
|
|
list.concat(taicpu.op_const_reg(A_IMUL,S_L,
|
|
a,reg))
|
|
else
|
|
{ OP_MUL should be handled specifically in the code }
|
|
{ generator because of the silly register usage restraints }
|
|
internalerror(200109225);
|
|
end;
|
|
OP_ADD, OP_AND, OP_OR, OP_SUB, OP_XOR:
|
|
if not(cs_check_overflow in aktlocalswitches) and
|
|
(a = 1) and
|
|
(op in [OP_ADD,OP_SUB]) then
|
|
if op = OP_ADD then
|
|
list.concat(taicpu.op_reg(A_INC,S_L,reg))
|
|
else
|
|
list.concat(taicpu.op_reg(A_DEC,S_L,reg))
|
|
else if (a = 0) then
|
|
if (op <> OP_AND) then
|
|
exit
|
|
else
|
|
list.concat(taicpu.op_const_reg(A_NONE,S_L,0,reg))
|
|
else if (a = high(aword)) and
|
|
(op in [OP_AND,OP_OR,OP_XOR]) then
|
|
begin
|
|
case op of
|
|
OP_AND:
|
|
exit;
|
|
OP_OR:
|
|
list.concat(taicpu.op_const_reg(A_NONE,S_L,high(aword),reg));
|
|
OP_XOR:
|
|
list.concat(taicpu.op_reg(A_NOT,S_L,reg));
|
|
end
|
|
end
|
|
else
|
|
list.concat(taicpu.op_const_reg(TOpCG2AsmOp[op],S_L,
|
|
a,reg));
|
|
OP_SHL,OP_SHR,OP_SAR:
|
|
begin
|
|
if (a and 31) <> 0 Then
|
|
list.concat(taicpu.op_const_reg(
|
|
TOpCG2AsmOp[op],S_L,a and 31,reg));
|
|
if (a shr 5) <> 0 Then
|
|
internalerror(68991);
|
|
end
|
|
else internalerror(68992);
|
|
end;*)
|
|
end;
|
|
|
|
|
|
PROCEDURE tcgSPARC.a_op_const_ref(list:TAasmOutput;Op:TOpCG;size:TCGSize;a:AWord;CONST ref:TReference);
|
|
|
|
var
|
|
opcode:tasmop;
|
|
power:LongInt;
|
|
|
|
begin
|
|
(* Case Op of
|
|
OP_DIV, OP_IDIV:
|
|
Begin
|
|
if ispowerof2(a,power) then
|
|
begin
|
|
case op of
|
|
OP_DIV:
|
|
opcode := A_SHR;
|
|
OP_IDIV:
|
|
opcode := A_SAR;
|
|
end;
|
|
list.concat(taicpu.op_const_ref(opcode,
|
|
TCgSize2OpSize[size],power,ref));
|
|
exit;
|
|
end;
|
|
{ the rest should be handled specifically in the code }
|
|
{ generator because of the silly register usage restraints }
|
|
internalerror(200109231);
|
|
End;
|
|
OP_MUL,OP_IMUL:
|
|
begin
|
|
if not(cs_check_overflow in aktlocalswitches) and
|
|
ispowerof2(a,power) then
|
|
begin
|
|
list.concat(taicpu.op_const_ref(A_SHL,TCgSize2OpSize[size],
|
|
power,ref));
|
|
exit;
|
|
end;
|
|
{ can't multiply a memory location directly with a CONSTant }
|
|
if op = OP_IMUL then
|
|
inherited a_op_const_ref(list,op,size,a,ref)
|
|
else
|
|
{ OP_MUL should be handled specifically in the code }
|
|
{ generator because of the silly register usage restraints }
|
|
internalerror(200109232);
|
|
end;
|
|
OP_ADD, OP_AND, OP_OR, OP_SUB, OP_XOR:
|
|
if not(cs_check_overflow in aktlocalswitches) and
|
|
(a = 1) and
|
|
(op in [OP_ADD,OP_SUB]) then
|
|
if op = OP_ADD then
|
|
list.concat(taicpu.op_ref(A_INC,TCgSize2OpSize[size],ref))
|
|
else
|
|
list.concat(taicpu.op_ref(A_DEC,TCgSize2OpSize[size],ref))
|
|
else if (a = 0) then
|
|
if (op <> OP_AND) then
|
|
exit
|
|
else
|
|
a_load_const_ref(list,size,0,ref)
|
|
else if (a = high(aword)) and
|
|
(op in [OP_AND,OP_OR,OP_XOR]) then
|
|
begin
|
|
case op of
|
|
OP_AND:
|
|
exit;
|
|
OP_OR:
|
|
list.concat(taicpu.op_const_ref(A_NONE,TCgSize2OpSize[size],high(aword),ref));
|
|
OP_XOR:
|
|
list.concat(taicpu.op_ref(A_NOT,TCgSize2OpSize[size],ref));
|
|
end
|
|
end
|
|
else
|
|
list.concat(taicpu.op_const_ref(TOpCG2AsmOp[op],
|
|
TCgSize2OpSize[size],a,ref));
|
|
OP_SHL,OP_SHR,OP_SAR:
|
|
begin
|
|
if (a and 31) <> 0 Then
|
|
list.concat(taicpu.op_const_ref(
|
|
TOpCG2AsmOp[op],TCgSize2OpSize[size],a and 31,ref));
|
|
if (a shr 5) <> 0 Then
|
|
internalerror(68991);
|
|
end
|
|
else internalerror(68992);
|
|
end;*)
|
|
end;
|
|
|
|
|
|
PROCEDURE tcgSPARC.a_op_reg_reg(list:TAasmOutput;Op:TOpCG;size:TCGSize;src, dst:TRegister);
|
|
|
|
var
|
|
regloadsize:tcgsize;
|
|
dstsize:topsize;
|
|
tmpreg:tregister;
|
|
popecx:boolean;
|
|
|
|
begin
|
|
(* dstsize := S_Q{makeregsize(dst,size)};
|
|
case op of
|
|
OP_NEG,OP_NOT:
|
|
begin
|
|
if src <> R_NO then
|
|
internalerror(200112291);
|
|
list.concat(taicpu.op_reg(TOpCG2AsmOp[op],dstsize,dst));
|
|
end;
|
|
OP_MUL,OP_DIV,OP_IDIV:
|
|
{ special stuff, needs separate handling inside code }
|
|
{ generator }
|
|
internalerror(200109233);
|
|
OP_SHR,OP_SHL,OP_SAR:
|
|
begin
|
|
tmpreg := R_NO;
|
|
{ we need cl to hold the shift count, so if the destination }
|
|
{ is ecx, save it to a temp for now }
|
|
if dst in [R_ECX,R_CX,R_CL] then
|
|
begin
|
|
case S_L of
|
|
S_B:regloadsize := OS_8;
|
|
S_W:regloadsize := OS_16;
|
|
else regloadsize := OS_32;
|
|
end;
|
|
tmpreg := get_scratch_reg(list);
|
|
a_load_reg_reg(list,reg.regloadsize,src,tmpreg);
|
|
end;
|
|
if not(src in [R_ECX,R_CX,R_CL]) then
|
|
begin
|
|
{ is ecx still free (it's also free if it was allocated }
|
|
{ to dst, since we've moved dst somewhere else already) }
|
|
if not((dst = R_ECX) or
|
|
((R_ECX in rg.unusedregsint) and
|
|
{ this will always be true, it's just here to }
|
|
{ allocate ecx }
|
|
(rg.getexplicitregisterint(list,R_ECX) = R_ECX))) then
|
|
begin
|
|
list.concat(taicpu.op_reg(A_SAVE,S_L,R_ECX));
|
|
popecx := true;
|
|
end;
|
|
a_load_reg_reg(list,OS_8,(src),R_CL);
|
|
end
|
|
else
|
|
src := R_CL;
|
|
{ do the shift }
|
|
if tmpreg = R_NO then
|
|
list.concat(taicpu.op_reg_reg(TOpCG2AsmOp[op],dstsize,
|
|
R_CL,dst))
|
|
else
|
|
begin
|
|
list.concat(taicpu.op_reg_reg(TOpCG2AsmOp[op],S_L,
|
|
R_CL,tmpreg));
|
|
{ move result back to the destination }
|
|
a_load_reg_reg(list,OS_32,tmpreg,R_ECX);
|
|
free_scratch_reg(list,tmpreg);
|
|
end;
|
|
if popecx then
|
|
list.concat(taicpu.op_reg(A_POP,S_L,R_ECX))
|
|
else if not (dst in [R_ECX,R_CX,R_CL]) then
|
|
rg.ungetregisterint(list,R_ECX);
|
|
end;
|
|
else
|
|
begin
|
|
if S_L <> dstsize then
|
|
internalerror(200109226);
|
|
list.concat(taicpu.op_reg_reg(TOpCG2AsmOp[op],dstsize,
|
|
src,dst));
|
|
end;
|
|
end;*)
|
|
end;
|
|
|
|
|
|
PROCEDURE tcgSPARC.a_op_ref_reg(list:TAasmOutput;Op:TOpCG;size:TCGSize;CONST ref:TReference;reg:TRegister);
|
|
|
|
var
|
|
opsize:topsize;
|
|
|
|
begin
|
|
(* case op of
|
|
OP_NEG,OP_NOT,OP_IMUL:
|
|
begin
|
|
inherited a_op_ref_reg(list,op,size,ref,reg);
|
|
end;
|
|
OP_MUL,OP_DIV,OP_IDIV:
|
|
{ special stuff, needs separate handling inside code }
|
|
{ generator }
|
|
internalerror(200109239);
|
|
else
|
|
begin
|
|
opsize := S_Q{makeregsize(reg,size)};
|
|
list.concat(taicpu.op_ref_reg(TOpCG2AsmOp[op],opsize,ref,reg));
|
|
end;
|
|
end;*)
|
|
end;
|
|
|
|
|
|
PROCEDURE tcgSPARC.a_op_reg_ref(list:TAasmOutput;Op:TOpCG;size:TCGSize;reg:TRegister;CONST ref:TReference);
|
|
|
|
var
|
|
opsize:topsize;
|
|
|
|
begin
|
|
(* case op of
|
|
OP_NEG,OP_NOT:
|
|
begin
|
|
if reg <> R_NO then
|
|
internalerror(200109237);
|
|
list.concat(taicpu.op_ref(TOpCG2AsmOp[op],tcgsize2opsize[size],ref));
|
|
end;
|
|
OP_IMUL:
|
|
begin
|
|
{ this one needs a load/imul/store, which is the default }
|
|
inherited a_op_ref_reg(list,op,size,ref,reg);
|
|
end;
|
|
OP_MUL,OP_DIV,OP_IDIV:
|
|
{ special stuff, needs separate handling inside code }
|
|
{ generator }
|
|
internalerror(200109238);
|
|
else
|
|
begin
|
|
opsize := tcgsize2opsize[size];
|
|
list.concat(taicpu.op_reg_ref(TOpCG2AsmOp[op],opsize,reg,ref));
|
|
end;
|
|
end;*)
|
|
end;
|
|
|
|
|
|
PROCEDURE tcgSPARC.a_op_const_reg_reg(list:TAasmOutput;op:TOpCg;
|
|
size:tcgsize;a:aword;src, dst:tregister);
|
|
var
|
|
tmpref:TReference;
|
|
power:LongInt;
|
|
opsize:topsize;
|
|
begin
|
|
opsize := S_L;
|
|
if (opsize <> S_L) or
|
|
not (size in [OS_32,OS_S32]) then
|
|
begin
|
|
inherited a_op_const_reg_reg(list,op,size,a,src,dst);
|
|
exit;
|
|
end;
|
|
{ if we get here, we have to do a 32 bit calculation, guaranteed }
|
|
Case Op of
|
|
OP_DIV, OP_IDIV, OP_MUL, OP_AND, OP_OR, OP_XOR, OP_SHL, OP_SHR,
|
|
OP_SAR:
|
|
{ can't do anything special for these }
|
|
inherited a_op_const_reg_reg(list,op,size,a,src,dst);
|
|
OP_IMUL:
|
|
begin
|
|
if not(cs_check_overflow in aktlocalswitches) and
|
|
ispowerof2(a,power) then
|
|
{ can be done with a shift }
|
|
inherited a_op_const_reg_reg(list,op,size,a,src,dst);
|
|
list.concat(taicpu.op_reg_const_reg(A_SMUL,S_L,src,a,dst));
|
|
end;
|
|
OP_ADD, OP_SUB:
|
|
if (a = 0) then
|
|
a_load_reg_reg(list,size,src,dst)
|
|
else
|
|
begin
|
|
reference_reset(tmpref);
|
|
tmpref.base := src;
|
|
tmpref.offset := LongInt(a);
|
|
if op = OP_SUB then
|
|
tmpref.offset := -tmpref.offset;
|
|
list.concat(taicpu.op_ref_reg(A_NONE,S_L,tmpref,dst));
|
|
end
|
|
else internalerror(200112302);
|
|
end;
|
|
end;
|
|
|
|
PROCEDURE tcgSPARC.a_op_reg_reg_reg(list:TAasmOutput;op:TOpCg;
|
|
size:tcgsize;src1, src2, dst:tregister);
|
|
var
|
|
tmpref:TReference;
|
|
opsize:topsize;
|
|
begin
|
|
opsize := S_L;
|
|
if (opsize <> S_L) or
|
|
(S_L <> S_L) or
|
|
not (size in [OS_32,OS_S32]) then
|
|
begin
|
|
inherited a_op_reg_reg_reg(list,op,size,src1,src2,dst);
|
|
exit;
|
|
end;
|
|
{ if we get here, we have to do a 32 bit calculation, guaranteed }
|
|
Case Op of
|
|
OP_DIV, OP_IDIV, OP_MUL, OP_AND, OP_OR, OP_XOR, OP_SHL, OP_SHR,
|
|
OP_SAR,OP_SUB,OP_NOT,OP_NEG:
|
|
{ can't do anything special for these }
|
|
inherited a_op_reg_reg_reg(list,op,size,src1,src2,dst);
|
|
OP_IMUL:
|
|
list.concat(taicpu.op_reg_reg_reg(A_SMUL,S_L,src1,src2,dst));
|
|
OP_ADD:
|
|
begin
|
|
reference_reset(tmpref);
|
|
tmpref.base := src1;
|
|
tmpref.index := src2;
|
|
tmpref.scalefactor := 1;
|
|
list.concat(taicpu.op_ref_reg(A_NONE,S_L,tmpref,dst));
|
|
end
|
|
else internalerror(200112303);
|
|
end;
|
|
end;
|
|
|
|
{*************** compare instructructions ****************}
|
|
|
|
PROCEDURE tcgSPARC.a_cmp_const_reg_label(list:TAasmOutput;size:tcgsize;cmp_op:topcmp;a:aword;reg:tregister;
|
|
l:tasmlabel);
|
|
|
|
begin
|
|
if (a = 0) then
|
|
list.concat(taicpu.op_reg_reg(A_CMP,S_L,reg,reg))
|
|
else
|
|
list.concat(taicpu.op_const_reg(A_CMP,S_L,a,reg));
|
|
a_jmp_cond(list,cmp_op,l);
|
|
end;
|
|
|
|
PROCEDURE tcgSPARC.a_cmp_const_ref_label(list:TAasmOutput;size:tcgsize;cmp_op:topcmp;a:aword;CONST ref:TReference;
|
|
l:tasmlabel);
|
|
|
|
begin
|
|
list.concat(taicpu.op_const_ref(A_CMP,TCgSize2OpSize[size],a,ref));
|
|
a_jmp_cond(list,cmp_op,l);
|
|
end;
|
|
|
|
PROCEDURE tcgSPARC.a_cmp_reg_reg_label(list:TAasmOutput;size:tcgsize;cmp_op:topcmp;
|
|
reg1,reg2:tregister;l:tasmlabel);
|
|
|
|
begin
|
|
{ if regsize(reg1) <> S_L then
|
|
internalerror(200109226);
|
|
list.concat(taicpu.op_reg_reg(A_CMP,regsize(reg1),reg1,reg2));
|
|
a_jmp_cond(list,cmp_op,l);}
|
|
end;
|
|
|
|
PROCEDURE tcgSPARC.a_cmp_ref_reg_label(list:TAasmOutput;size:tcgsize;cmp_op:topcmp;CONST ref:TReference;reg:tregister;l:tasmlabel);
|
|
|
|
var
|
|
opsize:topsize;
|
|
|
|
begin
|
|
opsize := S_Q{makeregsize(reg,size)};
|
|
list.concat(taicpu.op_ref_reg(A_CMP,opsize,ref,reg));
|
|
a_jmp_cond(list,cmp_op,l);
|
|
end;
|
|
|
|
PROCEDURE tcgSPARC.a_jmp_cond(list:TAasmOutput;cond:TOpCmp;l:tasmlabel);
|
|
|
|
var
|
|
ai:taicpu;
|
|
|
|
begin
|
|
if cond=OC_None then
|
|
ai := Taicpu.Op_sym(A_JMPL,S_NO,l)
|
|
else
|
|
begin
|
|
ai:=Taicpu.Op_sym(A_JMPL,S_NO,l);
|
|
ai.SetCondition(TOpCmp2AsmCond[cond]);
|
|
end;
|
|
ai.is_jmp:=true;
|
|
list.concat(ai);
|
|
end;
|
|
|
|
PROCEDURE tcgSPARC.a_jmp_flags(list:TAasmOutput;CONST f:TResFlags;l:tasmlabel);
|
|
var
|
|
ai:taicpu;
|
|
begin
|
|
ai := Taicpu.op_sym(A_JMPL,S_NO,l);
|
|
ai.SetCondition(flags_to_cond(f));
|
|
ai.is_jmp := true;
|
|
list.concat(ai);
|
|
end;
|
|
|
|
PROCEDURE tcgSPARC.g_flags2reg(list:TAasmOutput;Size:TCgSize;CONST f:tresflags;reg:TRegister);
|
|
VAR
|
|
ai:taicpu;
|
|
hreg:tregister;
|
|
BEGIN
|
|
hreg := rg.makeregsize(reg,OS_8);
|
|
// ai:=Taicpu.Op_reg(A_Setcc,S_B,hreg);
|
|
ai.SetCondition(flags_to_cond(f));
|
|
list.concat(ai);
|
|
IF hreg<>reg
|
|
THEN
|
|
a_load_reg_reg(list,OS_8,hreg,reg);
|
|
END;
|
|
|
|
{ *********** entry/exit code and address loading ************ }
|
|
|
|
PROCEDURE tcgSPARC.g_stackframe_entry(list:TAasmOutput;localsize:LongInt);
|
|
VAR
|
|
href:TReference;
|
|
i:integer;
|
|
again:tasmlabel;
|
|
BEGIN
|
|
WITH list DO
|
|
BEGIN
|
|
concat(Taicpu.Op_reg(A_SAVE,S_L,Frame_Pointer_Reg));
|
|
concat(Taicpu.Op_reg_reg(A_NONE,S_L,Stack_Pointer_Reg,Frame_Pointer_Reg));
|
|
IF localsize>0
|
|
THEN
|
|
concat(Taicpu.Op_const_reg(A_SUB,S_L,localsize,Stack_Pointer_Reg));
|
|
END;
|
|
END;
|
|
PROCEDURE tcgSPARC.g_restore_frame_pointer(list:TAasmOutput);
|
|
BEGIN
|
|
list.concat(Taicpu.Op_none(A_RESTORE,S_NO));
|
|
END;
|
|
PROCEDURE tcgSPARC.g_return_from_proc(list:TAasmOutput;parasize:aword);
|
|
BEGIN
|
|
{ Routines with the poclearstack flag set use only a ret }
|
|
{ also routines with parasize=0 }
|
|
WITH List DO
|
|
(*IF(po_clearstack IN aktprocdef.procoptions)
|
|
THEN
|
|
{ complex return values are removed from stack in C code PM }
|
|
IF ret_in_param(aktprocdef.rettype.def)
|
|
THEN
|
|
Concat(Taicpu.Op_const(A_RET,S_NO,4))
|
|
ELSE
|
|
Concat(Taicpu.Op_none(A_RET,S_NO))
|
|
ELSE*)
|
|
IF(parasize=0)
|
|
THEN
|
|
Concat(Taicpu.Op_none(A_RET,S_NO))
|
|
ELSE
|
|
BEGIN
|
|
{ parameters are limited to 65535 bytes because }
|
|
{ ret allows only imm16 }
|
|
IF(parasize>65535)
|
|
THEN
|
|
CGMessage(cg_e_parasize_too_big);
|
|
Concat(Taicpu.Op_const(A_RET,S_NO,parasize));
|
|
END;
|
|
END;
|
|
|
|
PROCEDURE tcgSPARC.a_loadaddr_ref_reg(list:TAasmOutput;CONST ref:TReference;r:tregister);
|
|
|
|
begin
|
|
// list.concat(taicpu.op_ref_reg(A_LEA,S_L,ref,r));
|
|
end;
|
|
{ ************* 64bit operations ************ }
|
|
PROCEDURE TCg64fSPARC.get_64bit_ops(op:TOpCG;var op1,op2:TAsmOp);
|
|
begin
|
|
case op of
|
|
OP_ADD :
|
|
begin
|
|
op1:=A_ADD;
|
|
op2:=A_ADD;
|
|
end;
|
|
OP_SUB :
|
|
begin
|
|
op1:=A_SUB;
|
|
op2:=A_SUB;
|
|
end;
|
|
OP_XOR :
|
|
begin
|
|
op1:=A_XOR;
|
|
op2:=A_XOR;
|
|
end;
|
|
OP_OR :
|
|
begin
|
|
op1:=A_OR;
|
|
op2:=A_OR;
|
|
end;
|
|
OP_AND :
|
|
begin
|
|
op1:=A_AND;
|
|
op2:=A_AND;
|
|
end;
|
|
else
|
|
internalerror(200203241);
|
|
end;
|
|
end;
|
|
|
|
|
|
PROCEDURE TCg64fSPARC.a_op64_ref_reg(list:TAasmOutput;op:TOpCG;CONST ref:TReference;reg:TRegister64);
|
|
var
|
|
op1,op2:TAsmOp;
|
|
tempref:TReference;
|
|
begin
|
|
get_64bit_ops(op,op1,op2);
|
|
list.concat(taicpu.op_ref_reg(op1,S_L,ref,reg.reglo));
|
|
tempref:=ref;
|
|
inc(tempref.offset,4);
|
|
list.concat(taicpu.op_ref_reg(op2,S_L,tempref,reg.reghi));
|
|
end;
|
|
|
|
|
|
PROCEDURE TCg64fSPARC.a_op64_reg_reg(list:TAasmOutput;op:TOpCG;regsrc,regdst:TRegister64);
|
|
var
|
|
op1,op2:TAsmOp;
|
|
begin
|
|
get_64bit_ops(op,op1,op2);
|
|
list.concat(taicpu.op_reg_reg(op1,S_L,regsrc.reglo,regdst.reglo));
|
|
list.concat(taicpu.op_reg_reg(op2,S_L,regsrc.reghi,regdst.reghi));
|
|
end;
|
|
|
|
|
|
PROCEDURE TCg64fSPARC.a_op64_const_reg(list:TAasmOutput;op:TOpCG;value:qWord;regdst:TRegister64);
|
|
var
|
|
op1,op2:TAsmOp;
|
|
begin
|
|
case op of
|
|
OP_AND,OP_OR,OP_XOR:
|
|
WITH cg DO
|
|
begin
|
|
a_op_const_reg(list,op,Lo(Value),regdst.reglo);
|
|
a_op_const_reg(list,op,Hi(Value),regdst.reghi);
|
|
end;
|
|
OP_ADD, OP_SUB:
|
|
begin
|
|
// can't use a_op_const_ref because this may use dec/inc
|
|
get_64bit_ops(op,op1,op2);
|
|
list.concat(taicpu.op_const_reg(op1,S_L,Lo(Value),regdst.reglo));
|
|
list.concat(taicpu.op_const_reg(op2,S_L,Hi(Value),regdst.reghi));
|
|
end;
|
|
else
|
|
internalerror(200204021);
|
|
end;
|
|
end;
|
|
|
|
|
|
PROCEDURE TCg64fSPARC.a_op64_const_ref(list:TAasmOutput;op:TOpCG;value:qWord;CONST ref:TReference);
|
|
var
|
|
op1,op2:TAsmOp;
|
|
tempref:TReference;
|
|
begin
|
|
case op of
|
|
OP_AND,OP_OR,OP_XOR:
|
|
WITH cg DO
|
|
begin
|
|
a_op_const_ref(list,op,OS_32,Lo(Value),ref);
|
|
tempref:=ref;
|
|
inc(tempref.offset,4);
|
|
a_op_const_ref(list,op,OS_32,Hi(Value),tempref);
|
|
end;
|
|
OP_ADD, OP_SUB:
|
|
begin
|
|
get_64bit_ops(op,op1,op2);
|
|
// can't use a_op_const_ref because this may use dec/inc
|
|
list.concat(taicpu.op_const_ref(op1,S_L,Lo(Value),ref));
|
|
tempref:=ref;
|
|
inc(tempref.offset,4);
|
|
list.concat(taicpu.op_const_ref(op2,S_L,Hi(Value),tempref));
|
|
end;
|
|
else
|
|
internalerror(200204022);
|
|
end;
|
|
end;
|
|
|
|
|
|
{ ************* concatcopy ************ }
|
|
|
|
PROCEDURE tcgSPARC.g_concatcopy(list:TAasmOutput;CONST source,dest:TReference;len:aword;delsource,loadref:boolean);
|
|
|
|
{ temp implementation, until it's permanenty moved here from cga.pas }
|
|
|
|
var
|
|
oldlist:TAasmOutput;
|
|
|
|
begin
|
|
if list <> exprasmlist then
|
|
begin
|
|
oldlist := exprasmlist;
|
|
exprasmlist := list;
|
|
end;
|
|
// cga.concatcopy(source,dest,len,delsource,loadref);
|
|
if list <> exprasmlist then
|
|
list := oldlist;
|
|
end;
|
|
|
|
|
|
function tcgSPARC.reg_cgsize(CONST reg:tregister):tcgsize;
|
|
// CONST
|
|
// regsize_2_cgsize:array[S_B..S_L] of tcgsize = (OS_8,OS_16,OS_32);
|
|
begin
|
|
//result := regsize_2_cgsize[S_L];
|
|
end;
|
|
|
|
|
|
{***************** This is private property, keep out! :) *****************}
|
|
PROCEDURE tcgSPARC.sizes2load(s1:tcgsize;s2:topsize;VAR op:tasmop;VAR s3:topsize);
|
|
BEGIN
|
|
{ case s2 of
|
|
S_B:
|
|
if S1 in [OS_8,OS_S8] then
|
|
s3 := S_B
|
|
else internalerror(200109221);
|
|
S_W:
|
|
case s1 of
|
|
OS_8,OS_S8:
|
|
s3 := S_BW;
|
|
OS_16,OS_S16:
|
|
s3 := S_W;
|
|
else internalerror(200109222);
|
|
end;
|
|
S_L:
|
|
case s1 of
|
|
OS_8,OS_S8:
|
|
s3 := S_BL;
|
|
OS_16,OS_S16:
|
|
s3 := S_WL;
|
|
OS_32,OS_S32:
|
|
s3 := S_L;
|
|
else internalerror(200109223);
|
|
end;
|
|
else internalerror(200109227);
|
|
end;
|
|
if s3 in [S_B,S_W,S_L] then
|
|
op := A_NONE
|
|
else if s1 in [OS_8,OS_16,OS_32] then
|
|
op := A_NONEZX
|
|
else
|
|
op := A_NONESX;}
|
|
END;
|
|
PROCEDURE tcgSPARC.floatloadops(t:tcgsize;VAR op:tasmop;VAR s:topsize);
|
|
BEGIN
|
|
(* case t of
|
|
OS_F32:begin
|
|
op:=A_FLD;
|
|
s:=S_FS;
|
|
end;
|
|
OS_F64:begin
|
|
op:=A_FLD;
|
|
{ ???? }
|
|
s:=S_FL;
|
|
end;
|
|
OS_F80:begin
|
|
op:=A_FLD;
|
|
s:=S_FX;
|
|
end;
|
|
OS_C64:begin
|
|
op:=A_FILD;
|
|
s:=S_IQ;
|
|
end;
|
|
else internalerror(17);
|
|
end;*)
|
|
END;
|
|
PROCEDURE tcgSPARC.floatload(list:TAasmOutput;t:tcgsize;CONST ref:TReference);
|
|
VAR
|
|
op:tasmop;
|
|
s:topsize;
|
|
BEGIN
|
|
floatloadops(t,op,s);
|
|
list.concat(Taicpu.Op_ref(op,s,ref));
|
|
inc(trgcpu(rg).fpuvaroffset);
|
|
END;
|
|
PROCEDURE tcgSPARC.floatstoreops(t:tcgsize;var op:tasmop;var s:topsize);
|
|
BEGIN
|
|
{ case t of
|
|
OS_F32:begin
|
|
op:=A_FSTP;
|
|
s:=S_FS;
|
|
end;
|
|
OS_F64:begin
|
|
op:=A_FSTP;
|
|
s:=S_FL;
|
|
end;
|
|
OS_F80:begin
|
|
op:=A_FSTP;
|
|
s:=S_FX;
|
|
end;
|
|
OS_C64:begin
|
|
op:=A_FISTP;
|
|
s:=S_IQ;
|
|
end;
|
|
else
|
|
internalerror(17);
|
|
end;}
|
|
end;
|
|
PROCEDURE tcgSPARC.floatstore(list:TAasmOutput;t:tcgsize;CONST ref:TReference);
|
|
VAR
|
|
op:tasmop;
|
|
s:topsize;
|
|
BEGIN
|
|
floatstoreops(t,op,s);
|
|
list.concat(Taicpu.Op_ref(op,s,ref));
|
|
dec(trgcpu(rg).fpuvaroffset);
|
|
END;
|
|
BEGIN
|
|
cg:=tcgSPARC.create;
|
|
END.
|