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

* fixed range check errors

Browse Source
This commit is contained in:
Jonas Maebe 2003-07-05 20:07:24 +00:00
parent 024590b0fa
commit 37d266b63d
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/ncginl.pas
View File

@ -491,13 +491,13 @@ implementation
begin begin
inc(tcallparanode(left).left.location.reference.offset, inc(tcallparanode(left).left.location.reference.offset,
(tordconstnode(tcallparanode(tcallparanode(left).right).left).value div 32)*4); (tordconstnode(tcallparanode(tcallparanode(left).right).left).value div 32)*4);
cg.a_op_const_ref(exprasmlist,cgop,OS_INT,l,tcallparanode(left).left.location.reference); cg.a_op_const_ref(exprasmlist,cgop,OS_INT,aword(l),tcallparanode(left).left.location.reference);
location_release(exprasmlist,tcallparanode(left).left.location); location_release(exprasmlist,tcallparanode(left).left.location);
end end
else else
{ LOC_CREGISTER } { LOC_CREGISTER }
begin begin
cg.a_op_const_reg(exprasmlist,cgop,tcallparanode(left).left.location.size,l,tcallparanode(left).left.location.register); cg.a_op_const_reg(exprasmlist,cgop,tcallparanode(left).left.location.size,aword(l),tcallparanode(left).left.location.register);
end; end;
end end
else else
@ -686,7 +686,10 @@ end.
{ {
$Log$ $Log$
Revision 1.37 2003-06-13 21:19:30 peter Revision 1.38 2003-07-05 20:07:24 jonas
* fixed range check errors
Revision 1.37 2003/06/13 21:19:30 peter
* current_procdef removed, use current_procinfo.procdef instead * current_procdef removed, use current_procinfo.procdef instead
Revision 1.36 2003/06/07 18:57:04 jonas Revision 1.36 2003/06/07 18:57:04 jonas