mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-10 18:19:39 +01:00
* some overflow checking fixes
This commit is contained in:
parent
9ba736bd04
commit
387f05b00d
@ -903,12 +903,12 @@ interface
|
|||||||
addn:
|
addn:
|
||||||
begin
|
begin
|
||||||
op1 := A_ADDC;
|
op1 := A_ADDC;
|
||||||
op2 := A_ADDZEO;
|
op2 := A_ADDZEO_;
|
||||||
end;
|
end;
|
||||||
subn:
|
subn:
|
||||||
begin
|
begin
|
||||||
op1 := A_SUBC;
|
op1 := A_SUBC;
|
||||||
op2 := A_SUBFEO;
|
op2 := A_SUBFEO_;
|
||||||
end;
|
end;
|
||||||
else
|
else
|
||||||
internalerror(2002072806);
|
internalerror(2002072806);
|
||||||
@ -1302,7 +1302,10 @@ begin
|
|||||||
end.
|
end.
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.8 2002-08-11 06:14:40 florian
|
Revision 1.9 2002-08-11 11:40:16 jonas
|
||||||
|
* some overflow checking fixes
|
||||||
|
|
||||||
|
Revision 1.8 2002/08/11 06:14:40 florian
|
||||||
* fixed powerpc compilation problems
|
* fixed powerpc compilation problems
|
||||||
|
|
||||||
Revision 1.7 2002/08/10 17:15:31 jonas
|
Revision 1.7 2002/08/10 17:15:31 jonas
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user