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

* fixed case bugs

Browse Source
This commit is contained in:
Jonas Maebe 2003-12-09 19:13:32 +00:00
parent e9a43bd827
commit d59197ec26
1 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/powerpc/nppcset.pas
View File

@ -59,9 +59,8 @@ implementation
procedure tppccasenode.genlinearlist(hp : pcaserecord);
var
first : boolean;
first, lastrange : boolean;
last : TConstExprInt;
resflags: tresflags;
procedure genitem(t : pcaserecord);
@ -92,20 +91,17 @@ implementation
{ need we to test the first value }
if first and (t^._low>get_min_value(left.resulttype.def)) then
begin
cg.a_cmp_const_reg_label(exprasmlist,OS_INT,jmp_lt,
aword(t^._low),hregister,elselabel);
cg.a_cmp_const_reg_label(exprasmlist,OS_INT,jmp_lt,aword(t^._low),hregister,elselabel);
end;
if t^._low=t^._high then
begin
if t^._low-last=0 then
exprasmlist.concat(taicpu.op_reg_reg_const(A_CMPWI,NR_CR0,
hregister,0))
cg.a_cmp_const_reg_label(exprasmlist, opsize, OC_EQ,0,hregister,t^.statement)
else
gensub(longint(t^._low-last));
tcgppc(cg).a_jmp_cond(exprasmlist,OC_EQ,t^.statement);
last:=t^._low;
resflags.cr := RS_CR0;
resflags.flag := F_EQ;
cg.a_jmp_flags(exprasmlist,resflags,t^.statement);
lastrange := false;
end
else
begin
@ -124,12 +120,14 @@ implementation
{ present label then the lower limit can be checked }
{ immediately. else check the range in between: }
gensub(longint(t^._low-last));
if (t^._low-last) <> 1 then
if ((t^._low-last) <> 1) or
(not lastrange) then
tcgppc(cg).a_jmp_cond(exprasmlist,jmp_lt,elselabel);
end;
gensub(longint(t^._high-t^._low));
tcgppc(cg).a_jmp_cond(exprasmlist,jmp_le,t^.statement);
last:=t^._high;
lastrange := true;
end;
first:=false;
if assigned(t^.greater) then
@ -144,6 +142,7 @@ implementation
else
begin
last:=0;
lastrange:=false;
first:=true;
genitem(hp);
cg.a_jmp_always(exprasmlist,elselabel);
@ -158,7 +157,10 @@ begin
end.
{
$Log$
Revision 1.12 2003-10-17 01:22:08 florian
Revision 1.13 2003-12-09 19:13:32 jonas
* fixed case bugs
Revision 1.12 2003/10/17 01:22:08 florian
* compilation of the powerpc compiler fixed
Revision 1.11 2003/10/01 20:34:49 peter