paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 03:29:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed range compare when the last value was an equal

Browse Source 
compare. The compare for the lower range was skipped
This commit is contained in:
peter 2003-11-10 19:10:31 +00:00
parent a3c14e9c2d
commit 13961467e3
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/ncgset.pas
View File

@ -660,8 +660,10 @@ implementation
else else
begin begin
cg.a_cmp_const_reg_label(exprasmlist, opsize, OC_EQ, aword(t^._low),hregister, t^.statement); cg.a_cmp_const_reg_label(exprasmlist, opsize, OC_EQ, aword(t^._low),hregister, t^.statement);
last:=t^._low;
end; end;
{ Reset last here, because we've only checked for one value and need to compare
for the next range both the lower and upper bound }
last:=0;
end end
else else
begin begin
@ -1009,7 +1011,11 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.52 2003-10-17 14:38:32 peter Revision 1.53 2003-11-10 19:10:31 peter
* fixed range compare when the last value was an equal
compare. The compare for the lower range was skipped
Revision 1.52 2003/10/17 14:38:32 peter
* 64k registers supported * 64k registers supported
* fixed some memory leaks * fixed some memory leaks