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

* range checks fixed

Browse Source
This commit is contained in:
peter 2004-08-16 21:00:15 +00:00
parent a0dc475275
commit 4275383b15
2 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ncginl.pas
View File

@ -439,7 +439,7 @@ implementation
else
{$endif cpu64bit}
cg.a_op_const_loc(exprasmlist,addsubop[inlinenumber],
addvalue,tcallparanode(left).left.location);
aint(addvalue),tcallparanode(left).left.location);
end
else
begin
@ -686,7 +686,10 @@ end.
{
$Log$
Revision 1.61 2004-07-12 17:58:19 peter
Revision 1.62 2004-08-16 21:00:15 peter
* range checks fixed
Revision 1.61 2004/07/12 17:58:19 peter
* remove maxlen field from ansistring/widestrings
Revision 1.60 2004/06/20 08:55:29 florian

9
compiler/ncgset.pas
View File

@ -541,9 +541,7 @@ implementation
genitem(t^.less);
{ 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,opsize,jmp_lt,t^._low,hregister,elselabel);
end;
cg.a_cmp_const_reg_label(exprasmlist,opsize,jmp_lt,aint(t^._low),hregister,elselabel);
if t^._low=t^._high then
begin
if t^._low-last=0 then
@ -974,7 +972,10 @@ begin
end.
{
$Log$
Revision 1.65 2004-07-22 10:07:09 jonas
Revision 1.66 2004-08-16 21:00:15 peter
* range checks fixed
Revision 1.65 2004/07/22 10:07:09 jonas
* fixed relabeling (nextaltnr was never increased)
* fixed inlining of case statements at the node level