paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 21:09:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix for tcnvint5 on sparc

Browse Source 
git-svn-id: trunk@7088 -
This commit is contained in:
florian 2007-04-11 19:38:04 +00:00
parent 9137533864
commit 070874461c
1 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/sparc/cgcpu.pas
View File

@ -54,6 +54,7 @@ interface
procedure a_call_name(list:TAsmList;const s:string);override; procedure a_call_name(list:TAsmList;const s:string);override;
procedure a_call_reg(list:TAsmList;Reg:TRegister);override; procedure a_call_reg(list:TAsmList;Reg:TRegister);override;
{ General purpose instructions } { General purpose instructions }
procedure maybeadjustresult(list: TAsmList; op: TOpCg; size: tcgsize; dst: tregister);
procedure a_op_const_reg(list:TAsmList;Op:TOpCG;size:tcgsize;a:aint;reg:TRegister);override; procedure a_op_const_reg(list:TAsmList;Op:TOpCG;size:tcgsize;a:aint;reg:TRegister);override;
procedure a_op_reg_reg(list:TAsmList;Op:TOpCG;size:TCGSize;src, dst:TRegister);override; procedure a_op_reg_reg(list:TAsmList;Op:TOpCG;size:TCGSize;src, dst:TRegister);override;
procedure a_op_const_reg_reg(list:TAsmList;op:TOpCg;size:tcgsize;a:aint;src, dst:tregister);override; procedure a_op_const_reg_reg(list:TAsmList;op:TOpCg;size:tcgsize;a:aint;src, dst:tregister);override;
@ -739,6 +740,16 @@ implementation
end; end;
procedure tcgsparc.maybeadjustresult(list: TAsmList; op: TOpCg; size: tcgsize; dst: tregister);
const
overflowops = [OP_MUL,OP_SHL,OP_ADD,OP_SUB,OP_NOT,OP_NEG];
begin
if (op in overflowops) and
(size in [OS_8,OS_S8,OS_16,OS_S16]) then
a_load_reg_reg(list,OS_32,size,dst,dst);
end;
procedure TCgSparc.a_op_const_reg(list:TAsmList;Op:TOpCG;size:tcgsize;a:aint;reg:TRegister); procedure TCgSparc.a_op_const_reg(list:TAsmList;Op:TOpCG;size:tcgsize;a:aint;reg:TRegister);
begin begin
if Op in [OP_NEG,OP_NOT] then if Op in [OP_NEG,OP_NOT] then
@ -747,6 +758,7 @@ implementation
list.concat(taicpu.op_reg_reg_reg(TOpCG2AsmOp[op],reg,NR_G0,reg)) list.concat(taicpu.op_reg_reg_reg(TOpCG2AsmOp[op],reg,NR_G0,reg))
else else
handle_reg_const_reg(list,TOpCG2AsmOp[op],reg,a,reg); handle_reg_const_reg(list,TOpCG2AsmOp[op],reg,a,reg);
maybeadjustresult(list,op,size,reg);
end; end;
@ -772,6 +784,7 @@ implementation
else else
list.concat(taicpu.op_reg_reg_reg(TOpCG2AsmOp[op],dst,src,dst)); list.concat(taicpu.op_reg_reg_reg(TOpCG2AsmOp[op],dst,src,dst));
end; end;
maybeadjustresult(list,op,size,dst);
end; end;
@ -801,12 +814,14 @@ implementation
end; end;
end; end;
handle_reg_const_reg(list,TOpCG2AsmOp[op],src,a,dst); handle_reg_const_reg(list,TOpCG2AsmOp[op],src,a,dst);
maybeadjustresult(list,op,size,dst);
end; end;
procedure TCgSparc.a_op_reg_reg_reg(list:TAsmList;op:TOpCg;size:tcgsize;src1, src2, dst:tregister); procedure TCgSparc.a_op_reg_reg_reg(list:TAsmList;op:TOpCg;size:tcgsize;src1, src2, dst:tregister);
begin begin
list.concat(taicpu.op_reg_reg_reg(TOpCG2AsmOp[op],src2,src1,dst)); list.concat(taicpu.op_reg_reg_reg(TOpCG2AsmOp[op],src2,src1,dst));
maybeadjustresult(list,op,size,dst);
end; end;
@ -852,7 +867,8 @@ implementation
end; end;
end end
else else
handle_reg_const_reg(list,TOpCG2AsmOp[op],src,a,dst) handle_reg_const_reg(list,TOpCG2AsmOp[op],src,a,dst);
maybeadjustresult(list,op,size,dst);
end; end;
@ -886,7 +902,8 @@ implementation
end; end;
end end
else else
list.concat(taicpu.op_reg_reg_reg(TOpCG2AsmOp[op],src2,src1,dst)) list.concat(taicpu.op_reg_reg_reg(TOpCG2AsmOp[op],src2,src1,dst));
maybeadjustresult(list,op,size,dst);
end; end;