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

* fixed a bug in a_load_const_reg related to max 13bit value limit

Browse Source 
for immediat value ==> use of A_SETHI for greater values
This commit is contained in:
mazen 2003-05-06 15:02:40 +00:00
parent 986aa300a8
commit 47ba6c2c4e
1 changed files with 20 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
compiler/sparc/cgcpu.pas
View File

@ -255,17 +255,22 @@ procedure TCgSparc.a_jmp_always(List:TAasmOutput;l:TAsmLabel);
end; end;
{********************** load instructions ********************} {********************** load instructions ********************}
procedure TCgSparc.a_load_const_reg(list:TAasmOutput;size:TCGSize;a:aword;reg:TRegister); procedure TCgSparc.a_load_const_reg(list:TAasmOutput;size:TCGSize;a:aword;reg:TRegister);
var
var r:Tregister; r:Tregister;
begin
BEGIN
r.enum:=R_G0; r.enum:=R_G0;
WITH List DO with List do
IF a<>0 if a=0
THEN{R_G0 is usually set to zero, so we use it} then{R_G0 is usually set to zero, so we use it}
Concat(taicpu.op_reg_const_reg(A_OR,r,a,reg)) Concat(taicpu.op_reg_reg_reg(A_OR,r,r,reg))
ELSE{The is no A_MOV in sparc, that's why we use A_OR with help of R_G0} else{There 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,r,r,reg)); begin
Concat(taicpu.op_reg_const_reg(A_OR,r,a and $00001FFF,reg));
a:=a and $FFFFE000;
if a<>0
then
Concat(taicpu.op_const_reg(A_SETHI,a,reg));
end;
END; END;
procedure TCgSparc.a_load_const_ref(list:TAasmOutput;size:tcgsize;a:aword;CONST ref:TReference); procedure TCgSparc.a_load_const_ref(list:TAasmOutput;size:tcgsize;a:aword;CONST ref:TReference);
@ -1444,7 +1449,11 @@ BEGIN
END. END.
{ {
$Log$ $Log$
Revision 1.45 2003-04-29 11:58:21 mazen Revision 1.46 2003-05-06 15:02:40 mazen
* fixed a bug in a_load_const_reg related to max 13bit value limit
for immediat value ==> use of A_SETHI for greater values
Revision 1.45 2003/04/29 11:58:21 mazen
* fixed bug of output generated assembler for a_cmp_const_ref_label * fixed bug of output generated assembler for a_cmp_const_ref_label
Revision 1.44 2003/04/28 09:44:42 mazen Revision 1.44 2003/04/28 09:44:42 mazen