paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-28 17:39:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* invalid genrated code for CASE statement fixed

Browse Source
This commit is contained in:
mazen 2003-05-07 15:04:30 +00:00
parent be8d4b2e26
commit 518e7109a5
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/sparc/cgcpu.pas
View File

@ -856,7 +856,7 @@ procedure TCgSparc.a_cmp_const_reg_label(list:TAasmOutput;size:tcgsize;cmp_op:to
then then
list.concat(taicpu.op_reg_reg(A_CMP,reg,reg)) list.concat(taicpu.op_reg_reg(A_CMP,reg,reg))
else else
list.concat(taicpu.op_const_reg(A_CMP,a,reg)); list.concat(taicpu.op_reg_const(A_CMP,reg,a));
a_jmp_cond(list,cmp_op,l); a_jmp_cond(list,cmp_op,l);
end; end;
procedure TCgSparc.a_cmp_const_ref_label(list:TAasmOutput;size:tcgsize;cmp_op:topcmp;a:aword;const ref:TReference;l:tasmlabel); procedure TCgSparc.a_cmp_const_ref_label(list:TAasmOutput;size:tcgsize;cmp_op:topcmp;a:aword;const ref:TReference;l:tasmlabel);
@ -1449,7 +1449,10 @@ BEGIN
END. END.
{ {
$Log$ $Log$
Revision 1.47 2003-05-06 20:25:20 mazen Revision 1.48 2003-05-07 15:04:30 mazen
* invalid genrated code for CASE statement fixed
Revision 1.47 2003/05/06 20:25:20 mazen
* Invalid genrated code : A_JMPL changed to A_BA * Invalid genrated code : A_JMPL changed to A_BA
Revision 1.46 2003/05/06 15:02:40 mazen Revision 1.46 2003/05/06 15:02:40 mazen