mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 02:26:20 +02:00
* setup ovlov correctly
This commit is contained in:
parent
ad3a4a93ef
commit
8cf4e1a6d3
@ -453,6 +453,8 @@ interface
|
|||||||
checkoverflow : boolean;
|
checkoverflow : boolean;
|
||||||
ovloc : tlocation;
|
ovloc : tlocation;
|
||||||
begin
|
begin
|
||||||
|
ovloc.loc:=LOC_VOID;
|
||||||
|
|
||||||
pass_left_right;
|
pass_left_right;
|
||||||
force_reg_left_right(false,(cs_check_overflow in aktlocalswitches) and
|
force_reg_left_right(false,(cs_check_overflow in aktlocalswitches) and
|
||||||
(nodetype in [addn,subn]));
|
(nodetype in [addn,subn]));
|
||||||
@ -618,6 +620,8 @@ interface
|
|||||||
tmpreg : tregister;
|
tmpreg : tregister;
|
||||||
ovloc : tlocation;
|
ovloc : tlocation;
|
||||||
begin
|
begin
|
||||||
|
ovloc.loc:=LOC_VOID;
|
||||||
|
|
||||||
pass_left_right;
|
pass_left_right;
|
||||||
force_reg_left_right(false,(cs_check_overflow in aktlocalswitches) and
|
force_reg_left_right(false,(cs_check_overflow in aktlocalswitches) and
|
||||||
(nodetype in [addn,subn,muln]));
|
(nodetype in [addn,subn,muln]));
|
||||||
@ -777,7 +781,10 @@ begin
|
|||||||
end.
|
end.
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.41 2005-02-13 18:55:19 florian
|
Revision 1.42 2005-02-13 19:12:05 florian
|
||||||
|
* setup ovlov correctly
|
||||||
|
|
||||||
|
Revision 1.41 2005/02/13 18:55:19 florian
|
||||||
+ overflow checking for the arm
|
+ overflow checking for the arm
|
||||||
|
|
||||||
Revision 1.40 2005/01/29 00:40:18 peter
|
Revision 1.40 2005/01/29 00:40:18 peter
|
||||||
|
Loading…
Reference in New Issue
Block a user